Lines Matching refs:tag1
102 character*80 tag1
113 tag1="smd:fragment:istart"
114 call smd_rtdb_get_int(tag1,1,i1,result)
116 write(*,*) "need to set value for "//tag1
117 call errquit("cannot find "//tag1,0,0)
119 tag1="smd:fragment:iend"
120 call smd_rtdb_get_int(tag1,1,i2,result)
122 write(*,*) "need to set value for "//tag1
123 call errquit("cannot find "//tag1,0,0)
178 character*80 tag1
189 tag1="smd:fragment:istart"
190 call smd_rtdb_get_int(tag1,1,i1,result)
192 write(*,*) "need to set value for "//tag1
193 call errquit("cannot find "//tag1,0,0)
195 tag1="smd:fragment:iend"
196 call smd_rtdb_get_int(tag1,1,i2,result)
198 write(*,*) "need to set value for "//tag1
199 call errquit("cannot find "//tag1,0,0)
261 character*30 operation,tag1
271 tag1="smd:fragment:chargetol"
272 call smd_rtdb_get_dbl(tag1,1,eps,result)
275 tag1="smd:fragment:ncycles"
276 call smd_rtdb_get_int(tag1,1,nc,result)
317 character*30 operation,tag1
343 character*30 operation,tag1
368 character*30 operation,tag1
378 tag1="smd:fragment:opttol"
379 call smd_rtdb_get_dbl(tag1,1,eps,result)
382 tag1="smd:fragment:ncycles"
383 call smd_rtdb_get_int(tag1,1,nc,result)
422 character*30 operation,tag1
432 tag1="smd:fragment:opttol"
433 call smd_rtdb_get_dbl(tag1,1,eps,result)
436 tag1="smd:fragment:ncycles"
437 call smd_rtdb_get_int(tag1,1,nc,result)