28 lines
414 B
Fortran
28 lines
414 B
Fortran
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
|