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

Timestamp:

Jul 24, 2024, 1:17:08 PM (2 months ago)

Author:

abarral

Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_assert.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/assert_m.F90) (1 diff)

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

@@ -1 +1 @@
 ! $Id$
-MODULE assert_m
+MODULE lmdz_assert
 
-  implicit none
+  IMPLICIT NONE
 
   INTERFACE assert
-     MODULE PROCEDURE assert1,assert2,assert3,assert4,assert_v
+    MODULE PROCEDURE assert1, assert2, assert3, assert4, assert_v
   END INTERFACE
 
-  private assert1,assert2,assert3,assert4,assert_v
+  PRIVATE assert1, assert2, assert3, assert4, assert_v
 
 CONTAINS
 
-  SUBROUTINE assert1(n1,string)
-    CHARACTER(LEN=*), INTENT(IN) :: string
+  SUBROUTINE assert1(n1, string)
+    CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, INTENT(IN) :: n1
     if (.not. n1) then
-       write (*,*) 'nrerror: an assertion failed with this tag:', &
-            string
-       print *, 'program terminated by assert1'
-       stop 1
+      write (*, *) 'nrerror: an assertion failed with this tag:', &
+              string
+      print *, 'program terminated by assert1'
+      stop 1
     end if
   END SUBROUTINE assert1
   !BL
-  SUBROUTINE assert2(n1,n2,string)
-    CHARACTER(LEN=*), INTENT(IN) :: string
-    LOGICAL, INTENT(IN) :: n1,n2
+  SUBROUTINE assert2(n1, n2, string)
+    CHARACTER(LEN = *), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1, n2
     if (.not. (n1 .and. n2)) then
-       write (*,*) 'nrerror: an assertion failed with this tag:', &
-            string
-       print *, 'program terminated by assert2'
-       stop 1
+      write (*, *) 'nrerror: an assertion failed with this tag:', &
+              string
+      print *, 'program terminated by assert2'
+      stop 1
     end if
   END SUBROUTINE assert2
   !BL
-  SUBROUTINE assert3(n1,n2,n3,string)
-    CHARACTER(LEN=*), INTENT(IN) :: string
-    LOGICAL, INTENT(IN) :: n1,n2,n3
+  SUBROUTINE assert3(n1, n2, n3, string)
+    CHARACTER(LEN = *), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1, n2, n3
     if (.not. (n1 .and. n2 .and. n3)) then
-       write (*,*) 'nrerror: an assertion failed with this tag:', &
-            string
-       print *, 'program terminated by assert3'
-       stop 1
+      write (*, *) 'nrerror: an assertion failed with this tag:', &
+              string
+      print *, 'program terminated by assert3'
+      stop 1
     end if
   END SUBROUTINE assert3
   !BL
-  SUBROUTINE assert4(n1,n2,n3,n4,string)
-    CHARACTER(LEN=*), INTENT(IN) :: string
-    LOGICAL, INTENT(IN) :: n1,n2,n3,n4
+  SUBROUTINE assert4(n1, n2, n3, n4, string)
+    CHARACTER(LEN = *), INTENT(IN) :: string
+    LOGICAL, INTENT(IN) :: n1, n2, n3, n4
     if (.not. (n1 .and. n2 .and. n3 .and. n4)) then
-       write (*,*) 'nrerror: an assertion failed with this tag:', &
-            string
-       print *, 'program terminated by assert4'
-       stop 1
+      write (*, *) 'nrerror: an assertion failed with this tag:', &
+              string
+      print *, 'program terminated by assert4'
+      stop 1
     end if
   END SUBROUTINE assert4
   !BL
-  SUBROUTINE assert_v(n,string)
-    CHARACTER(LEN=*), INTENT(IN) :: string
+  SUBROUTINE assert_v(n, string)
+    CHARACTER(LEN = *), INTENT(IN) :: string
     LOGICAL, DIMENSION(:), INTENT(IN) :: n
     if (.not. all(n)) then
-       write (*,*) 'nrerror: an assertion failed with this tag:', &
-            string
-       print *, 'program terminated by assert_v'
-       stop 1
+      write (*, *) 'nrerror: an assertion failed with this tag:', &
+              string
+      print *, 'program terminated by assert_v'
+      stop 1
     end if
   END SUBROUTINE assert_v
 
-END MODULE assert_m
+END MODULE lmdz_assert