C ***  NOISE - ADDS RANDOM NOISE TO CALCULATED PATTERNS
C *
      DIMENSION DATA(10), KSTRNG(20)
C *
C *  READ HEADER RECORDS
      READ(10,100) (KSTRNG(I),I=1,20)
      WRITE(20,100) (KSTRNG(I),I=1,20)
      READ(10,100) (KSTRNG(I),I=1,20)
      WRITE(20,100) (KSTRNG(I),I=1,20)
      READ(10,100) (KSTRNG(I),I=1,20)
      WRITE(20,100) (KSTRNG(I),I=1,20)
100   FORMAT(20A4)
C *
C *  ADD NOISE TO PATTERN
500   READ(10,510,END=600) (DATA(I),I=1,10)
510   FORMAT(10F8.1)
      DO 550 I=1,10
CZZZ  DATA(I) = DATA(I) * 10.0 + 10.0
      SDV = SQRT( 10.0 )
      FMEAN = DATA(I)
      CALL GAUSS( SDV, FMEAN, FNOISE )
      DATA(I) = FNOISE
550   CONTINUE
      WRITE(20,515) (DATA(I),I=1,10)
515   FORMAT(10F8.3)
      GO TO 500
C *
600   STOP' THATS ALL FOLKS'
      END
