zzeros_7 Function

pure function zzeros_7(n1, n2, n3, n4, n5, n6, n7) result(A)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
integer, intent(in) :: n4
integer, intent(in) :: n5
integer, intent(in) :: n6
integer, intent(in) :: n7

Return Value complex(kind=8), (n1,n2,n3,n4,n5,n6,n7)


Source Code

pure function zzeros_7(n1,n2,n3,n4,n5,n6,n7) result(A)
  integer, intent(in) :: n1,n2,n3,n4,n5,n6,n7
  complex(8)          :: A(n1,n2,n3,n4,n5,n6,n7)
  A = zero
end function zzeros_7