Changeset 3785 for palm/trunk/UTIL/inifor/tests/util.f90

Timestamp:

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

Author:

eckhard

Message:

inifor: Removed unused variables, improved coding style

File:

• palm/trunk/UTIL/inifor/tests/util.f90 (modified) (5 diffs)

palm/trunk/UTIL/inifor/tests/util.f90

@@ -15 +15 @@
 ! PALM. If not, see <http://www.gnu.org/licenses/>.
 !
-! Copyright 2017-2018 Leibniz Universitaet Hannover
-! Copyright 2017-2018 Deutscher Wetterdienst Offenbach
+! Copyright 2017-2019 Leibniz Universitaet Hannover
+! Copyright 2017-2019 Deutscher Wetterdienst Offenbach
 !------------------------------------------------------------------------------!
 !
@@ -71 +71 @@
           msg = 'failed.'
           label = ' [XX]'
-       END IF
+       ENDIF
 
        PRINT '(/A, A, A, A)', TRIM(label) // "  Test '", TRIM(title), "' ", TRIM(msg)
@@ -87 +87 @@
        ELSE
            assert_equal = assert(a, b, 'eq')
-       END IF
+       ENDIF
 
        IF (assert_equal .eqv. .TRUE.)  THEN
@@ -94 +94 @@
            PRINT *, "Equality assertion for ", msg, " failed. Maximum error is ",               &
               MAXVAL( ABS( a - b))
-       END IF
+       ENDIF
 
     END FUNCTION assert_equal
@@ -125 +125 @@
                 mag    = MAX( ABS(a(i)), ABS(b(i)) )
                 assert = assert .AND. (diff < mag * max_rel_diff )
-             END DO
-          END IF 
+             ENDDO
+          ENDIF 
 
        CASE DEFAULT