source: LMDZ5/trunk/libf/bibio/assert_m.F90 @ 1724

Last change on this file since 1724 was 1279, checked in by Laurent Fairhead, 15 years ago

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

File size: 1.9 KB
Line 
1! $Id$
2MODULE assert_m
3
4  implicit none
5
6  INTERFACE assert
7     MODULE PROCEDURE assert1,assert2,assert3,assert4,assert_v
8  END INTERFACE
9
10  private assert1,assert2,assert3,assert4,assert_v
11
12CONTAINS
13
14  SUBROUTINE assert1(n1,string)
15    CHARACTER(LEN=*), INTENT(IN) :: string
16    LOGICAL, INTENT(IN) :: n1
17    if (.not. n1) then
18       write (*,*) 'nrerror: an assertion failed with this tag:', &
19            string
20       print *, 'program terminated by assert1'
21       stop 1
22    end if
23  END SUBROUTINE assert1
24  !BL
25  SUBROUTINE assert2(n1,n2,string)
26    CHARACTER(LEN=*), INTENT(IN) :: string
27    LOGICAL, INTENT(IN) :: n1,n2
28    if (.not. (n1 .and. n2)) then
29       write (*,*) 'nrerror: an assertion failed with this tag:', &
30            string
31       print *, 'program terminated by assert2'
32       stop 1
33    end if
34  END SUBROUTINE assert2
35  !BL
36  SUBROUTINE assert3(n1,n2,n3,string)
37    CHARACTER(LEN=*), INTENT(IN) :: string
38    LOGICAL, INTENT(IN) :: n1,n2,n3
39    if (.not. (n1 .and. n2 .and. n3)) then
40       write (*,*) 'nrerror: an assertion failed with this tag:', &
41            string
42       print *, 'program terminated by assert3'
43       stop 1
44    end if
45  END SUBROUTINE assert3
46  !BL
47  SUBROUTINE assert4(n1,n2,n3,n4,string)
48    CHARACTER(LEN=*), INTENT(IN) :: string
49    LOGICAL, INTENT(IN) :: n1,n2,n3,n4
50    if (.not. (n1 .and. n2 .and. n3 .and. n4)) then
51       write (*,*) 'nrerror: an assertion failed with this tag:', &
52            string
53       print *, 'program terminated by assert4'
54       stop 1
55    end if
56  END SUBROUTINE assert4
57  !BL
58  SUBROUTINE assert_v(n,string)
59    CHARACTER(LEN=*), INTENT(IN) :: string
60    LOGICAL, DIMENSION(:), INTENT(IN) :: n
61    if (.not. all(n)) then
62       write (*,*) 'nrerror: an assertion failed with this tag:', &
63            string
64       print *, 'program terminated by assert_v'
65       stop 1
66    end if
67  END SUBROUTINE assert_v
68
69END MODULE assert_m
Note: See TracBrowser for help on using the repository browser.