comment syntax

jeffhammond · Nov 6, 2023 · 796dc85 · 796dc85
1 parent c7d921c
commit 796dc85
Showing 1 changed file with 12 additions and 6 deletions.
diff --git a/src/tce/ccsd/ccsd_t2.F b/src/tce/ccsd/ccsd_t2.F
@@ -270,6 +270,9 @@ SUBROUTINE ccsd_t2(rtdb,d_f1,d_i0,d_t1,d_t2,d_v2,
       CALL DELETEFILE(d_i1)
       IF (.not.MA_POP_STACK(l_i1_offset)) 
      1    CALL ERRQUIT('ccsd_t2',-1,MA_ERR)
+!
+!
+!
       CALL OFFSET_ccsd_t2_7_1(l_i1_offset,k_i1_offset,size_i1)
       CALL TCE_FILENAME('ccsd_t2_7_1_i1',filename)
       CALL CREATEFILE(filename,d_i1,size_i1)
@@ -283,6 +286,9 @@ SUBROUTINE ccsd_t2(rtdb,d_f1,d_i0,d_t1,d_t2,d_v2,
       CALL DELETEFILE(d_i1)
       IF (.not.MA_POP_STACK(l_i1_offset)) 
      1    CALL ERRQUIT('ccsd_t2',-1,MA_ERR)
+!
+!
+!
       CALL OFFSET_vt1t1_1_1(l_i1_offset,k_i1_offset,size_i1)
       CALL TCE_FILENAME('vt1t1_1_1_i1',filename)
       CALL CREATEFILE(filename,d_i1,size_i1)
@@ -295,9 +301,9 @@ SUBROUTINE ccsd_t2(rtdb,d_f1,d_i0,d_t1,d_t2,d_v2,
       CALL c2f_t2_t12(d_t1,k_t1_offset,d_t2,k_t2_offset)
       cpu = - util_cpusec()
       wall = - util_wallsec()
-c
-c
-c
+!
+!
+!
       if (.not.rtdb_get(rtdb,'tce:ccsd_t2_8_alg',mt_int,1,
      1                  ccsd_t2_8_alg)) then
         ccsd_t2_8_alg = 2
@@ -333,9 +339,9 @@ SUBROUTINE ccsd_t2(rtdb,d_f1,d_i0,d_t1,d_t2,d_v2,
       else
         CALL errquit('ccsd_t2_8_alg',ccsd_t2_8_alg,INPUT_ERR)
       endif
-c
-c
-c
+!
+!
+!
       cpu = cpu + util_cpusec()
       wall = wall + util_wallsec()
       cpusecs(37) = cpu