! ==============================================================================
! 通过 gfortran ./test.f90 -o ./run && ./run 运行
! 程序名：
! 
! 目的:
! 
! 修订记录:
!         日期              编程者               改动描述
! ===================   =============   =====================================
! 
! 程序结构:
! 
! ==============================================================================
! 模块：
module ModName
    implicit none
    ! 数据字典
    ! 声明常数
    REAL, PARAMETER :: PI=3.14159265            ! PI值
    REAL, PARAMETER :: e=2.718281828459         ! 自然对数
    INTEGER, PARAMETER :: arrayLength=20        ! 数组基准长度
    ! 声明变量
    ! 创建显式接口
    contains
        subroutine SubName(varName1,varName2)
            implicit none
            ! 数据字典
        end subroutine SubName
end module ModName
! ==============================================================================
! 主程序：
program ProName
    use ModName
    implicit none
    ! 数据字典
    ! 声明常量
    ! 声明变量
    ! 变量初始化
    ! 数据输入
    ! 运算过程
    ! 结果输出
end program ProName
! ==============================================================================
! 子程序
! subroutine SubName(varName1,varName2)
!     use MouName
!     implicit none
!     Type, intent(inout) :: varName
! end subroutine SubName
! ==============================================================================
! 函数
! function FunName(varName1,varName2)
!     use MouName
!     implicit none
! end function FunName
! ==============================================================================