1C Copyright 1996, UCAR/Unidata 2C See netcdf/COPYRIGHT file for copying and redistribution conditions. 3 4C Steve Emmerson, Ed Hartnett 5 6C 7C Use for logging error messages 8C 9 subroutine error(msg) 10 USE tests 11 implicit none 12 character*(*) msg 13 14 nfails = nfails + 1 15 if (nfails .le. max_nmpt) print *, msg 16 end 17 18 19C 20C Use for logging error conditions 21C 22 subroutine errori(msg, i) 23 USE tests 24 implicit none 25 character*(*) msg 26 integer i 27 28 nfails = nfails + 1 29 if (nfails .le. max_nmpt) print *, msg, i 30 end 31 32 33C 34C Use for logging error conditions 35C 36 subroutine errord(msg, d) 37 USE tests 38 implicit none 39 character*(*) msg 40 doubleprecision d 41 42 nfails = nfails + 1 43 if (nfails .le. max_nmpt) print *, msg, d 44 end 45 46 47C 48C Use for logging error conditions 49C 50 subroutine errorc(msg, string) 51 USE tests 52 implicit none 53 character*(*) msg 54 character*(*) string 55 56 nfails = nfails + 1 57 if (nfails .le. max_nmpt) print *, msg, 58 + string(1:len_trim(string)) 59 end 60 61 62C 63C Use for logging error conditions 64C 65 subroutine errore(msg, err) 66 USE tests 67 implicit none 68 character*(*) msg 69 integer err 70 71 call errorc(msg, nf_strerror(err)) 72 end 73