eplf/debug.irp.f

program debug
 implicit none
 double precision :: eplf_integral, ao_overlap
 PROVIDE ao_prim_num_max
 integer :: i,j
 read(*,*) i,j
 print *,  eplf_integral(i,j,eplf_gamma,point)
 print *,  ao_overlap(i,j)
end
Obara Saika for primitive overlap integral 2009-05-11 22:17:21 +02:00			`program debug`
Provide overlap matrix 2009-05-12 00:02:55 +02:00			`implicit none`
Seems OK 2009-05-14 00:45:29 +02:00			`double precision :: eplf_integral, ao_overlap`
			`PROVIDE ao_prim_num_max`
Provide overlap matrix 2009-05-12 00:02:55 +02:00			`integer :: i,j`
Seems OK 2009-05-14 00:45:29 +02:00			`read(,) i,j`
			`print *, eplf_integral(i,j,eplf_gamma,point)`
			`print *, ao_overlap(i,j)`
Obara Saika for primitive overlap integral 2009-05-11 22:17:21 +02:00			`end`