remove extra commas

dzalkind · Dec 21, 2021 · 67ada29 · 67ada29
1 parent 1347767
commit 67ada29
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/ROSCO/rosco_registry/write_registry.py b/ROSCO/rosco_registry/write_registry.py
@@ -62,7 +62,7 @@ def write_roscoio(yfile):
     file.write("    CHARACTER(128)               :: ErrMsg              \n")
     file.write("    CHARACTER(128)               :: n_t_global          ! timestep number as a string\n")
     file.write("\n")
-    file.write("    WRITE(n_t_global, '(I0.0)' ), NINT(LocalVar%Time/LocalVar%DT)\n")
+    file.write("    WRITE(n_t_global, '(I0.0)' ) NINT(LocalVar%Time/LocalVar%DT)\n")
     file.write("    InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp'\n")
     file.write("    OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='WRITE' )\n")
     file.write("\n")
@@ -103,7 +103,7 @@ def write_roscoio(yfile):
     file.write("    CHARACTER(128)               :: ErrMsg              \n")
     file.write("    CHARACTER(128)               :: n_t_global          ! timestep number as a string\n")
     file.write("\n")
-    file.write("    WRITE(n_t_global, '(I0.0)' ), NINT(avrSWAP(2)/avrSWAP(3))\n")
+    file.write("    WRITE(n_t_global, '(I0.0)' ) NINT(avrSWAP(2)/avrSWAP(3))\n")
     file.write("    InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp'\n")
     file.write("    OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='READ' )\n")
     file.write("\n")

diff --git a/ROSCO/src/ROSCO_IO.f90 b/ROSCO/src/ROSCO_IO.f90
@@ -25,7 +25,7 @@ SUBROUTINE WriteRestartFile(LocalVar, CntrPar, objInst, RootName, size_avcOUTNAM
     CHARACTER(128)               :: ErrMsg              
     CHARACTER(128)               :: n_t_global          ! timestep number as a string
 
-    WRITE(n_t_global, '(I0.0)' ), NINT(LocalVar%Time/LocalVar%DT)
+    WRITE(n_t_global, '(I0.0)' ) NINT(LocalVar%Time/LocalVar%DT)
     InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp'
     OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='WRITE' )
 
@@ -196,7 +196,7 @@ SUBROUTINE ReadRestartFile(avrSWAP, LocalVar, CntrPar, objInst, PerfData, RootNa
     CHARACTER(128)               :: ErrMsg              
     CHARACTER(128)               :: n_t_global          ! timestep number as a string
 
-    WRITE(n_t_global, '(I0.0)' ), NINT(avrSWAP(2)/avrSWAP(3))
+    WRITE(n_t_global, '(I0.0)' ) NINT(avrSWAP(2)/avrSWAP(3))
     InFile = RootName(1:size_avcOUTNAME-5)//TRIM( n_t_global )//'.RO.chkp'
     OPEN(unit=Un, FILE=TRIM(InFile), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='READ' )