git push -u origin main

2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
@@ -0,0 +1,25 @@
+      SUBROUTINE TIMING(MOD,ITER)
+C     ===========================
+C
+C     Timing procedure (call machine dependent routine!!)
+C
+      CHARACTER ROUT*6
+      dimension dummy(2)
+      common/timeta/dtim
+      DATA T0/0./
+      SAVE T0
+C
+      TIME=etime(dummy)
+      DT=TIME-T0
+      T0=TIME
+      IP=ITER
+      IF(MOD.EQ.1) THEN
+         ROUT=' TABLE'
+      ELSE IF(MOD.EQ.2) THEN
+         ROUT=' FINAL'
+      ENDIF
+      WRITE(69,600) IP,TIME,DT,ROUT
+      dtim=dt
+  600 FORMAT(I6,2F11.2,2X,A6)
+      RETURN
+      END