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