construct_ijab_one Subroutine

public subroutine construct_ijab_one(i, j, a, b, integral)

Arguments

Type IntentOptional Attributes Name
integer :: i
integer :: j
integer :: a
integer :: b
complex(kind=dp) :: integral(1,1)

Contents

Source Code

construct_ijab_one

Source Code

    subroutine construct_ijab_one(i, j, a, b, integral)
        implicit none
        integer :: i, j, a, b
        complex(dp) :: integral(1, 1)
        ! Make warnings go away
        i = i; j = j; a = a; b = b; integral = integral
    end subroutine construct_ijab_one