9
1
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-03 02:18:23 +01:00
qp2/src/utils_periodic/import_mo_coef_periodic.irp.f

28 lines
414 B
Fortran
Raw Normal View History

2019-12-02 19:25:35 +01:00
program import_mo_coef_periodic
PROVIDE ezfio_filename
call run
end
subroutine run
use map_module
implicit none
integer :: iunit
integer :: getunitandopen
integer ::i,j
double precision :: int_re, int_im
iunit = getunitandopen('C.qp','r')
do
read (iunit,*,end=10) i,j, mo_coef(i,j), mo_coef_imag(i,j)
enddo
10 continue
close(iunit)
mo_label = "None"
call save_mos
end