GO TO 6 5 EXPH = EXPI - II ( PHO - R131 ) I WPH ) * * 21 ) 6 UPH = UPHO * EXR * EXTH * EXPH * 1.E - 3 IF ( WH.NE.0.1 GO TO 7 ' PUPX13 , 11 = = 0 .
確定! 回上一頁