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