ERRHDL.f90#72 1111 FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) GCUBIC.f90#4 SUBROUTINE GCUBIC(A1,A2,A3,ROOT) #27 REAL :: A1 , A2 , A3 , THIRD , A1SQ , A1CUBE , A1BY3 , Q , R , & #33 A1SQ = A1*A1 #34 A1CUBE = A1*A1SQ #35 A1BY3 = A1*THIRD #38 R = (2.*A1CUBE-9.*A1*A2+27.*A3)/54. MSGWRT.f90#61 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8) #64 1117 FORMAT (A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) PFRACT.f90#30 DOUBLE PRECISION A1 , A2 , A3 , A4 , A5 , A6 , B1 , B2 , B3 , B4 ,& #45 A1 = (HCINT-HEARG)/(RTOF2*SZ) #47 B1 = ERFX(A1) PRTMAX.f90#112 2 FORMAT (1X,I4,'.',1X,F13.5,A1,'(',I8.8,') AT',1X, & #114 & F13.5,A1,'(',I8.8,') AT',1X,'(',F10.2,', ',& #175 3 FORMAT (1X,I4,'.',1X,F13.5,A1,'(',I8.8,') AT',1X,'(',F10.2,', ', & PRTNHI.f90#117 & F14.5,1X,A1,1X,I5) PRTPM10SUM.f90#155 1002 FORMAT (1X,A8,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1,' ON ',I8.8, & #158 1003 FORMAT (9X,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1,' ON ',I8.8, & #161 1004 FORMAT (1X,A8,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1,' ON ',I8.8, & #163 1005 FORMAT (9X,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1,' ON ',I8.8, & PRTSRC.f90#550 9024 FORMAT (6X,'STABILITY CATEGORY ',A1,6(1X,E12.5)) #620 9017 FORMAT (19X,A1,5X,6(5X,E10.5)) PRTSUM.f90#170 & A1,' ON ',I8.8,': AT ','(',2(F11.2,', '), & #184 & A1,' ON ',I8.8,': AT ','(',2(F11.2,', '), & #198 1005 FORMAT (9X,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1, & #212 1003 FORMAT (9X,' HIGH ',A4,' HIGH VALUE IS',F14.5,A1, & RELDISP.f90#26 REAL , PARAMETER :: A1 = 0.57 , A2 = 0.62*A1 , AR1 = 0.46 #39 SRAMB = (A1*SQRT(EPSEFF)*(XARG/UEFF)**1.5) & #48 SRAMB = (A1*SQRT(EPSEFFD)*(XARG/UEFFD)**1.5) & #55 SRAMB = (A1*SQRT(EPSEFF3)*(XARG/UEFF3)**1.5) & SPRTHT.f90#281 & 18(2(1X,I4,3X,F10.2,', ',F10.2,',',F13.5,A1, & #299 9013 FORMAT (1X,F9.1,1X,'|',5(F13.5,A1,'(',I8.8,')',:)) #304 9045 FORMAT (6X,2(F11.2,2X),F13.5,A1,1X,'(',I8.8,')') #305 9047 FORMAT (4X,A8,': ',2(F11.2,2X),F13.5,A1,1X,'(',I8.8,')') SUMTBL.f90#139 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8) #140 1117 FORMAT (1X,A2,1X,A1,A3,I6,1X,A6,':',A50,1X,A8) TERRST.f90#45 1116 FORMAT (A2,1X,A1,A3,I6,1X,A6,1X,A50,1X,A8) VDP.f90#105 REAL , PARAMETER :: A1 = 1.257 , A2 = 0.4 , A3 = 0.55 , & VDP1.f90#50 REAL , PARAMETER :: A1 = 1.257 , A2 = 0.4 , A3 = 0.55 , & #126 SCF(I) = 1. + 2.0*XMFP*(A1+A2*EXP(-A3*DIAMCM/XMFP)) & VRTCBL.f90#49 & A1 , A2 , A3 , A4 , TWOIZI , SUM , T1 , T2 , TERM , V #72 A1 = (-0.5/(SZ1*SZ1))*(HEARG1)*(HEARG1) #73 IF ( A1.GT.EXPLIM ) T1 = EXP(A1) #114 A1 = (-0.5/(SZ1*SZ1))*(ZR-(HEARG1))*(ZR-(HEARG1)) #116 IF ( A1.GT.EXPLIM ) T1 = EXP(A1) VRTSBL.f90#37 REAL :: SZARG , HEARG , ZIARG , A1 , A2 , A3 , A4 , A5 , A6 , & #50 A1 = (-0.5/(SZARG*SZARG))*HEARG*HEARG ! 17634K #51 IF ( A1.GT.EXPLIM ) V = EXP(A1) #77 A1 = (-0.5/(SZARG*SZARG))*(ZR-HETMP)*(ZR-HETMP) #79 IF ( A1.GT.EXPLIM ) V = EXP(A1) VRTSBN.f90#35 REAL :: SZARG , HEARG , ZIARG , A1 , A2 , V #47 A1 = (-0.5/(SZARG*SZARG))*HEARG*HEARG ! 288376 #48 IF ( A1.GT.EXPLIM ) V = EXP(A1) #56 A1 = (-0.5/(SZARG*SZARG))*(ZR-HETMP)*(ZR-HETMP) #58 IF ( A1.GT.EXPLIM ) V = EXP(A1) ZBRENT.f90#34 REAL :: OUTVAL , TOL , X1 , X2 , A1 , B1 , V1 , W1 , VN , FA , & #41 A1 = X1 #50 C1 = A1 ! 210718 #52 D1 = B1 - A1 #56 A1 = B1 ! 89870 #58 C1 = A1 #71 IF ( A1.EQ.C1 ) THEN #77 P1 = S1*(2.0*XM*Q1*(Q1-R1)-(B1-A1)*(R1-1.0)) #94 A1 = B1 ! 166372
HyperKWIC - Version 1.00DD executed at 20:00 on 1 Mar 2018 | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use