fortran：函数重载示例

最新推荐文章于 2024-08-05 18:44:20 发布

chder_白南

最新推荐文章于 2024-08-05 18:44:20 发布

阅读量1.1k

点赞数 1

分类专栏： FortranNote Fortran教程文章标签： fortran

本文链接：https://blog.csdn.net/chd_lkl/article/details/90513146

版权

FortranNote 同时被 2 个专栏收录

81 篇文章 45 订阅

订阅专栏

Fortran教程

68 篇文章 57 订阅

订阅专栏

下面的代码展示了isnan函数的重载。功能：支持复数运算
module overload

        interface isnan   !// 重载函数isnan的接口
                module procedure cmplx_isnan
        end interface
        
contains
        
        logical function cmplx_isnan (x)   !// 重载函数isnan
                complex(8) :: x
                cmplx_isnan = isnan(real(x)) .or. isnan(imag(x))
        end function cmplx_isnan
end module overload
        
program test
        use overload
        implicit none
        complex(8) :: x 
        
        x = cmplx(3.d0,4.d0)
        print*, x  !// 双精度
        print*, cmplx(3.d0,4.d0)  !// 单精度 
        print*, isnan( x )

end program test