qp2/src/tools/print_var_energy.irp.f

program print_var_energy
 implicit none
 read_wf = .True.
 touch read_wf
 call routine
end

subroutine routine
 implicit none
 print*,'psi_energy = ',psi_energy
end