mirror of
https://github.com/pfloos/quack
synced 2024-09-01 00:53:44 +02:00
comment old print in pprpa
This commit is contained in:
parent
e6799bdc32
commit
e671874b5a
@ -78,8 +78,8 @@ subroutine ppRRPA(dotest,TDA,doACFDT,singlet,triplet,nBas,nC,nO,nV,nR,ENuc,ERHF,
|
||||
|
||||
call ppLR_transition_vectors(.true.,nBas,nC,nO,nV,nR,nOO,nVV,dipole_int,Om1,X1,Y1,Om2,X2,Y2)
|
||||
|
||||
call print_excitation_energies('ppRPA@RHF','2p (singlet)',nVV,Om1)
|
||||
call print_excitation_energies('ppRPA@RHF','2h (singlet)',nOO,Om2)
|
||||
! call print_excitation_energies('ppRPA@RHF','2p (singlet)',nVV,Om1)
|
||||
! call print_excitation_energies('ppRPA@RHF','2h (singlet)',nOO,Om2)
|
||||
|
||||
deallocate(Om1,X1,Y1,Om2,X2,Y2,Bpp,Cpp,Dpp)
|
||||
|
||||
@ -110,8 +110,8 @@ subroutine ppRRPA(dotest,TDA,doACFDT,singlet,triplet,nBas,nC,nO,nV,nR,ENuc,ERHF,
|
||||
|
||||
call ppLR_transition_vectors(.false.,nBas,nC,nO,nV,nR,nOO,nVV,dipole_int,Om1,X1,Y1,Om2,X2,Y2)
|
||||
|
||||
call print_excitation_energies('ppRPA@RHF','2p (triplet)',nVV,Om1)
|
||||
call print_excitation_energies('ppRPA@RHF','2h (triplet)',nOO,Om2)
|
||||
! call print_excitation_energies('ppRPA@RHF','2p (triplet)',nVV,Om1)
|
||||
! call print_excitation_energies('ppRPA@RHF','2h (triplet)',nOO,Om2)
|
||||
|
||||
deallocate(Om1,X1,Y1,Om2,X2,Y2,Bpp,Cpp,Dpp)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user