Searched defs:fmtgen (Results 1 – 1 of 1) sorted by relevance
35 subroutine fmtgen(f,t,m,istatus) subroutine38 common /fm/ c(17),dflt(17),cutoff99 100 f(m) = ca - wim*sig101 200 tmp = dfloat(2*m-3)