1c 2c Header file for intial FORTRAN interface to RTDB 3c (see the C header file rtdb.h for more detail) 4c 5c All functions return .TRUE. on success, .FALSE. on failure 6c 7c All functions are also mirrored by routines rtdb_* -> rtdb_par_* 8c in which process 0 performs the operation and all other processes 9c are broadcast the result of a read and discard writes. 10c 11c rtdb_max_key ... an integer parameter that defines the maximum 12c length of a character string key 13c 14c rtdb_max_file ... an integer parameter that defines the maximum 15c length of a file name 16c 17c 18c logical function srtdb_parallel(mode) 19c logical mode [input] 20c 21c 22c logical function srtdb_open(filename, mode, handle) 23c character *(*) filename [input] 24c character *(*) mode [input] 25c integer handle [output] 26c 27c logical function srtdb_clone(handle, suffix) 28c integer handle [input] 29c character*(*) suffix [input] 30c 31c logical function srtdb_close(handle, mode) 32c integer handle [input] 33c character*(*) mode [input] 34c 35c logical function srtdb_put(handle, name, ma_type, nelem, array) 36c integer handle [input] 37c character *(*) name [input] 38c integer ma_type [input] 39c integer nelem [input] 40c <ma_type>array(nelem) [input] 41c 42c logical function srtdb_get_info(handle, name, ma_type, nelem, date) 43c integer handle [input] 44c character *(*) name [input] 45c integer ma_type [output] 46c integer nelem [output] 47c character*26 date [output] 48c 49c logical function srtdb_get(handle, name, ma_type, nelem, array) 50c integer handle [input] 51c character *(*) name [input] 52c integer ma_type [input] 53c integer nelem [input] 54c <ma_type>array(nelem) [output] 55c 56c logical function srtdb_ma_get(handle, name, ma_type, nelem, ma_handle) 57c integer handle [input] 58c character *(*) name [input] 59c integer ma_type [output] 60c integer nelem [output] 61c integer ma_handle [output] 62c 63c logical function srtdb_cput(handle, name, nelem, buf) 64c integer handle [input] 65c character *(*) name [input] 66c character *(*) buf [input] 67c 68c logical function srtdb_cget(handle, name, nelem, buf) 69c integer handle [input] 70c character *(*) name [input] 71c character *(*) buf [output] 72c 73c logical function srtdb_print(handle, print_values) 74c integer handle [input] 75c logical print_values [input] 76c 77c logical function srtdb_first(handle, name) 78c integer handle [input] 79c character *(*) name [output] 80c 81c logical function srtdb_next(handle, name) 82c integer handle [input] 83c character *(*) name [output] 84c 85c logical function srtdb_delete(handle, name) 86c integer handle [input] 87c character *(*) name [input] 88c 89 logical srtdb_open, srtdb_close, 90 $ srtdb_put, srtdb_get, 91 $ srtdb_cput, srtdb_cget, srtdb_print, srtdb_get_info, 92 $ srtdb_first, srtdb_next, srtdb_delete 93C$Id$ 94 external srtdb_open, srtdb_close, srtdb_put, 95 $ srtdb_get, 96 $ srtdb_cput, srtdb_cget, srtdb_print, srtdb_get_info, 97 $ srtdb_first, srtdb_next, srtdb_delete 98c 99c Check these values against srtdb_f2c.c 100c 101 integer srtdb_max_key, srtdb_max_file 102 parameter (srtdb_max_key=255, srtdb_max_file=255) 103