! Test code from Liao
!     if (N > 5 .or. N < 7) READ 1, N, N, N

!     READ 1, N
      READ 1, N
!     READ *, N
      READ *, N
!     READ (*,1) PI
      READ (*,1) PI

    1 FORMAT (I3)
      END
