SUBROUTINE GDF_UPIH (IS,NAME,ERROR)
----------------------------------------------------------------------
GDF UPdate Image Header
Update an image header
Arguments :
IS I Image slot Input
NAME C*(*) Gildas Data Frame name Input
ERROR L Logical error flag Output
Subroutines :
----------------------------------------------------------------------
SUBROUTINE GDF_RHSEC(IS,TYPE,ARRAY,SIZE,ERROR)
----------------------------------------------------------------------
GDF Read Header Section
Find information Gildas Data Frame header
Arguments
IS I Image slot number Input
TYPE C*12 Information wanted Input
ARRAY I (*) Array to receive information Output
LENGTH I Size of array Input/Output
ERROR L Logical error flag Output
Subroutines :
SIC_AMBIGS, R4TOR4
----------------------------------------------------------------------
SUBROUTINE GDF_WHSEC(IS,TYPE,ARRAY,SIZE,ERROR)
----------------------------------------------------------------------
GDF Write Header SECtion
Write a descriptor in Header of file.
Arguments :
IS I Image slot Input
TYPE C*(*) Type of section Input
ARRAY I(*) Address of section Input
LENGTH I Length of section (Words) Input
ERROR L Logical error status Output
Subroutines :
SIC_AMBIGS, R4TOR4
----------------------------------------------------------------------