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