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