Type | Intent | Optional | 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 |
pure function zones_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 = one end function zones_7