lign="justify">, F8.1, 2x, NU1 = , F6. 2, 5x, PR1 = , F6.3) RETURN END SUBROUTINE ALFAM (NV, W2, TR, TZ, D2, MU2, LAMDA2, RO2, ALFA2, DZITA2, RE2) REAL MU2, LAMDA2, NU2 RE2 = W2 * D2 * RO2/M2 TRO = TR/D2 TZO = TZ/D2 IF (NV.EQ.6.AND.RE2.LE .400. OR.RE2.GT.5000) WRITE (6, 257) IF (NV.EQ.6) GO TO 300 IF (NV.EQ.1) GO TO 30 IF (NV.EQ.2) GO TO 31 IF (NV.EQ.3) GO TO 41 30 A = .185 AM = .95 B = 8.1 BM = .2 IF (RE2.LE. 2000. OR. RE2.GT. 10000) WRITE (6, 257) GO TO 300 31 A = .083 AM = .85 B = 13. BM = .21 IF (RE2.LE. 1000. OR. RE2. GT.7000) WRITE (6, 257) NTR = 100. * TRO NTZ = 100. * TZO IF (NTR.EQ. 110. AND. NTZ. EQ.120) GO TO 431 IF (NTR.EQ. 120. AND. NTZ. EQ.120) GO TO 432 IF (NTR.EQ. 115. AND. NTZ. EQ.130) GO TO 433431 IF (RE2. LE. 1000. OR. RE2. GT.8000) WRITE (6, 257) B = 33.8 GO TO 300433 IF (RE2.LE. 1500. OR. RE2. GT.4000) WRITE (6, 257) B = 15.9 GO TO 300432 IF (RE2.LE. 1000. OR. RE2. GT.26000) WRITE (6, 257) B = 13. GO TO 300 41 A = .1 AM = .88 B = 19.2 BM = .1 IF (TZO.LE. 1.8. AND. TZO. GT.1.6) GO TO 334 IF (TZO.LE. 1.6. AND. TZO. GT.1.4) GO TO 333 IF (TZO.LE. 1.8. AND. TZO. GT.1.6) GO TO 334 IF (TZO.LE. 1.2) GO TO 331334 IF (RE2.LE. 1000. OR. RE2. GT.7000) WRITE (6, 257) A = .195 AM = .8 B = 13.7 BM = .1 GO TO 300333 IF (RE2.LE. 1000. OR. RE2. GT.7000) WRITE (6, 257 ) A = .1 AM = .83 B = 17.1 BM = .1 GO TO 300331 IF (RE2.LE. 800. OR. RE2. GT.44000) WRITE (6, 257) A = .009 AM = 1.1 B = 48.5 BM = .21 GO TO 300332 IF (RE2.LE.10. OR. RE2. GT.7000) WRITE (6, 257) A = .1 AM = .88 B = 19.2 BM = .1 GO TO 300 300 NU2 = A * RE2 ** AM ALFA2 = NU2 * LAMDA2/D2 DZITA2 = B * RE2 ** (-BM) 257 FORMAT (11x, VNIMANIE RE2 NE SOOTVETSTVUET B ) WRITE (20, 72) D2, W2, RE2, NU2, A, B 72 FORMAT (5x, D2 = , F6.3, 2x, W2 = , F6.3, 2x, RE2 = , F8.1, 2x, NU2 = , F6.2, 2x, A = , F6.3, 2x, B = , F7.4) RETURN END SUBROUTINE ALFAR (W2, DE, MU2, LAMDA2, RO2, CP2, ALFA2, F2 , RE2) REAL MU2, LANDA2 RE2 = W2 * RO2 * DE/MU2 PR2 = CP2 * MU2/LAMDA2 ST2 = .168 * RE2 ** (- .3) * PR2 ** (- .666) ALFA2 = ST2 * W2 * CP2 * RO2 IF (RE2.GE.30. AND.RE2. LT.100) F2 = 12.8/RE ** (.64) IF (RE2.GE.100. AND.RE2. LT.5000) F2 = 2.65 /RE ** (.3) WRITE (20, 72) DE, W2, RE2, ST2, PR2, F2 72 FORMAT (5x, DE = , F6.3, 2x, W2 = , F6.3, 2x, RE2 = , F8.1, 2x,
