Lines Matching refs:ftoken
18 double precision ftoken(10)
114 if(.not.inp_f(ftoken(ip))) then
120 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
131 if(.not.inp_f(ftoken(ip))) then
137 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
148 if(.not.inp_f(ftoken(ip))) then
154 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
216 if(.not.inp_f(ftoken(ip))) then
222 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
233 if(.not.inp_f(ftoken(ip))) then
239 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
250 if(.not.inp_f(ftoken(ip))) then
256 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
267 if(.not.inp_f(ftoken(ip))) then
273 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
284 if(.not.inp_f(ftoken(ip))) then
290 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))