1  SUBROUTINE SE(E, EPL, )
2  COMMON/B/EY, ELAST
3  IF(E,GT.EPL + EY)EPL=E-EY
4  IF(E.LT.EPL)EPL=E
5  IF(EPL.LT.0.)EPL=0.
6   = ELAST*
7  IF(S.LT.0.) = 0.
8  RETURN
9  END
Algorithm 3: Subroutine SE.