sfroesum Subroutine

public subroutine sfroesum(fazzfb, pmo, noca, nocb, ivec)

Uses

  • proc~~sfroesum~~UsesGraph proc~sfroesum sfroesum module~precision precision proc~sfroesum->module~precision iso_fortran_env iso_fortran_env module~precision->iso_fortran_env

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), dimension(:,:) :: fazzfb
real(kind=dp), intent(inout), dimension(:,:) :: pmo
integer, intent(in) :: noca
integer, intent(in) :: nocb
integer, intent(in) :: ivec

Called by

proc~~sfroesum~~CalledByGraph proc~sfroesum sfroesum proc~tdhf_sf_energy tdhf_sf_energy proc~tdhf_sf_energy->proc~sfroesum proc~tdhf_sf_energy_c tdhf_sf_energy_C proc~tdhf_sf_energy_c->proc~tdhf_sf_energy

Source Code

  subroutine sfroesum(fazzfb,pmo,noca,nocb,ivec)
    use precision, only: dp

    implicit none

    real(kind=dp), intent(in), dimension(:,:) :: fazzfb
    real(kind=dp), intent(inout), dimension(:,:) :: pmo
    integer, intent(in) :: noca, nocb, ivec

    integer :: i, ij, j, nbf

    nbf = ubound(fazzfb, 1)

    ij = 0
    do j = nocb+1, nbf
      do i = 1, noca
        ij = ij+1
        pmo(ij,ivec) = pmo(ij,ivec)+fazzfb(i,j)
      end do
    end do
  end subroutine sfroesum