1      subroutine smd_rtdb_get_handle(rtdb)
2      implicit none
3#include "rtdb.fh"
4#include "smd_rtdb_data.fh"
5#include "mafdecls.fh"
6c
7      integer rtdb
8c
9      rtdb= smd_rtdb
10
11      end
12
13      subroutine smd_rtdb_get_istart(istart)
14      implicit none
15#include "rtdb.fh"
16#include "smd_rtdb_data.fh"
17#include "mafdecls.fh"
18c
19      integer istart
20c
21      istart= smd_istart
22
23      end
24
25      subroutine smd_rtdb_get_iend(iend)
26      implicit none
27#include "rtdb.fh"
28#include "smd_rtdb_data.fh"
29#include "mafdecls.fh"
30c
31      integer iend
32c
33      iend= smd_iend
34
35      end
36
37      subroutine smd_rtdb_get_nproc(nproc)
38      implicit none
39#include "rtdb.fh"
40#include "smd_rtdb_data.fh"
41#include "mafdecls.fh"
42c
43      integer nproc
44c
45      nproc= smd_nproc
46
47      end
48
49      subroutine smd_rtdb_get_name(rtdb_name)
50      implicit none
51#include "rtdb.fh"
52#include "smd_rtdb_data.fh"
53#include "mafdecls.fh"
54c
55      character*(*) rtdb_name
56c
57      rtdb_name= smd_rtdb_name
58
59      end
60
61      subroutine smd_rtdb_set_handle(rtdb)
62      implicit none
63#include "rtdb.fh"
64#include "smd_rtdb_data.fh"
65#include "mafdecls.fh"
66c
67      integer rtdb
68c
69      smd_rtdb = rtdb
70
71      end
72
73      subroutine smd_rtdb_get_operiodic(operiodic)
74      implicit none
75#include "rtdb.fh"
76#include "smd_rtdb_data.fh"
77#include "mafdecls.fh"
78c
79      logical operiodic
80c
81      double precision latt(3,3)
82      character*32 pname
83      character*80 tag
84      double precision a(3)
85      integer i
86c
87      pname = "smd_lat_rtdb_read"
88c
89c      write(*,*) "in "//pname
90c
91      tag="smd:operiodic"
92      if (rtdb_get(smd_rtdb,tag,mt_log,1,operiodic))
93     >    return
94
95      operiodic = .true.
96      tag="smd:lat_a"
97      if (.not.rtdb_get(smd_rtdb,tag,mt_dbl,3,a(1)))
98     >      operiodic=.false.
99
100
101      end
102
103      subroutine smd_rtdb_get_paramfile(filename,result)
104      implicit none
105#include "rtdb.fh"
106#include "smd_rtdb_data.fh"
107#include "mafdecls.fh"
108c
109      character*(*) filename
110      logical result
111c
112
113      result = .true.
114      if(.not.rtdb_cget(smd_rtdb,'smd:paramfile',1,filename))
115     >   result = .false.
116      end
117
118      subroutine smd_rtdb_get_coordfile(filename,result)
119      implicit none
120#include "rtdb.fh"
121#include "smd_rtdb_data.fh"
122#include "mafdecls.fh"
123#include "global.fh"
124
125c
126      character*(*) filename
127      logical result
128c
129      character*30 pname
130
131      pname = "smd_rtdb_get_coordfile"
132
133      result = .true.
134      if(.not.rtdb_cget(smd_rtdb,'smd:coordfile',1,filename))
135     >   result = .false.
136
137      end
138
139      subroutine smd_rtdb_init(rtdb)
140      implicit none
141#include "rtdb.fh"
142#include "smd_rtdb_data.fh"
143#include "mafdecls.fh"
144
145      integer rtdb
146c
147      logical ignore
148      smd_rtdb = rtdb
149      if(.not. rtdb_getfname(rtdb, smd_rtdb_name)) call
150     *        errquit('rtdb_getfname failed',0,0)
151
152      smd_istart=0
153      smd_iend  =0
154      smd_nproc =0
155      ignore = rtdb_get(rtdb,"smd:istart",mt_int,1,smd_istart)
156      ignore = rtdb_get(rtdb,"smd:iend",mt_int,1,smd_iend)
157      ignore = rtdb_get(rtdb,"smd:nproc",mt_int,1,smd_nproc)
158      end
159c $Id$
160