share/colnew/ex2/gsub.f

   1 C................................................................       GSU   10
   2       SUBROUTINE GSUB(I, Z, G)                                          GSU   20
   3       implicit real*8 (a-h, o-z)
   4       DIMENSION Z(4)
   5       GO TO (10, 20, 10, 30), I
   6    10 G = Z(1)
   7       RETURN
   8    20 G = Z(3)
   9       RETURN
  10    30 G = Z(4) - .3*Z(3) + .7
  11       RETURN
  12       END