update file date

20210414-程序模板.f90

@@ -0,0 +1,56 @@
+! ==============================================================================
+! 通过 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
+! ==============================================================================