Fortran Coder

标题: CVF6.6中实现函数指针功能 [打印本页]
作者: leeyazhou    时间: 2017-10-27 12:47
标题: CVF6.6中实现函数指针功能
[Fortran] 纯文本查看 复制代码
           MODULE gva

                IMPLICIT NONE

                INTERFACE

                      REAL*8 FUNCTION fun(x)

                              REAL*8,INTENT(IN) :: x

                      END FUNCTION fun

                      REAL*8 FUNCTION ftan(x)

                              REAL*8,INTENT(IN) :: x

                      END FUNCTION ftan

                      REAL*8 FUNCTION poly(x)

                              REAL*8,INTENT(IN) :: x

                      END FUNCTION poly

                END INTERFACE



                PROCEDURE(fun),POINTER :: f

        END MODULE gva





                READ(5,*)k

                IF(k == 0) THEN

                       f => ftan                      

                ELSE IF(k==1 ) THEN

                       f => poly

                ELSE

                END IF

f为函数指针（或者函数变量）
根据输入k，对f进行赋值。此功能在gfortran中可以使用，interface为新的特性，
在CVF6.6中不支持，在CVF6.6中如何实现以上功能？

作者: fcode    时间: 2017-10-27 13:07
这问题就好像问：“怎么在诺基亚1100手机上安装微信”一样。
没法实现，放弃这种老版本编译器，让它入土为安吧。





作者: leeyazhou    时间: 2017-10-27 13:09
fcode 发表于 2017-10-27 13:07
这问题就好像问：“怎么在诺基亚110手机上安装微信”一样。

没法实现，放弃这种老版本编译器，让它入土为 ...

比喻通俗易懂，谢谢！



欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2