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
Algorithm 2: Subroutine EVAL.