quantum_package/plugins/mrsc2_no_amp/sc2_no_amp.irp.f

program pouet
 provide ao_bielec_integrals_in_map
 call bla
end
subroutine bla
 implicit none
 integer :: i
 do i = 1, 10
  call diagonalize_CI_sc2_no_amp
  TOUCH psi_coef
 enddo
 print *,  "E+PT2      = ", ci_energy_sc2_no_amp(:)

end
MRSC2 no amplitudes 2017-01-11 15:04:00 +01:00			`program pouet`
Repaired selection 2017-01-30 09:38:04 +01:00			`provide ao_bielec_integrals_in_map`
			`call bla`
			`end`
			`subroutine bla`
MRSC2 no amplitudes 2017-01-11 15:04:00 +01:00			`implicit none`
			`integer :: i`
			`do i = 1, 10`
			`call diagonalize_CI_sc2_no_amp`
			`TOUCH psi_coef`
			`enddo`
Repaired selection 2017-01-30 09:38:04 +01:00			`print *, "E+PT2 = ", ci_energy_sc2_no_amp(:)`
MRSC2 no amplitudes 2017-01-11 15:04:00 +01:00
			`end`