Fortran中function，subroutine， interface和module的简单使用

分手后的思念是犯贱 2024-02-17 18:33 10阅读 0赞

代码运行在simply fortran2下，复制，粘贴可直接运行看效果

!!!!!-------------------
    !    Fortran中函数分两类：子程序（subroutine）和自定义函数（function）。
    !    自定义函数本质上就是一般数学上的函数，一般要传递自变量给自定义函数，返回函数值。
    !    子程序不一定是这样，可以没有返值也可以多个返回值。
    !    func能做到的事，sub一定能做到。
    !    传递参数要注意类型的对应，这跟C是一样的。
    !!!!!-------------------
    
    !!!!!!!!!
    !    Module不是函数。它用于封装程序模块，一般是把具有相关功能的函数及变量封装在一起
    !    。用法很单，但能提供很多方便，使程序变得简洁，比如使用全局变量不必每次都声明一长串，
    !    写在odule里调用就行了。Module一般写在主程序开始之前。
    !!!!!!!!!
    
    
    
    program helloworld
    use opModule  
    ! 在主程序或函数中使用时，需要在声明之前先写上一行：
    !  use module_name.
    implicit none
    
    real(kind = 4):: a = 2.0, b = 3.0, add_result = 0.0
    
    interface   ! 声明函数调用接口，sub无需声明可直接调用
        real(kind=4) function add_func(a, b)
        implicit none
            real(kind=4) :: a, b
        end function add_func
    end interface
    
        ! 注意sub的调用方式 call subname(╬aram1, ...)
        call add_sub(a, b, add_result)  
        Print *, "Hello World!", add_result, add_func(a, b)
    
        call prtHi()
    
        print*, M_add_func(2.3, 4.3), M_result
    
    end program helloworld
    
    subroutine add_sub(a, b, add_result)
    implicit none
    real(kind=4) :: a, b, add_result
    
    add_result = a + b;
    
    end subroutine add_sub
    
    real(kind=4) function add_func(a, b)
    implicit none
    real(kind=4) :: a, b
    
    add_func = a + b
    
    end function add_func
    
    
    !!!!!!
    !    Module中有函数时必须在contains命令之后（即在某一行写上contains然后下
    !    面开始写函数）。并且module中定义过的变量在module里的
    !    函数中可直接使用，函数之间也可以直接相互调用(包括主程序或其他包含module的子函数中)，
    !    连module中的自定义函数在被调用时也不用先声明。
    !!!!!!
    module opModule
        real(kind = 4) :: M_result
    contains
        subroutine prtHi()
            implicit none
            print *, 'hello fortran, hello 2016.11.16 10:55'
        end subroutine prtHi
    
        real(kind=4) function M_add_func(a, b)
        implicit none
        real(kind=4) :: a, b
    
        M_result = a + b
        M_add_func = M_result
    
        end function M_add_func
    
    end module opModule