Lines Matching refs:ftoken
18 double precision ftoken(10)
110 if(.not.inp_f(ftoken(ip))) then
116 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
127 if(.not.inp_f(ftoken(ip))) then
133 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
144 if(.not.inp_f(ftoken(ip))) then
150 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
212 if(.not.inp_f(ftoken(ip))) then
218 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
229 if(.not.inp_f(ftoken(ip))) then
235 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
246 if(.not.inp_f(ftoken(ip))) then
252 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
263 if(.not.inp_f(ftoken(ip))) then
269 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
280 if(.not.inp_f(ftoken(ip))) then
286 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))