
      IF (SIGMCN.EQ.-1) THEN		
         IGAUSS=GAUSS_CENTRE/1		
         JMID= IGAUSS - JMIN(1)
         S=WIDTH_GAUSS/2.354820
         S2=S*S
         NORM = 1000./S/2.506628
         DO JJ=1,64
           X = (JJ-JMID)**2 /2./S2
           X = -X
           E  = EXP (X)
           WT0(IEXXX,JJ)=NORM*E
         END DO
         SCN(1) = 1000.
         GO TO 63
      ENDIF
