H A D | fit3b.F | 14002 COMMON /C1/ YPY, SSRM, SSEM, IIN, IOUT, IROPT, IVOPT, IGOPT, local 14006 DOUBLE PRECISION YPY, SSRM, SSEM local 14320 COMMON /C1/ YPY, SSRM, SSEM, IIN, IOUT, IROPT, IVOPT, IGOPT, local 14327 DOUBLE PRECISION W, C, S, TRACE, TEMP, Q, QT, YPY, SSRM, SSEM local 14549 COMMON /C1/ YPY, SSRM, SSEM, IIN, IOUT, IROPT, IVOPT, IGOPT, local 14557 DOUBLE PRECISION W, C, S, TEMP, YPY, SSRM, SSEM, DABS, F local 14612 SSEM = YPY - S 14616 WRITE (ICOUT,89998) SSEM 14713 220 F = ((SSRM-S)/FLOAT(IDFN))/(SSEM/FLOAT(IDFD))
|