real xbase integer confun ! function to convolute logical show integer istp ! integration over istp*2 points integer npy ! number of points integer icnt ! number of folding multiplications integer ecnt ! error count common /fit_confun_com/confun, xbase, 1 npy, istp, icnt, ecnt, show