KPntSymInt Subroutine

public subroutine KPntSymInt(i, j, k, l, a, b, c, d)

Arguments

Type IntentOptional Attributes Name
integer :: i
integer :: j
integer :: k
integer :: l
integer :: a
integer :: b
integer :: c
integer :: d

Contents

Source Code

KPntSymInt

Source Code

    subroutine KPntSymInt(i, j, k, l, a, b, c, d)
        implicit none
        integer i, j, k, l, a, b, c, d
! Make warnings go away
        i = i; j = j; k = k; l = l; a = a; b = b; c = c; d = d
    end subroutine KPntSymInt