zzeros_2 Function

pure function zzeros_2(n1, n2) result(A)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n1
integer, intent(in) :: n2

Return Value complex(kind=8), (n1,n2)


Source Code

pure function zzeros_2(n1,n2) result(A)
  integer, intent(in) :: n1,n2
  complex(8)          :: A(n1,n2)
  A = zero
end function zzeros_2