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 rtdb_parallel(mode) 19c logical mode [input] 20c 21c 22c logical function rtdb_open(filename, mode, handle) 23c character *(*) filename [input] 24c character *(*) mode [input] 25c integer handle [output] 26c 27c logical function rtdb_clone(handle, suffix) 28c integer handle [input] 29c character*(*) suffix [input] 30c 31c logical function rtdb_close(handle, mode) 32c integer handle [input] 33c character*(*) mode [input] 34c 35c logical function rtdb_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 rtdb_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 rtdb_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 rtdb_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 rtdb_cput(handle, name, nelem, buf) 64c integer handle [input] 65c character *(*) name [input] 66c character *(*) buf [input] 67c 68c logical function rtdb_cget(handle, name, nelem, buf) 69c integer handle [input] 70c character *(*) name [input] 71c character *(*) buf [output] 72c 73c logical function rtdb_print(handle, print_values) 74c integer handle [input] 75c logical print_values [input] 76c 77c logical function rtdb_first(handle, name) 78c integer handle [input] 79c character *(*) name [output] 80c 81c logical function rtdb_next(handle, name) 82c integer handle [input] 83c character *(*) name [output] 84c 85c logical function rtdb_delete(handle, name) 86c integer handle [input] 87c character *(*) name [input] 88c 89 logical rtdb_open, rtdb_close, rtdb_put, rtdb_get, rtdb_ma_get, 90 $ rtdb_cput, rtdb_cget, rtdb_print, rtdb_get_info, 91 $ rtdb_first, rtdb_next, rtdb_delete, rtdb_parallel, 92 $ rtdb_clone,rtdb_getfname,rtdb_cget_size 93C$Id$ 94 external rtdb_open, rtdb_close, rtdb_put, rtdb_get, rtdb_ma_get, 95 $ rtdb_cput, rtdb_cget, rtdb_print, rtdb_get_info, 96 $ rtdb_first, rtdb_next, rtdb_delete, rtdb_parallel, 97 $ rtdb_clone,rtdb_getfname,rtdb_cget_size 98c 99c Check these values against rtdb_f2c.c 100c 101 integer rtdb_max_key, rtdb_max_file 102 parameter (rtdb_max_key=255, rtdb_max_file=255) 103c 104 logical rtdb_seq_mode, rtdb_par_mode 105 parameter (rtdb_seq_mode = .false.) 106 parameter (rtdb_par_mode = .true.) 107