Changeset 3785 for palm/trunk/UTIL/inifor/src/inifor_util.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_util.f90 (modified) (3 diffs)

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

@@ -250 +250 @@
           DO i = 0, n
              array(i) = start + REAL(i, dp) / n * (stop - start)
-          END DO
-
-       END IF
+          ENDDO
+
+       ENDIF
        
     END SUBROUTINE linspace
@@ -366 +366 @@
         ELSE
            WRITE(real_to_str, '(E11.4)') val
-        END IF
+        ENDIF
         real_to_str = ADJUSTL(real_to_str)
 
@@ -416 +416 @@
         IF (path(n:n) .NE. '/')  THEN
            path = TRIM(path) // '/'
-        END IF
+        ENDIF
 
     END SUBROUTINE