C------------------------------------------------------------------------------
C
C  NSSDC/CDF				Digital FORTRAN-specific include
C					file for FORTRAN interface.
C
C  Version 1.0, 20-Sep-99, Raytheon ITSS.
C
C  Modification history:
C
C   V1.0  20-Sep-99, M Liu      Original version.
C   V1.1  08-Apr-04, M Liu      Added  new data type CDF_EPOCH16 and some
C                               epoch functions related to the new type.
C
C------------------------------------------------------------------------------

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib' :: CDF_LIB
         END FUNCTION CDF_LIB
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_4
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_4
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_4' :: CDF_LIB_4
         END FUNCTION CDF_LIB_4
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_5
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_5
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_5' :: CDF_LIB_5
         END FUNCTION CDF_LIB_5
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_6
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_6
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_6' :: CDF_LIB_6
         END FUNCTION CDF_LIB_6
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_7
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_7
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_7' :: CDF_LIB_7
         END FUNCTION CDF_LIB_7
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_8
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_8
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_8' :: CDF_LIB_8
         END FUNCTION CDF_LIB_8
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_9
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_9
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_9' :: CDF_LIB_9
         END FUNCTION CDF_LIB_9
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_10
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_10
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_10' :: CDF_LIB_10
         END FUNCTION CDF_LIB_10
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_11
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_11
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_11' :: CDF_LIB_11
         END FUNCTION CDF_LIB_11
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_12
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_12
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_12' :: CDF_LIB_12
         END FUNCTION CDF_LIB_12
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_13
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_13
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_13' :: CDF_LIB_13
         END FUNCTION CDF_LIB_13
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_14
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_14
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_14' :: CDF_LIB_14
         END FUNCTION CDF_LIB_14
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_15
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_15
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_15' :: CDF_LIB_15
         END FUNCTION CDF_LIB_15
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_16
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_16
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_16' :: CDF_LIB_16
         END FUNCTION CDF_LIB_16
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_17
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_17
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_17' :: CDF_LIB_17
         END FUNCTION CDF_LIB_17
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_18
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_18
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_18' :: CDF_LIB_18
         END FUNCTION CDF_LIB_18
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_19
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_19
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_19' :: CDF_LIB_19
         END FUNCTION CDF_LIB_19
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_20
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_20
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_20' :: CDF_LIB_20
         END FUNCTION CDF_LIB_20
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_21
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_21
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_21' :: CDF_LIB_21
         END FUNCTION CDF_LIB_21
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_22
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_22
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_22' :: CDF_LIB_22
         END FUNCTION CDF_LIB_22
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_23
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_23
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_23' :: CDF_LIB_23
         END FUNCTION CDF_LIB_23
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_24
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_24
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_24' :: CDF_LIB_24
         END FUNCTION CDF_LIB_24
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_LIB_25
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_LIB_25
          !DEC$ ATTRIBUTES ALIAS:'_cdf_lib_25' :: CDF_LIB_25
         END FUNCTION CDF_LIB_25
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_OPEN
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_OPEN
          !DEC$ ATTRIBUTES ALIAS:'_cdf_open' :: CDF_OPEN
         END SUBROUTINE CDF_OPEN
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_OPEN_CDF
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_OPEN_CDF
          !DEC$ ATTRIBUTES ALIAS:'_cdf_open_cdf' :: CDF_OPEN_CDF
         END SUBROUTINE CDF_OPEN_CDF
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_CREATE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_CREATE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_create' :: CDF_CREATE
         END SUBROUTINE CDF_CREATE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_CREATE_CDF
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_CREATE_CDF
          !DEC$ ATTRIBUTES ALIAS:'_cdf_create_cdf' :: CDF_CREATE_CDF
         END SUBROUTINE CDF_CREATE_CDF
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_INQUIRE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_INQUIRE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_inquire' :: CDF_INQUIRE
         END SUBROUTINE CDF_INQUIRE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_INQUIRE_CDF
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_INQUIRE_CDF
          !DEC$ ATTRIBUTES ALIAS:'_cdf_inquire_cdf' :: CDF_INQUIRE_CDF
         END SUBROUTINE CDF_INQUIRE_CDF
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_DOC
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_DOC
          !DEC$ ATTRIBUTES ALIAS:'_cdf_doc' :: CDF_DOC
         END SUBROUTINE CDF_DOC
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_CLOSE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_CLOSE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_close' :: CDF_CLOSE
         END SUBROUTINE CDF_CLOSE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_CLOSE_CDF
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_CLOSE_CDF
          !DEC$ ATTRIBUTES ALIAS:'_cdf_close_cdf' :: CDF_CLOSE_CDF
         END SUBROUTINE CDF_CLOSE_CDF
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_DELETE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_DELETE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_delete' :: CDF_DELETE
         END SUBROUTINE CDF_DELETE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_DELETE_CDF
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_DELETE_CDF
          !DEC$ ATTRIBUTES ALIAS:'_cdf_delete_cdf' :: CDF_DELETE_CDF
         END SUBROUTINE CDF_DELETE_CDF
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_CREATE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_CREATE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_create' :: CDF_VAR_CREATE
         END SUBROUTINE CDF_VAR_CREATE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_INQUIRE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_INQUIRE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_inquire' :: CDF_VAR_INQUIRE
         END SUBROUTINE CDF_VAR_INQUIRE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_RENAME
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_RENAME
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_rename' :: CDF_VAR_RENAME
         END SUBROUTINE CDF_VAR_RENAME
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_GET
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_GET
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_get' :: CDF_VAR_GET
         END SUBROUTINE CDF_VAR_GET
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_PUT
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_PUT
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_put' :: CDF_VAR_PUT
         END SUBROUTINE CDF_VAR_PUT
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_HYPER_GET
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_HYPER_GET
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_hyper_get' :: CDF_VAR_HYPER_GET
         END SUBROUTINE CDF_VAR_HYPER_GET
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_HYPER_PUT
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_HYPER_PUT
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_hyper_put' :: CDF_VAR_HYPER_PUT
         END SUBROUTINE CDF_VAR_HYPER_PUT
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_VAR_CLOSE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_CLOSE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_close' :: CDF_VAR_CLOSE
         END SUBROUTINE CDF_VAR_CLOSE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_ATTR_CREATE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_CREATE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_attr_create' :: CDF_ATTR_CREATE
         END SUBROUTINE CDF_ATTR_CREATE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_ATTR_INQUIRE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_INQUIRE
          !DEC$ ATTRIBUTES ALIAS:'_cdf_attr_inquire' :: CDF_ATTR_INQUIRE
         END SUBROUTINE CDF_ATTR_INQUIRE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_ATTR_RENAME
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_RENAME
          !DEC$ ATTRIBUTES ALIAS:'_cdf_attr_rename' :: CDF_ATTR_RENAME
         END SUBROUTINE CDF_ATTR_RENAME
       END INTERFACE
		
       INTERFACE
         SUBROUTINE CDF_ATTR_ENTRY_INQUIRE
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_ENTRY_INQUIRE
          !DEC$ ALIAS CDF_ATTR_ENTRY_INQUIRE,'_cdf_attr_entry_inquire'
         END SUBROUTINE CDF_ATTR_ENTRY_INQUIRE
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_ATTR_GET
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_GET
          !DEC$ ATTRIBUTES ALIAS:'_cdf_attr_get' :: CDF_ATTR_GET
         END SUBROUTINE CDF_ATTR_GET
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_ATTR_PUT
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_PUT
          !DEC$ ATTRIBUTES ALIAS:'_cdf_attr_put' :: CDF_ATTR_PUT
         END SUBROUTINE CDF_ATTR_PUT
       END INTERFACE
	
       INTERFACE
         SUBROUTINE CDF_ERROR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ERROR
          !DEC$ ATTRIBUTES ALIAS:'_cdf_error' :: CDF_ERROR
         END SUBROUTINE CDF_ERROR
       END INTERFACE
	
       INTERFACE
         INTEGER*4 FUNCTION CDF_VAR_NUM
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_VAR_NUM
          !DEC$ ATTRIBUTES ALIAS:'_cdf_var_num' :: CDF_VAR_NUM
         END FUNCTION CDF_VAR_NUM
       END INTERFACE
	
       INTERFACE
         INTEGER*4 FUNCTION CDF_ATTR_NUM
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_ATTR_NUM
          !DEC$ ATTRIBUTES ALIAS:'_cdf_attr_num' :: CDF_ATTR_NUM
         END FUNCTION CDF_ATTR_NUM
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_GET_FILEBACKWARD
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_GET_FILEBACKWARD
          !DEC$ ATTRIBUTES ALIAS:'_cdf_get_filebackward':: CDF_GET_FILEBACKWARD
         END FUNCTION CDF_GET_FILEBACKWARD
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_SET_FILEBACKWARD
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_SET_FILEBACKWARD
          !DEC$ ATTRIBUTES ALIAS:'_cdf_set_filebackward':: CDF_SET_FILEBACKWARD
         END SUBROUTINE CDF_SET_FILEBACKWARD
       END INTERFACE

       INTERFACE
         SUBROUTINE EPOCH_BREAKDOWN
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: EPOCH_BREAKDOWN
          !DEC$ ATTRIBUTES ALIAS:'_epoch_breakdown' :: EPOCH_BREAKDOWN
         END SUBROUTINE EPOCH_BREAKDOWN
       END INTERFACE
	
       INTERFACE
         SUBROUTINE COMPUTE_EPOCH
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: COMPUTE_EPOCH
          !DEC$ ATTRIBUTES ALIAS:'_compute_epoch' :: COMPUTE_EPOCH
         END SUBROUTINE COMPUTE_EPOCH
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch' :: PARSE_EPOCH
         END SUBROUTINE PARSE_EPOCH
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH1
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH1
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch1' :: PARSE_EPOCH1
         END SUBROUTINE PARSE_EPOCH1
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH2
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH2
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch2' :: PARSE_EPOCH2
         END SUBROUTINE PARSE_EPOCH2
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH3
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH3
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch3' :: PARSE_EPOCH3
         END SUBROUTINE PARSE_EPOCH3
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch' :: ENCODE_EPOCH
         END SUBROUTINE ENCODE_EPOCH
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH1
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH1
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch1' :: ENCODE_EPOCH1
         END SUBROUTINE ENCODE_EPOCH1
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH2
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH2
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch2' :: ENCODE_EPOCH2
         END SUBROUTINE ENCODE_EPOCH2
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH3
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH3
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch3' :: ENCODE_EPOCH3
         END SUBROUTINE ENCODE_EPOCH3
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCHX
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCHX
          !DEC$ ATTRIBUTES ALIAS:'_encode_epochx' :: ENCODE_EPOCHX
         END SUBROUTINE ENCODE_EPOCHX
       END INTERFACE

       INTERFACE
         SUBROUTINE EPOCH16_BREAKDOWN
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: EPOCH16_BREAKDOWN
          !DEC$ ATTRIBUTES ALIAS:'_epoch16_breakdown'::EPOCH16_BREAKDOWN
         END SUBROUTINE EPOCH16_BREAKDOWN
       END INTERFACE
	
       INTERFACE
         SUBROUTINE COMPUTE_EPOCH16
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: COMPUTE_EPOCH16
          !DEC$ ATTRIBUTES ALIAS:'_compute_epoch16' :: COMPUTE_EPOCH16
         END SUBROUTINE COMPUTE_EPOCH16
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH16
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH16
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch16' :: PARSE_EPOCH16
         END SUBROUTINE PARSE_EPOCH16
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH16_1
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH16_1
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch16_1' :: PARSE_EPOCH16_1
         END SUBROUTINE PARSE_EPOCH16_1
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH16_2
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH16_2
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch16_2' :: PARSE_EPOCH16_2
         END SUBROUTINE PARSE_EPOCH16_2
       END INTERFACE
	
       INTERFACE
         SUBROUTINE PARSE_EPOCH16_3
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: PARSE_EPOCH16_3
          !DEC$ ATTRIBUTES ALIAS:'_parse_epoch16_3' :: PARSE_EPOCH16_3
         END SUBROUTINE PARSE_EPOCH16_3
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH16
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH16
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch16' :: ENCODE_EPOCH16
         END SUBROUTINE ENCODE_EPOCH16
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH16_1
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH16_1
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch16_1' :: ENCODE_EPOCH16_1
         END SUBROUTINE ENCODE_EPOCH16_1
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH16_2
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH16_2
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch16_2' :: ENCODE_EPOCH16_2
         END SUBROUTINE ENCODE_EPOCH16_2
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH16_3
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH16_3
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch16_3' :: ENCODE_EPOCH16_3
         END SUBROUTINE ENCODE_EPOCH16_3
       END INTERFACE
	
       INTERFACE
         SUBROUTINE ENCODE_EPOCH16_X
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: ENCODE_EPOCH16_X
          !DEC$ ATTRIBUTES ALIAS:'_encode_epoch16_x' :: ENCODE_EPOCH16_X
         END SUBROUTINE ENCODE_EPOCH16_X
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GETRVARSRECORDDATA
          !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_GETRVARSRECORDDATA
          !DEC$ ALIAS CDF_GETRVARSRECORDDATA,'_cdf_getrvarsrecorddata'
         END SUBROUTINE CDF_GETRVARSRECORDDATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GETZVARSRECORDDATA
         !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_GETZVARSRECORDDATA
         !DEC$ ALIAS CDF_GETZVARSRECORDDATA,'_cdf_getzvarsrecorddata'
         END SUBROUTINE CDF_GETZVARSRECORDDATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GET_ZVARS_RECORDDATA
         !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_GET_ZVARS_RECORDDATA
         !DEC$ ALIAS CDF_GET_ZVARS_RECORDDATA,'_cdf_get_zvars_recorddata'
         END SUBROUTINE CDF_GET_ZVARS_RECORDDATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUTRVARSRECORDDATA
          !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_PUTRVARSRECORDDATA
          !DEC$ ALIAS CDF_PUTRVARSRECORDDATA,'_cdf_putrvarsrecorddata'
         END SUBROUTINE CDF_PUTRVARSRECORDDATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUTZVARSRECORDDATA
         !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_PUTZVARSRECORDDATA
         !DEC$ ALIAS CDF_PUTZVARSRECORDDATA,'_cdf_putzvarsrecorddata'
         END SUBROUTINE CDF_PUTZVARSRECORDDATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUT_ZVARS_RECORDDATA
         !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_PUT_ZVARS_RECORDDATA
         !DEC$ ALIAS CDF_PUT_ZVARS_RECORDDATA,'_cdf_put_zvars_recorddata'
         END SUBROUTINE CDF_PUT_ZVARS_RECORDDATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_CREATE_CDF_INTERNAL
          !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_CREATE_CDF_INTERNAL
          !DEC$ ALIAS CDF_CREATE_CDF_INTERNAL,'_cdf_create_cdf_internal'
         END SUBROUTINE CDF_CREATE_CDF_INTERNAL
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_GET_ATTR_NUM
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_ATTR_NUM
          !DEC$ ALIAS CDF_GET_ATTR_NUM, '_cdf_get_attr_num'
         END FUNCTION CDF_GET_ATTR_NUM
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_RENAME_ATTR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_RENAME_ATTR
          !DEC$ ALIAS CDF_RENAME_ATTR, '_cdf_rename_attr'
         END SUBROUTINE CDF_RENAME_ATTR
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_INQUIRE_ATTR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_INQUIRE_ATTR
          !DEC$ ALIAS CDF_INQUIRE_ATTR, '_cdf_inquire_attr'
         END SUBROUTINE CDF_INQUIRE_ATTR
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_INQUIRE_ATTR_GENTRY
          !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_INQUIRE_ATTR_GENTRY
          !DEC$ ALIAS CDF_INQUIRE_ATTR_GENTRY,'_cdf_inquire_attr_gentry'
         END SUBROUTINE CDF_INQUIRE_ATTR_GENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_INQUIRE_ATTR_RENTRY
          !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_INQUIRE_ATTR_RENTRY
          !DEC$ ALIAS CDF_INQUIRE_ATTR_RENTRY,'_cdf_inquire_attr_rentry'
         END SUBROUTINE CDF_INQUIRE_ATTR_RENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_INQUIRE_ATTR_ZENTRY
          !DEC$ ATTRIBUTES C,REFERENCE,VARYING::CDF_INQUIRE_ATTR_ZENTRY
          !DEC$ ALIAS CDF_INQUIRE_ATTR_ZENTRY,'_cdf_inquire_attr_zentry'
         END SUBROUTINE CDF_INQUIRE_ATTR_ZENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUT_ATTR_GENTRY
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_PUT_ATTR_GENTRY
          !DEC$ ALIAS CDF_PUT_ATTR_GENTRY, '_cdf_put_attr_gentry'
         END SUBROUTINE CDF_PUT_ATTR_GENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUT_ATTR_RENTRY
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_PUT_ATTR_RENTRY
          !DEC$ ALIAS CDF_PUT_ATTR_RENTRY, '_cdf_put_attr_rentry'
         END SUBROUTINE CDF_PUT_ATTR_RENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUT_ATTR_ZENTRY
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_PUT_ATTR_ZENTRY
          !DEC$ ALIAS CDF_PUT_ATTR_ZENTRY, '_cdf_put_attr_zentry'
         END SUBROUTINE CDF_PUT_ATTR_ZENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GET_ATTR_GENTRY
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_ATTR_GENTRY
          !DEC$ ALIAS CDF_GET_ATTR_GENTRY, '_cdf_get_attr_gentry'
         END SUBROUTINE CDF_GET_ATTR_GENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GET_ATTR_RENTRY
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_ATTR_RENTRY
          !DEC$ ALIAS CDF_GET_ATTR_RENTRY, '_cdf_get_attr_rentry'
         END SUBROUTINE CDF_GET_ATTR_RENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GET_ATTR_ZENTRY
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_ATTR_ZENTRY
          !DEC$ ALIAS CDF_GET_ATTR_ZENTRY, '_cdf_get_attr_zentry'
         END SUBROUTINE CDF_GET_ATTR_ZENTRY
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_CREATE_ZVAR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_CREATE_ZVAR
          !DEC$ ALIAS CDF_CREATE_ZVAR, '_cdf_create_zvar'
         END SUBROUTINE CDF_CREATE_ZVAR
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_CREATE_ATTR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING :: CDF_CREATE_ATTR
          !DEC$ ALIAS CDF_CREATE_ATTR, '_cdf_create_attr' 
          END SUBROUTINE CDF_CREATE_ATTR
       END INTERFACE

       INTERFACE
         INTEGER*4 FUNCTION CDF_GET_VAR_NUM
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_VAR_NUM
          !DEC$ ALIAS CDF_GET_VAR_NUM, '_cdf_get_var_num'
         END FUNCTION CDF_GET_VAR_NUM
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_RENAME_ZVAR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_RENAME_ZVAR
          !DEC$ ALIAS CDF_RENAME_ZVAR, '_cdf_rename_zvar'
         END SUBROUTINE CDF_RENAME_ZVAR
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_INQUIRE_ZVAR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_INQUIRE_ZVAR
          !DEC$ ALIAS CDF_INQUIRE_ZVAR, '_cdf_inquire_zvar'
         END SUBROUTINE CDF_INQUIRE_ZVAR
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_PUT_ZVAR_DATA
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_PUT_ZVAR_DATA
          !DEC$ ALIAS CDF_PUT_ZVAR_DATA, '_cdf_put_zvar_data'
         END SUBROUTINE CDF_PUT_ZVAR_DATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GET_ZVAR_DATA
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_ZVAR_DATA
          !DEC$ ALIAS CDF_GET_ZVAR_DATA, '_cdf_get_zvar_data'
         END SUBROUTINE CDF_GET_ZVAR_DATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_HYPER_PUT_ZVAR_DATA
          !DEC$ ATTRIBUTES C, REFERENCE,VARYING::CDF_HYPER_PUT_ZVAR_DATA
          !DEC$ ALIAS CDF_HYPER_PUT_ZVAR_DATA,'_cdf_hyper_put_zvar_data'
         END SUBROUTINE CDF_HYPER_PUT_ZVAR_DATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_HYPER_GET_ZVAR_DATA
          !DEC$ ATTRIBUTES C,REFERENCE,VARYING::CDF_HYPER_GET_ZVAR_DATA
          !DEC$ ALIAS CDF_HYPER_GET_ZVAR_DATA,'_cdf_hyper_get_zvar_data'
         END SUBROUTINE CDF_HYPER_GET_ZVAR_DATA
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_CLOSE_ZVAR
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_CLOSE_ZVAR
          !DEC$ ALIAS CDF_CLOSE_ZVAR, '_cdf_close_zvar'
         END SUBROUTINE CDF_CLOSE_ZVAR
       END INTERFACE

       INTERFACE
         SUBROUTINE CDF_GET_STATUS_TEXT
          !DEC$ ATTRIBUTES C, REFERENCE, VARYING ::CDF_GET_STATUS_TEXT
          !DEC$ ALIAS CDF_GET_STATUS_TEXT, '_cdf_get_status_text'
         END SUBROUTINE CDF_GET_STATUS_TEXT
       END INTERFACE