QuantumPackage/src/utils_complex/import_mo_coef_cplx.irp.f

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
rename periodic -> complex 2020-02-12 01:23:34 +01:00			`program import_mo_coef_complex`
Working on periodic 2019-12-02 19:25:35 +01:00
			`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`
integral testing 2020-01-30 18:16:04 +01:00			`read (iunit,*,end=10) i,j, int_re, int_im`
			`mo_coef_complex(i,j) = dcmplx(int_re,int_im)`
Working on periodic 2019-12-02 19:25:35 +01:00			`enddo`
			`10 continue`
			`close(iunit)`
			`mo_label = "None"`
			`call save_mos`

			`end`