source:
LMDZ5/branches/LMDZ5-DOFOCO/tools/Max_diff_nc_with_lib/NR_util/nrerror.f90
@
2904
Last change on this file since 2904 was 1765, checked in by , 11 years ago | |
---|---|
File size: 256 bytes |
Line | |
---|---|
1 | module nrerror_m |
2 | |
3 | implicit none |
4 | |
5 | contains |
6 | |
7 | SUBROUTINE nrerror(string) |
8 | |
9 | CHARACTER(LEN=*), INTENT(IN) :: string |
10 | |
11 | print *, 'nrerror: ', string |
12 | print *, 'program terminated by nrerror' |
13 | stop 1 |
14 | |
15 | END SUBROUTINE nrerror |
16 | |
17 | end module nrerror_m |
Note: See TracBrowser
for help on using the repository browser.