Lines Matching refs:ftoken
18 double precision ftoken(10)
96 if(.not.inp_f(ftoken(ip))) then
102 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
113 if(.not.inp_f(ftoken(ip))) then
119 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
130 if(.not.inp_f(ftoken(ip))) then
136 if (.not.rtdb_put(rtdb,tag,mt_dbl,3,ftoken(1)))
198 if(.not.inp_f(ftoken(ip))) then
204 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
215 if(.not.inp_f(ftoken(ip))) then
221 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
232 if(.not.inp_f(ftoken(ip))) then
238 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
249 if(.not.inp_f(ftoken(ip))) then
255 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))
266 if(.not.inp_f(ftoken(ip))) then
272 if (.not.rtdb_put(rtdb,tag,mt_dbl,np,ftoken(1)))