mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-07 16:37:56 +08:00
858cb12fe4
Fixed warnings from absoft's compiler for !DEC$ statements. Solution: There should not be a space after !DEC$ statements, removed the spaces. Platforms tested: Jam with gcc and f95
294 lines
8.8 KiB
Fortran
294 lines
8.8 KiB
Fortran
!****h* fortran/src/H5Eff.f90
|
|
!
|
|
! NAME
|
|
! H5E
|
|
!
|
|
! FUNCTION
|
|
! This file contains Fortran interfaces for H5E functions.
|
|
!
|
|
! COPYRIGHT
|
|
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
! Copyright by The HDF Group. *
|
|
! Copyright by the Board of Trustees of the University of Illinois. *
|
|
! All rights reserved. *
|
|
! *
|
|
! This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
! terms governing use, modification, and redistribution, is contained in *
|
|
! the files COPYING and Copyright.html. COPYING can be found at the root *
|
|
! of the source code distribution tree; Copyright.html can be found at the *
|
|
! root level of an installed copy of the electronic HDF5 document set and *
|
|
! is linked from the top-level documents page. It can also be found at *
|
|
! http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
|
|
! access to either file, you may request a copy from help@hdfgroup.org. *
|
|
! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
!
|
|
! NOTES
|
|
! *** IMPORTANT ***
|
|
! If you add a new H5E function you must add the function name to the
|
|
! Windows dll file 'hdf5_fortrandll.def' in the fortran/src directory.
|
|
! This is needed for Windows based operating systems.
|
|
!
|
|
!*****
|
|
|
|
MODULE H5E
|
|
|
|
USE H5GLOBAL
|
|
|
|
!Turn on automatic printing of errors
|
|
INTEGER, PARAMETER :: PRINTON = 1
|
|
|
|
!Turn off automatic printing of errors
|
|
INTEGER, PARAMETER :: PRINTOFF = 0
|
|
|
|
CONTAINS
|
|
|
|
!----------------------------------------------------------------------
|
|
! Name: h5eclear_f
|
|
!
|
|
! Purpose: Clears the error stack for the current thread.
|
|
!
|
|
! Inputs:
|
|
! Outputs:
|
|
! hdferr: - error code
|
|
! Success: 0
|
|
! Failure: -1
|
|
! Optional parameters:
|
|
!
|
|
!
|
|
!
|
|
!
|
|
! Programmer: Elena Pourmal
|
|
! August 12, 1999
|
|
!
|
|
! Modifications: Explicit Fortran interfaces were added for
|
|
! called C functions (it is needed for Windows
|
|
! port). April 6, 2001
|
|
!
|
|
! Comment:
|
|
!----------------------------------------------------------------------
|
|
|
|
SUBROUTINE h5eclear_f(hdferr)
|
|
IMPLICIT NONE
|
|
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
|
|
|
! INTEGER, EXTERNAL :: h5eclear_c
|
|
! MS FORTRAN needs explicit interface for C functions called here.
|
|
!
|
|
INTERFACE
|
|
INTEGER FUNCTION h5eclear_c()
|
|
USE H5GLOBAL
|
|
!DEC$IF DEFINED(HDF5F90_WINDOWS)
|
|
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5ECLEAR_C'::h5eclear_c
|
|
!DEC$ENDIF
|
|
END FUNCTION h5eclear_c
|
|
END INTERFACE
|
|
hdferr = h5eclear_c()
|
|
END SUBROUTINE h5eclear_f
|
|
|
|
!----------------------------------------------------------------------
|
|
! Name: h5h5eprint_f
|
|
!
|
|
! Purpose: Prints the error stack in a default manner.
|
|
!
|
|
! Inputs:
|
|
! Outputs:
|
|
! hdferr: - error code
|
|
! Success: 0
|
|
! Failure: -1
|
|
! Optional parameters:
|
|
! name - name of the file that
|
|
! contains print output
|
|
!
|
|
! Programmer: Elena Pourmal
|
|
! August 12, 1999
|
|
!
|
|
! Modifications: Explicit Fortran interfaces were added for
|
|
! called C functions (it is needed for Windows
|
|
! port). April 6, 2001
|
|
!
|
|
! Comment:
|
|
!----------------------------------------------------------------------
|
|
|
|
SUBROUTINE h5eprint_f(hdferr, name)
|
|
CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: name ! File name
|
|
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
|
INTEGER :: namelen
|
|
|
|
INTERFACE
|
|
INTEGER FUNCTION h5eprint_c1(name, namelen)
|
|
USE H5GLOBAL
|
|
!DEC$IF DEFINED(HDF5F90_WINDOWS)
|
|
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5EPRINT_C1'::h5eprint_c1
|
|
!DEC$ENDIF
|
|
!DEC$ATTRIBUTES reference :: name
|
|
INTEGER :: namelen
|
|
CHARACTER(LEN=*),INTENT(IN) :: name
|
|
END FUNCTION h5eprint_c1
|
|
END INTERFACE
|
|
|
|
INTERFACE
|
|
INTEGER FUNCTION h5eprint_c2()
|
|
USE H5GLOBAL
|
|
!DEC$IF DEFINED(HDF5F90_WINDOWS)
|
|
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5EPRINT_C2'::h5eprint_c2
|
|
!DEC$ENDIF
|
|
END FUNCTION h5eprint_c2
|
|
END INTERFACE
|
|
namelen = LEN(NAME)
|
|
IF (PRESENT(name)) THEN
|
|
hdferr = h5eprint_c1(name, namelen)
|
|
ELSE
|
|
hdferr = h5eprint_c2()
|
|
ENDIF
|
|
END SUBROUTINE h5eprint_f
|
|
|
|
!----------------------------------------------------------------------
|
|
! Name: h5eget_major_f
|
|
!
|
|
! Purpose: Returns a character string describing an error specified
|
|
! by a major error number.
|
|
!
|
|
! Inputs:
|
|
! error_no - mojor error number
|
|
! Outputs:
|
|
! name - character string describing the error
|
|
! namelen - number of characters in the name buffer
|
|
! hdferr: - error code
|
|
! Success: 0
|
|
! Failure: -1
|
|
! Optional parameters:
|
|
!
|
|
! Programmer: Elena Pourmal
|
|
! August 12, 1999
|
|
!
|
|
! Modifications: Explicit Fortran interfaces were added for
|
|
! called C functions (it is needed for Windows
|
|
! port). April 6, 2001
|
|
!
|
|
! Comment:
|
|
!----------------------------------------------------------------------
|
|
|
|
SUBROUTINE h5eget_major_f(error_no, name, namelen, hdferr)
|
|
INTEGER, INTENT(IN) :: error_no ! Major error number
|
|
CHARACTER(LEN=*), INTENT(OUT) :: name ! Character string describing
|
|
! the error.
|
|
INTEGER(SIZE_T), INTENT(IN) :: namelen !Anticipated number of characters in name.
|
|
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
|
|
|
INTERFACE
|
|
INTEGER FUNCTION h5eget_major_c(error_no, name, namelen)
|
|
USE H5GLOBAL
|
|
!DEC$IF DEFINED(HDF5F90_WINDOWS)
|
|
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5EGET_MAJOR_C'::h5eget_major_c
|
|
!DEC$ENDIF
|
|
!DEC$ATTRIBUTES reference :: name
|
|
INTEGER :: error_no
|
|
CHARACTER(LEN=*) :: name
|
|
INTEGER(SIZE_T), INTENT(IN) :: namelen
|
|
END FUNCTION h5eget_major_c
|
|
END INTERFACE
|
|
|
|
hdferr = h5eget_major_c(error_no, name, namelen)
|
|
END SUBROUTINE h5eget_major_f
|
|
|
|
!----------------------------------------------------------------------
|
|
! Name: h5eget_minor_f
|
|
!
|
|
! Purpose: Returns a character string describing an error specified
|
|
! by a minor error number.
|
|
!
|
|
! Inputs:
|
|
! error_no - minor error number
|
|
! Outputs:
|
|
! name - character string describing the error
|
|
! hdferr: - error code
|
|
! Success: 0
|
|
! Failure: -1
|
|
! Optional parameters:
|
|
!
|
|
!
|
|
!
|
|
!
|
|
! Programmer: Elena Pourmal
|
|
! August 12, 1999
|
|
!
|
|
! Modifications: Explicit Fortran interfaces were added for
|
|
! called C functions (it is needed for Windows
|
|
! port). April 6, 2001
|
|
!
|
|
! Comment:
|
|
!----------------------------------------------------------------------
|
|
|
|
SUBROUTINE h5eget_minor_f(error_no, name, hdferr)
|
|
INTEGER, INTENT(IN) :: error_no !Major error number
|
|
CHARACTER(LEN=*), INTENT(OUT) :: name ! Character string describing
|
|
! the error
|
|
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
|
|
|
INTERFACE
|
|
INTEGER FUNCTION h5eget_minor_c(error_no, name)
|
|
USE H5GLOBAL
|
|
!DEC$IF DEFINED(HDF5F90_WINDOWS)
|
|
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5EGET_MINOR_C'::h5eget_minor_c
|
|
!DEC$ENDIF
|
|
!DEC$ATTRIBUTES reference :: name
|
|
INTEGER :: error_no
|
|
CHARACTER(LEN=*) :: name
|
|
END FUNCTION h5eget_minor_c
|
|
END INTERFACE
|
|
|
|
hdferr = h5eget_minor_c(error_no, name)
|
|
END SUBROUTINE h5eget_minor_f
|
|
!----------------------------------------------------------------------
|
|
! Name: h5eset_auto_f
|
|
!
|
|
! Purpose: Turns automatic error printing on or off
|
|
!
|
|
! Inputs:
|
|
! printflag - flag to turn automatic error
|
|
! - Possible values are:
|
|
! - 1 (on), 0 (off)
|
|
! Outputs:
|
|
! hdferr: - error code
|
|
! Success: 0
|
|
! Failure: -1
|
|
! Optional parameters:
|
|
!
|
|
!
|
|
!
|
|
!
|
|
! Programmer: Elena Pourmal
|
|
! August 12, 1999
|
|
!
|
|
! Modifications: Explicit Fortran interfaces were added for
|
|
! called C functions (it is needed for Windows
|
|
! port). April 6, 2001
|
|
!
|
|
! Comment:
|
|
!----------------------------------------------------------------------
|
|
|
|
|
|
SUBROUTINE h5eset_auto_f(printflag, hdferr)
|
|
INTEGER, INTENT(IN) :: printflag !flag to turn automatic error
|
|
!printing on or off
|
|
!possible values are:
|
|
!printon (1)
|
|
!printoff(0)
|
|
INTEGER, INTENT(OUT) :: hdferr ! Error code
|
|
|
|
INTERFACE
|
|
INTEGER FUNCTION h5eset_auto_c(printflag)
|
|
USE H5GLOBAL
|
|
!DEC$IF DEFINED(HDF5F90_WINDOWS)
|
|
!DEC$ATTRIBUTES C,reference,decorate,alias:'H5ESET_AUTO_C'::h5eset_auto_c
|
|
!DEC$ENDIF
|
|
INTEGER :: printflag
|
|
END FUNCTION h5eset_auto_c
|
|
END INTERFACE
|
|
|
|
hdferr = h5eset_auto_c(printflag)
|
|
END SUBROUTINE h5eset_auto_f
|
|
|
|
END MODULE H5E
|
|
|