mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-06-24 14:12:24 +02:00
29 lines
445 B
Fortran
29 lines
445 B
Fortran
program import_mo_coef_complex
|
|
|
|
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, int_re, int_im
|
|
mo_coef_complex(i,j) = dcmplx(int_re,int_im)
|
|
enddo
|
|
10 continue
|
|
close(iunit)
|
|
mo_label = "None"
|
|
call save_mos
|
|
|
|
end
|