mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-23 12:56:14 +01:00
added missing files
This commit is contained in:
parent
340b89b754
commit
cdb87937c8
26
plugins/mrcepa0/mrsc2.irp.f
Normal file
26
plugins/mrcepa0/mrsc2.irp.f
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
program mrcepa0
|
||||||
|
implicit none
|
||||||
|
!mrmode : 1=mrcepa0, 2=mrsc2 add, 3=mrsc2 sub
|
||||||
|
mrmode = 2
|
||||||
|
if (.not.read_wf) then
|
||||||
|
print *, 'read_wf has to be true.'
|
||||||
|
stop 1
|
||||||
|
endif
|
||||||
|
call print_cas_coefs
|
||||||
|
call run_mrcepa0
|
||||||
|
end
|
||||||
|
|
||||||
|
subroutine print_cas_coefs
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
integer :: i,j
|
||||||
|
print *, 'CAS'
|
||||||
|
print *, '==='
|
||||||
|
do i=1,N_det_cas
|
||||||
|
print *, psi_cas_coef(i,:)
|
||||||
|
call debug_det(psi_cas(1,1,i),N_int)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call write_double(6,ci_energy(1),"Initial CI energy")
|
||||||
|
end
|
||||||
|
|
26
plugins/mrcepa0/mrsc2sub.irp.f
Normal file
26
plugins/mrcepa0/mrsc2sub.irp.f
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
program mrcepa0
|
||||||
|
implicit none
|
||||||
|
!mrmode : 1=mrcepa0, 2=mrsc2 add, 3=mrsc2 sub
|
||||||
|
mrmode = 3
|
||||||
|
if (.not.read_wf) then
|
||||||
|
print *, 'read_wf has to be true.'
|
||||||
|
stop 1
|
||||||
|
endif
|
||||||
|
call print_cas_coefs
|
||||||
|
call run_mrcepa0
|
||||||
|
end
|
||||||
|
|
||||||
|
subroutine print_cas_coefs
|
||||||
|
implicit none
|
||||||
|
|
||||||
|
integer :: i,j
|
||||||
|
print *, 'CAS'
|
||||||
|
print *, '==='
|
||||||
|
do i=1,N_det_cas
|
||||||
|
print *, psi_cas_coef(i,:)
|
||||||
|
call debug_det(psi_cas(1,1,i),N_int)
|
||||||
|
enddo
|
||||||
|
|
||||||
|
call write_double(6,ci_energy(1),"Initial CI energy")
|
||||||
|
end
|
||||||
|
|
Loading…
Reference in New Issue
Block a user