*** empty log message ***

[PsN.git] / test / files / reader_orig.f

      SUBROUTINE READER()

      COMMON /READ/ TID,TCOV

      REAL TID (59), TCOV (59, 1)

      OPEN (UNIT = 77,FILE = 'pheno_single.dta')
      REWIND 77
      DO 11,I = 1,59
        READ (77,*) TID(I),TCOV(I,1)
11      CONTINUE
      END