C
C File: ADF.inc
C ----------------------------------------------------------------------
C BOEING
C ----------------------------------------------------------------------
C Project: CGNS
C Authors: Tom Dickens 865-6122 tpd6908@yak.ca.boeing.com
C Chuck Keagle 234-0990 keagle@cfdd38.cfd.ca.boeing.com
C Date: 2/7/96
C Purpose: Provide FORTRAN definitions for the ADF-Core routines.
C ----------------------------------------------------------------------
C ----------------------------------------------------------------------
implicit none
C***********************************************************************
C Defines: These defines are used within the ADF core routines
C to specify the size in bytes of varoius items.
C Caution: Simply changing a define here may not correctly adjust the
C ADF core code. These sizes are provided for reference only!
C***********************************************************************/
integer ADF_DATA_TYPE_LENGTH
integer ADF_DATE_LENGTH
integer ADF_FILENAME_LENGTH
integer ADF_FORMAT_LENGTH
integer ADF_LABEL_LENGTH
integer ADF_MAXIMUM_LINK_DEPTH
integer ADF_MAX_DIMENSIONS
integer ADF_MAX_ERROR_STR_LENGTH
integer ADF_MAX_LINK_DATA_SIZE
integer ADF_NAME_LENGTH
integer ADF_STATUS_LENGTH
integer ADF_VERSION_LENGTH
parameter (ADF_DATA_TYPE_LENGTH = 32)
parameter (ADF_DATE_LENGTH = 32 )
parameter (ADF_FILENAME_LENGTH = 1024)
parameter (ADF_FORMAT_LENGTH = 20)
parameter (ADF_LABEL_LENGTH = 32)
parameter (ADF_MAXIMUM_LINK_DEPTH = 100)
parameter (ADF_MAX_DIMENSIONS = 12)
parameter (ADF_MAX_ERROR_STR_LENGTH = 80)
parameter (ADF_MAX_LINK_DATA_SIZE = 4096)
parameter (ADF_NAME_LENGTH = 32)
parameter (ADF_STATUS_LENGTH = 32)
parameter (ADF_VERSION_LENGTH = 32 )
!***********************************************************************
! Error-return values
! These values need to be kept in sync with the error strings in
! file ADF_interface.c
!***********************************************************************
! Don't use zero since you can assign zero to a pointer
integer NO_ERROR
integer NUMBER_LESS_THAN_MINIMUM
integer NUMBER_GREATER_THAN_MAXIMUM
integer STRING_LENGTH_ZERO
integer STRING_LENGTH_TOO_BIG
integer STRING_NOT_A_HEX_STRING
integer TOO_MANY_ADF_FILES_OPENED
integer ADF_FILE_STATUS_NOT_RECOGNIZED
integer FILE_OPEN_ERROR
integer ADF_FILE_NOT_OPENED
integer FILE_INDEX_OUT_OF_RANGE
integer BLOCK_OFFSET_OUT_OF_RANGE
integer NULL_STRING_POINTER
integer FSEEK_ERROR
integer FWRITE_ERROR
integer FREAD_ERROR
integer ADF_MEMORY_TAG_ERROR
integer ADF_DISK_TAG_ERROR
integer REQUESTED_NEW_FILE_EXISTS
integer ADF_FILE_FORMAT_NOT_RECOGNIZED
integer FREE_OF_ROOT_NODE
integer FREE_OF_FREE_CHUNK_TABLE
integer REQUESTED_OLD_FILE_NOT_FOUND
integer UNIMPLEMENTED_CODE
integer SUB_NODE_TABLE_ENTRIES_BAD
integer MEMORY_ALLOCATION_FAILED
integer DUPLICATE_CHILD_NAME
integer ZERO_DIMENSIONS
integer BAD_NUMBER_OF_DIMENSIONS
integer CHILD_NOT_OF_GIVEN_PARENT
integer DATA_TYPE_TOO_LONG
integer INVALID_DATA_TYPE
integer NULL_POINTER
integer NO_DATA
integer ERROR_ZEROING_OUT_MEMORY
integer REQUESTED_DATA_TOO_LONG
integer END_OUT_OF_DEFINED_RANGE
integer BAD_STRIDE_VALUE
integer MINIMUM_GT_MAXIMUM
integer MACHINE_FORMAT_NOT_RECOGNIZED
integer CANNOT_CONVERT_NATIVE_FORMAT
integer CONVERSION_FORMATS_EQUAL
integer DATA_TYPE_NOT_SUPPORTED
integer FILE_CLOSE_ERROR
integer NUMERIC_OVERFLOW
integer START_OUT_OF_DEFINED_RANGE
integer ZERO_LENGTH_VALUE
integer BAD_DIMENSION_VALUE
integer BAD_ERROR_STATE
integer UNEQUAL_MEMORY_AND_DISK_DIMS
integer LINKS_TOO_DEEP
integer NODE_IS_NOT_A_LINK
integer LINK_TARGET_NOT_THERE
integer LINKED_TO_FILE_NOT_THERE
integer NODE_ID_ZERO
integer INCOMPLETE_DATA
integer INVALID_NODE_NAME
integer INVALID_VERSION
integer NODES_NOT_IN_SAME_FILE
integer PRISTK_NOT_FOUND
integer MACHINE_FILE_INCOMPATABLE
integer FFLUSH_ERROR
integer NULL_NODEID_POINTER
integer MAX_FILE_SIZE_EXCEEDED
parameter (NO_ERROR = -1)
parameter (NUMBER_LESS_THAN_MINIMUM = 1)
parameter (NUMBER_GREATER_THAN_MAXIMUM = 2)
parameter (STRING_LENGTH_ZERO = 3)
parameter (STRING_LENGTH_TOO_BIG = 4)
parameter (STRING_NOT_A_HEX_STRING = 5)
parameter (TOO_MANY_ADF_FILES_OPENED = 6)
parameter (ADF_FILE_STATUS_NOT_RECOGNIZED= 7)
parameter (FILE_OPEN_ERROR = 8)
parameter (ADF_FILE_NOT_OPENED = 9)
parameter (FILE_INDEX_OUT_OF_RANGE = 10)
parameter (BLOCK_OFFSET_OUT_OF_RANGE = 11)
parameter (NULL_STRING_POINTER = 12)
parameter (FSEEK_ERROR = 13)
parameter (FWRITE_ERROR = 14)
parameter (FREAD_ERROR = 15)
parameter (ADF_MEMORY_TAG_ERROR = 16)
parameter (ADF_DISK_TAG_ERROR = 17)
parameter (REQUESTED_NEW_FILE_EXISTS = 18)
parameter (ADF_FILE_FORMAT_NOT_RECOGNIZED= 19)
parameter (FREE_OF_ROOT_NODE = 20)
parameter (FREE_OF_FREE_CHUNK_TABLE = 21)
parameter (REQUESTED_OLD_FILE_NOT_FOUND = 22)
parameter (UNIMPLEMENTED_CODE = 23)
parameter (SUB_NODE_TABLE_ENTRIES_BAD = 24)
parameter (MEMORY_ALLOCATION_FAILED = 25)
parameter (DUPLICATE_CHILD_NAME = 26)
parameter (ZERO_DIMENSIONS = 27)
parameter (BAD_NUMBER_OF_DIMENSIONS = 28)
parameter (CHILD_NOT_OF_GIVEN_PARENT = 29)
parameter (DATA_TYPE_TOO_LONG = 30)
parameter (INVALID_DATA_TYPE = 31)
parameter (NULL_POINTER = 32)
parameter (NO_DATA = 33)
parameter (ERROR_ZEROING_OUT_MEMORY = 34)
parameter (REQUESTED_DATA_TOO_LONG = 35)
parameter (END_OUT_OF_DEFINED_RANGE = 36)
parameter (BAD_STRIDE_VALUE = 37)
parameter (MINIMUM_GT_MAXIMUM = 38)
parameter (MACHINE_FORMAT_NOT_RECOGNIZED = 39)
parameter (CANNOT_CONVERT_NATIVE_FORMAT = 40)
parameter (CONVERSION_FORMATS_EQUAL = 41)
parameter (DATA_TYPE_NOT_SUPPORTED = 42)
parameter (FILE_CLOSE_ERROR = 43)
parameter (NUMERIC_OVERFLOW = 44)
parameter (START_OUT_OF_DEFINED_RANGE = 45)
parameter (ZERO_LENGTH_VALUE = 46)
parameter (BAD_DIMENSION_VALUE = 47)
parameter (BAD_ERROR_STATE = 48)
parameter (UNEQUAL_MEMORY_AND_DISK_DIMS = 49)
parameter (LINKS_TOO_DEEP = 50)
parameter (NODE_IS_NOT_A_LINK = 51)
parameter (LINK_TARGET_NOT_THERE = 52)
parameter (LINKED_TO_FILE_NOT_THERE = 53)
parameter (NODE_ID_ZERO = 54)
parameter (INCOMPLETE_DATA = 55)
parameter (INVALID_NODE_NAME = 56)
parameter (INVALID_VERSION = 57)
parameter (NODES_NOT_IN_SAME_FILE = 58)
parameter (PRISTK_NOT_FOUND = 59)
parameter (MACHINE_FILE_INCOMPATABLE = 60)
parameter (FFLUSH_ERROR = 61)
parameter (NULL_NODEID_POINTER = 62)
parameter (MAX_FILE_SIZE_EXCEEDED = 63)
syntax highlighted by Code2HTML, v. 0.9.1