Changeset 3785 for palm/trunk/UTIL/inifor/src/inifor_control.f90

Timestamp:

Mar 6, 2019 10:41:14 AM (5 years ago)

Author:

eckhard

Message:

inifor: Removed unused variables, improved coding style

File:

• palm/trunk/UTIL/inifor/src/inifor_control.f90 (modified) (2 diffs)

palm/trunk/UTIL/inifor/src/inifor_control.f90

@@ -110 +110 @@
        ELSE
           OPEN( NEWUNIT=u, FILE='inifor.log', POSITION='append', STATUS='old' )
-       END IF
+       ENDIF
           
 
@@ -116 +116 @@
        IF ( PRESENT(debug) )  THEN
           IF ( .NOT. debug )  suppress_message = .TRUE.
-       END IF
+       ENDIF
 
        IF ( .NOT. suppress_message )  THEN
           PRINT *, "inifor: " // TRIM(message) // "  [ " // TRIM(routine) // " ]"
           WRITE(u, *)  TRIM(message) // "  [ " // TRIM(routine) // " ]"
-       END IF
+       ENDIF
 
        CLOSE(u)