UpdateOneEInts Subroutine

public subroutine UpdateOneEInts(nBasis, nFields)

Uses

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nBasis
integer, intent(in) :: nFields

Contents

Source Code

UpdateOneEInts

Source Code

    subroutine UpdateOneEInts(nBasis, nFields)

      use CalcData,  only: FieldStrength_it
      integer, intent(in) :: nBasis, nFields
      integer :: i, j, iField
      HElement_t(dp) :: MatTemp

      do i = 1, nBasis
        do j = i, nBasis
          MatTemp = TMAT2D(i,j)
          do iField = 1, nFields
            MatTemp = MatTemp + FieldStrength_it(iField)*OneEFieldInts(i,j,iField)
          end do
          TMAT2D(i,j) = MatTemp
        enddo
      enddo

    end subroutine UpdateOneEInts