4 module procedure assert_int, assert_real, assert_string
9 subroutine assert_int(lcond,msg,ival)
11 logical,
intent(in) :: lcond
12 character*(*),
intent(in) :: msg
13 integer,
intent(in) :: ival
17 stop
'** assertion error ** '
21 end subroutine assert_int
24 subroutine assert_real(lcond,msg,ival)
26 logical,
intent(in) :: lcond
27 character*(*),
intent(in) :: msg
28 real(rprec),
intent(in) :: ival
32 stop
'** assertion error ** '
36 end subroutine assert_real
39 subroutine assert_string(lcond,msg,ival)
41 logical,
intent(in) :: lcond
42 character*(*),
intent(in) :: msg
43 character*(*),
intent(in) :: ival
47 stop
'** assertion error ** '
51 end subroutine assert_string