12 lines
300 B
HTML
12 lines
300 B
HTML
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
|
|
|