// JOB T
// FOR
*LIST SOURCE PROGRAM
      SUBROUTINE RANDU(IX,IY,YFL)
      IY=IX*899
      IF(IY)5,6,6
    5 IY=IY+32767+1
    6 YFL=IY
      YFL=YFL/32767.
      RETURN
      END
// DUP
*STORE      WS  UA  RANDU
// FOR
*LIST SOURCE PROGRAM
      SUBROUTINE GAUSS(IX,S,AM,V)
      A=0.0
      DO 50 I=1,12
      CALL RANDU(IX,IY,Y)
      IX=IY
   50 A=A+Y
      V=(A-6.0)*S+AM
      RETURN
      END
// DUP
*STORE      WS  UA  GAUSS