program debug
 double precision a
 double precision primitive_overlap
 a = primitive_overlap(3.d0,-1.d0,3,2.d0,1.d0,4)
 print *,  a
end