mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-03 08:01:25 +08:00
76 lines
1.5 KiB
Fortran
76 lines
1.5 KiB
Fortran
#if 0
|
|
Copyright 1996, UCAR/Unidata
|
|
See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
$Id: nf_error.F,v 1.4 1997/06/03 22:26:09 steve Exp $
|
|
#endif
|
|
|
|
|
|
C
|
|
C Use for logging error messages
|
|
C
|
|
subroutine error(msg)
|
|
implicit none
|
|
character*(*) msg
|
|
#include "tests.inc"
|
|
|
|
nfails = nfails + 1
|
|
if (nfails .le. max_nmpt) print *, msg
|
|
end
|
|
|
|
|
|
C
|
|
C Use for logging error conditions
|
|
C
|
|
subroutine errori(msg, i)
|
|
implicit none
|
|
character*(*) msg
|
|
integer i
|
|
#include "tests.inc"
|
|
|
|
nfails = nfails + 1
|
|
if (nfails .le. max_nmpt) print *, msg, i
|
|
end
|
|
|
|
|
|
C
|
|
C Use for logging error conditions
|
|
C
|
|
subroutine errord(msg, d)
|
|
implicit none
|
|
character*(*) msg
|
|
doubleprecision d
|
|
#include "tests.inc"
|
|
|
|
nfails = nfails + 1
|
|
if (nfails .le. max_nmpt) print *, msg, d
|
|
end
|
|
|
|
|
|
C
|
|
C Use for logging error conditions
|
|
C
|
|
subroutine errorc(msg, string)
|
|
implicit none
|
|
character*(*) msg
|
|
character*(*) string
|
|
#include "tests.inc"
|
|
|
|
nfails = nfails + 1
|
|
if (nfails .le. max_nmpt) print *, msg,
|
|
+ string(1:len_trim(string))
|
|
end
|
|
|
|
|
|
C
|
|
C Use for logging error conditions
|
|
C
|
|
subroutine errore(msg, err)
|
|
implicit none
|
|
character*(*) msg
|
|
integer err
|
|
#include "tests.inc"
|
|
|
|
nfails = nfails + 1
|
|
call errorc(msg, nf_strerror(err))
|
|
end
|