REAL FUNCTION GP0(X)
	COMMON/PAWPAR/PAR(4)
        GP0 = 0.3989422*(PAR(1)**2)/PAR(3)*1.*
     &   EXP(-(X-PAR(2))**2/(2*PAR(3)**2)) +
     &   PAR(4)
        END