C
C     ..................................................................
C
C        SAMPLE INPUT SUBROUTINE - DATA
C
C        PURPOSE
C           READ AN OBSERVATION (M DATA VALUES) FROM INPUT DEVICE.
C           THIS SUBROUTINE IS CALLED BY THE SUBROUTINE CORRE AND MUST
C           BE PROVIDED BY THE USER.  IF SIZE AND LOCATION OF DATA
C           FIELDS ARE DIFFERENT FROM PROBLEM TO PROBLEM, THIS SUB-
C           ROUTINE MUST BE RECOMPILED WITH A PROPER FORMAT STATEMENT.
C
C        USAGE
C           CALL DATA (M,D)
C
C        DESCRIPTION OF PARAMETERS
C           M - THE NUMBER OF VARIABLES IN AN OBSERVATION.
C           D - OUTPUT VECTOR OF LENGTH M CONTAINING THE OBSERVATION
C               DATA.
C
C        REMARKS
C           THE TYPE OF CONVERSION SPECIFIED IN THE FORMAT MUST BE
C           EITHER F OR E.
C
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
C           NONE
C     ..................................................................
C
      SUBROUTINE DATA (M,D)
C
      DIMENSION D(1)
C
    1 FORMAT(12F6.0)
C
C     READ AN OBSERVATION FROM INPUT DEVICE.
C
      READ (5,1) (D(I),I=1,M)
C
C     INPUT DATA ARE WRITTEN ON LOGICAL TAPE 9 FOR THE RESIDUAL ANALY-
C     SIS PERFORMED IN THE SAMPLE MULTIPLE REGRESSION PROGRAM.
C
      WRITE (9) (D(I),I=1,M)
      RETURN
      END