Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_assert.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_assert.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_assert.f90

@@ -15 +15 @@
     CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, INTENT(IN) :: n1
-    if (.not. n1) THEN
+    IF (.NOT. n1) THEN
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
@@ -26 +26 @@
     CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, INTENT(IN) :: n1, n2
-    if (.not. (n1 .and. n2)) THEN
+    IF (.NOT. (n1 .AND. n2)) THEN
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
@@ -37 +37 @@
     CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, INTENT(IN) :: n1, n2, n3
-    if (.not. (n1 .and. n2 .and. n3)) THEN
+    IF (.NOT. (n1 .AND. n2 .AND. n3)) THEN
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
@@ -48 +48 @@
     CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, INTENT(IN) :: n1, n2, n3, n4
-    if (.not. (n1 .and. n2 .and. n3 .and. n4)) THEN
+    IF (.NOT. (n1 .AND. n2 .AND. n3 .AND. n4)) THEN
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string
@@ -59 +59 @@
     CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, DIMENSION(:), INTENT(IN) :: n
-    if (.not. all(n)) THEN
+    IF (.NOT. all(n)) THEN
       write (*, *) 'nrerror: an assertion failed with this tag:', &
               string