mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-10-15 12:31:45 +02:00
20 lines
399 B
Fortran
20 lines
399 B
Fortran
|
program plot_mo
|
||
|
|
implicit none
|
||
|
|
integer :: i,npt
|
||
|
|
double precision :: xmin,xmax,dx,r(3)
|
||
|
|
double precision,allocatable :: mos_array(:)
|
||
|
|
allocate(mos_array(mo_num))
|
||
|
|
npt = 10000
|
||
|
|
xmin =0.d0
|
||
|
|
xmax =10.d0
|
||
|
|
dx=(xmax-xmin)/dble(npt)
|
||
|
|
r=0.d0
|
||
|
|
r(1) = xmin
|
||
|
|
do i = 1, npt
|
||
|
|
call give_all_mos_at_r(r,mos_array)
|
||
|
|
write(33,'(100(F16.10,X))')r(1),mos_array(1),mos_array(2),mos_array(3)
|
||
|
|
r(1) += dx
|
||
|
|
enddo
|
||
|
|
|
||
|
|
end
|