zones_3 Function

pure function zones_3(n1, n2, n3) result(A)

Arguments

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

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


Source Code

pure function zones_3(n1,n2,n3) result(A)
  integer, intent(in) :: n1,n2,n3
  complex(8)          :: A(n1,n2,n3)
  A = one
end function zones_3