56 lines
1.7 KiB
Fortran
56 lines
1.7 KiB
Fortran
! ==============================================================================
|
|
! 通过 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
|
|
! ============================================================================== |