mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-20 04:02:17 +02:00
7 lines
136 B
FortranFixed
7 lines
136 B
FortranFixed
|
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
|