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