1#if 0 2 Copyright 1996, UCAR/Unidata 3 See netcdf/COPYRIGHT file for copying and redistribution conditions. 4 $Id: nf_error.F 2223 2015-12-15 16:10:30Z wkliao $ 5#endif 6 7 8C 9C Use for logging error messages 10C 11 subroutine error(msg) 12 implicit none 13 character*(*) msg 14 include "pnetcdf.inc" 15#include "tests.inc" 16 17 nfails = nfails + 1 18 if (nfails .le. max_nmpt) print *, msg 19 end 20 21 22C 23C Use for logging error conditions 24C 25 subroutine errori(msg, i) 26 implicit none 27 character*(*) msg 28 integer i 29 include "pnetcdf.inc" 30#include "tests.inc" 31 32 nfails = nfails + 1 33 if (nfails .le. max_nmpt) print *, msg, i 34 end 35 36 37C 38C Use for logging error conditions 39C 40 subroutine errord(msg, d) 41 implicit none 42 character*(*) msg 43 doubleprecision d 44 include "pnetcdf.inc" 45#include "tests.inc" 46 47 nfails = nfails + 1 48 if (nfails .le. max_nmpt) print *, msg, d 49 end 50 51 52C 53C Use for logging error conditions 54C 55 subroutine errorc(msg, string) 56 implicit none 57 character*(*) msg 58 character*(*) string 59 include "pnetcdf.inc" 60#include "tests.inc" 61 62 integer MY_LEN_TRIM 63 nfails = nfails + 1 64 if (nfails .le. max_nmpt) print *, msg, 65 + TRIM(string) ! string(1:len_trim(string)) 66 end 67 68 69C 70C Use for logging error conditions 71C 72 subroutine errore(msg, err) 73 implicit none 74 character*(*) msg 75 integer err 76 include "pnetcdf.inc" 77#include "tests.inc" 78 79 nfails = nfails + 1 80 call errorc(msg, nfmpi_strerror(err)) 81 end 82