"Fossies" - the Fresh Open Source Software Archive

Member "netcdf-fortran-4.4.5/nf_test/handle_err.F" (31 Jan 2019, 642 Bytes) of package /linux/misc/netcdf-fortran-4.4.5.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     This is part of the netCDF package.
    2 C     Copyright 2005 University Corporation for Atmospheric Research/Unidata.
    3 C     See COPYRIGHT file for conditions of use.
    4 
    5 C     This is the error handling function for some of the F77
    6 C     tests. This error handler comes from the netcdf tutorial.
    7 
    8 C     $Id: handle_err.F,v 1.1 2009/06/07 13:17:26 ed Exp $
    9 
   10 C     This subroutine handles errors by printing an error message and
   11 C     exiting with a non-zero status.
   12       subroutine handle_err(errcode)
   13       implicit none
   14       include 'netcdf.inc'
   15       integer errcode
   16 
   17       print *, 'Error: ', nf_strerror(errcode)
   18       stop 2
   19       end
   20