SUBROUTINE revers ( GL,GN )
      DIMENSION GL(144,73),GN(144,73)
      DO 10 J=1,73
      K = 74 - J
      DO 10 I=1,144
   10 GN(I,K) = GL(I,J)
      RETURN
      END