00001 C 00002 C File: ADF.inc 00003 C ---------------------------------------------------------------------- 00004 C BOEING 00005 C ---------------------------------------------------------------------- 00006 C Project: CGNS 00007 C Authors: Tom Dickens 865-6122 tpd6908@yak.ca.boeing.com 00008 C Chuck Keagle 234-0990 keagle@cfdd38.cfd.ca.boeing.com 00009 C Date: 2/7/96 00010 C Purpose: Provide FORTRAN definitions for the ADF-Core routines. 00011 C ---------------------------------------------------------------------- 00012 C ---------------------------------------------------------------------- 00013 00014 implicit none 00015 00016 C*********************************************************************** 00017 C Defines: These defines are used within the ADF core routines 00018 C to specify the size in bytes of varoius items. 00019 C Caution: Simply changing a define here may not correctly adjust the 00020 C ADF core code. These sizes are provided for reference only! 00021 C***********************************************************************/ 00022 integer ADF_DATA_TYPE_LENGTH 00023 integer ADF_DATE_LENGTH 00024 integer ADF_FILENAME_LENGTH 00025 integer ADF_FORMAT_LENGTH 00026 integer ADF_LABEL_LENGTH 00027 integer ADF_MAXIMUM_LINK_DEPTH 00028 integer ADF_MAX_DIMENSIONS 00029 integer ADF_MAX_ERROR_STR_LENGTH 00030 integer ADF_MAX_LINK_DATA_SIZE 00031 integer ADF_NAME_LENGTH 00032 integer ADF_STATUS_LENGTH 00033 integer ADF_VERSION_LENGTH 00034 00035 parameter (ADF_DATA_TYPE_LENGTH = 32) 00036 parameter (ADF_DATE_LENGTH = 32 ) 00037 parameter (ADF_FILENAME_LENGTH = 1024) 00038 parameter (ADF_FORMAT_LENGTH = 20) 00039 parameter (ADF_LABEL_LENGTH = 32) 00040 parameter (ADF_MAXIMUM_LINK_DEPTH = 100) 00041 parameter (ADF_MAX_DIMENSIONS = 12) 00042 parameter (ADF_MAX_ERROR_STR_LENGTH = 80) 00043 parameter (ADF_MAX_LINK_DATA_SIZE = 4096) 00044 parameter (ADF_NAME_LENGTH = 32) 00045 parameter (ADF_STATUS_LENGTH = 32) 00046 parameter (ADF_VERSION_LENGTH = 32 ) 00047 00048 !*********************************************************************** 00049 ! Error-return values 00050 ! These values need to be kept in sync with the error strings in 00051 ! file ADF_interface.c 00052 !*********************************************************************** 00053 ! Don't use zero since you can assign zero to a pointer 00054 00055 integer NO_ERROR 00056 integer NUMBER_LESS_THAN_MINIMUM 00057 integer NUMBER_GREATER_THAN_MAXIMUM 00058 integer STRING_LENGTH_ZERO 00059 integer STRING_LENGTH_TOO_BIG 00060 integer STRING_NOT_A_HEX_STRING 00061 integer TOO_MANY_ADF_FILES_OPENED 00062 integer ADF_FILE_STATUS_NOT_RECOGNIZED 00063 integer FILE_OPEN_ERROR 00064 integer ADF_FILE_NOT_OPENED 00065 integer FILE_INDEX_OUT_OF_RANGE 00066 integer BLOCK_OFFSET_OUT_OF_RANGE 00067 integer NULL_STRING_POINTER 00068 integer FSEEK_ERROR 00069 integer FWRITE_ERROR 00070 integer FREAD_ERROR 00071 integer ADF_MEMORY_TAG_ERROR 00072 integer ADF_DISK_TAG_ERROR 00073 integer REQUESTED_NEW_FILE_EXISTS 00074 integer ADF_FILE_FORMAT_NOT_RECOGNIZED 00075 integer FREE_OF_ROOT_NODE 00076 integer FREE_OF_FREE_CHUNK_TABLE 00077 integer REQUESTED_OLD_FILE_NOT_FOUND 00078 integer UNIMPLEMENTED_CODE 00079 integer SUB_NODE_TABLE_ENTRIES_BAD 00080 integer MEMORY_ALLOCATION_FAILED 00081 integer DUPLICATE_CHILD_NAME 00082 integer ZERO_DIMENSIONS 00083 integer BAD_NUMBER_OF_DIMENSIONS 00084 integer CHILD_NOT_OF_GIVEN_PARENT 00085 integer DATA_TYPE_TOO_LONG 00086 integer INVALID_DATA_TYPE 00087 integer NULL_POINTER 00088 integer NO_DATA 00089 integer ERROR_ZEROING_OUT_MEMORY 00090 integer REQUESTED_DATA_TOO_LONG 00091 integer END_OUT_OF_DEFINED_RANGE 00092 integer BAD_STRIDE_VALUE 00093 integer MINIMUM_GT_MAXIMUM 00094 integer MACHINE_FORMAT_NOT_RECOGNIZED 00095 integer CANNOT_CONVERT_NATIVE_FORMAT 00096 integer CONVERSION_FORMATS_EQUAL 00097 integer DATA_TYPE_NOT_SUPPORTED 00098 integer FILE_CLOSE_ERROR 00099 integer NUMERIC_OVERFLOW 00100 integer START_OUT_OF_DEFINED_RANGE 00101 integer ZERO_LENGTH_VALUE 00102 integer BAD_DIMENSION_VALUE 00103 integer BAD_ERROR_STATE 00104 integer UNEQUAL_MEMORY_AND_DISK_DIMS 00105 integer LINKS_TOO_DEEP 00106 integer NODE_IS_NOT_A_LINK 00107 integer LINK_TARGET_NOT_THERE 00108 integer LINKED_TO_FILE_NOT_THERE 00109 integer NODE_ID_ZERO 00110 integer INCOMPLETE_DATA 00111 integer INVALID_NODE_NAME 00112 integer INVALID_VERSION 00113 integer NODES_NOT_IN_SAME_FILE 00114 integer PRISTK_NOT_FOUND 00115 integer MACHINE_FILE_INCOMPATABLE 00116 integer FFLUSH_ERROR 00117 integer NULL_NODEID_POINTER 00118 integer MAX_FILE_SIZE_EXCEEDED 00119 00120 parameter (NO_ERROR = -1) 00121 parameter (NUMBER_LESS_THAN_MINIMUM = 1) 00122 parameter (NUMBER_GREATER_THAN_MAXIMUM = 2) 00123 parameter (STRING_LENGTH_ZERO = 3) 00124 parameter (STRING_LENGTH_TOO_BIG = 4) 00125 parameter (STRING_NOT_A_HEX_STRING = 5) 00126 parameter (TOO_MANY_ADF_FILES_OPENED = 6) 00127 parameter (ADF_FILE_STATUS_NOT_RECOGNIZED= 7) 00128 parameter (FILE_OPEN_ERROR = 8) 00129 parameter (ADF_FILE_NOT_OPENED = 9) 00130 parameter (FILE_INDEX_OUT_OF_RANGE = 10) 00131 parameter (BLOCK_OFFSET_OUT_OF_RANGE = 11) 00132 parameter (NULL_STRING_POINTER = 12) 00133 parameter (FSEEK_ERROR = 13) 00134 parameter (FWRITE_ERROR = 14) 00135 parameter (FREAD_ERROR = 15) 00136 parameter (ADF_MEMORY_TAG_ERROR = 16) 00137 parameter (ADF_DISK_TAG_ERROR = 17) 00138 parameter (REQUESTED_NEW_FILE_EXISTS = 18) 00139 parameter (ADF_FILE_FORMAT_NOT_RECOGNIZED= 19) 00140 parameter (FREE_OF_ROOT_NODE = 20) 00141 parameter (FREE_OF_FREE_CHUNK_TABLE = 21) 00142 parameter (REQUESTED_OLD_FILE_NOT_FOUND = 22) 00143 parameter (UNIMPLEMENTED_CODE = 23) 00144 parameter (SUB_NODE_TABLE_ENTRIES_BAD = 24) 00145 parameter (MEMORY_ALLOCATION_FAILED = 25) 00146 parameter (DUPLICATE_CHILD_NAME = 26) 00147 parameter (ZERO_DIMENSIONS = 27) 00148 parameter (BAD_NUMBER_OF_DIMENSIONS = 28) 00149 parameter (CHILD_NOT_OF_GIVEN_PARENT = 29) 00150 parameter (DATA_TYPE_TOO_LONG = 30) 00151 parameter (INVALID_DATA_TYPE = 31) 00152 parameter (NULL_POINTER = 32) 00153 parameter (NO_DATA = 33) 00154 parameter (ERROR_ZEROING_OUT_MEMORY = 34) 00155 parameter (REQUESTED_DATA_TOO_LONG = 35) 00156 parameter (END_OUT_OF_DEFINED_RANGE = 36) 00157 parameter (BAD_STRIDE_VALUE = 37) 00158 parameter (MINIMUM_GT_MAXIMUM = 38) 00159 parameter (MACHINE_FORMAT_NOT_RECOGNIZED = 39) 00160 parameter (CANNOT_CONVERT_NATIVE_FORMAT = 40) 00161 parameter (CONVERSION_FORMATS_EQUAL = 41) 00162 parameter (DATA_TYPE_NOT_SUPPORTED = 42) 00163 parameter (FILE_CLOSE_ERROR = 43) 00164 parameter (NUMERIC_OVERFLOW = 44) 00165 parameter (START_OUT_OF_DEFINED_RANGE = 45) 00166 parameter (ZERO_LENGTH_VALUE = 46) 00167 parameter (BAD_DIMENSION_VALUE = 47) 00168 parameter (BAD_ERROR_STATE = 48) 00169 parameter (UNEQUAL_MEMORY_AND_DISK_DIMS = 49) 00170 parameter (LINKS_TOO_DEEP = 50) 00171 parameter (NODE_IS_NOT_A_LINK = 51) 00172 parameter (LINK_TARGET_NOT_THERE = 52) 00173 parameter (LINKED_TO_FILE_NOT_THERE = 53) 00174 parameter (NODE_ID_ZERO = 54) 00175 parameter (INCOMPLETE_DATA = 55) 00176 parameter (INVALID_NODE_NAME = 56) 00177 parameter (INVALID_VERSION = 57) 00178 parameter (NODES_NOT_IN_SAME_FILE = 58) 00179 parameter (PRISTK_NOT_FOUND = 59) 00180 parameter (MACHINE_FILE_INCOMPATABLE = 60) 00181 parameter (FFLUSH_ERROR = 61) 00182 parameter (NULL_NODEID_POINTER = 62) 00183 parameter (MAX_FILE_SIZE_EXCEEDED = 63)