1 SUBROUTINE EVAL(UO, UU, EOPL, EUPL, GO, GU) | 2 COMMON/A/AW, HO, HO0, DHO, EO, SO, TO, HU, HU0, DHU, EU, *SU, TU, WO, WU, | N, LO, LU, FO, FU, MO, MU | 3 REAL LO, LU, MO, MU, | 4 DHO = HO + UO − UU − HO0 | 5 EO = DHO/HO0 | 6 CALL SE(EO, EOPL, SO) | 7 TO = SO*AW | 8 DHU = HU + UU − HU0 | 9 EU = DHU/HU0 | 10 CALL SE(EU, EUPL, SU) | 11 TU = SU*AW | 12 FO = WO − 2. */(LO/2.)*UO − TO | 13 FU = WU − 2. */(LU/2.)*UU + TO − TU | 14 GO = FO/MO | 15 GU = FU/MU | 16 RETURN | 17 END |
|