"Fossies" - the Fresh Open Source Software Archive

Member "netcdf-fortran-4.5.2/nf_test/nf03_error.F" (18 Sep 2019, 1368 Bytes) of package /linux/misc/netcdf-fortran-4.5.2.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Fortran 77 source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 C     Copyright 1996, UCAR/Unidata
    2 C     See netcdf/COPYRIGHT file for copying and redistribution conditions.
    3 
    4 C     Steve Emmerson, Ed Hartnett
    5 
    6 C
    7 C     Use for logging error messages
    8 C
    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 
   19 C
   20 C     Use for logging error conditions
   21 C
   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 
   33 C
   34 C     Use for logging error conditions
   35 C
   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 
   47 C
   48 C     Use for logging error conditions
   49 C
   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 
   62 C
   63 C     Use for logging error conditions
   64 C
   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