Can an automatic array have the optional attribute? If so, does that mean it
is only allocated inside an IF(PRESENT()) block?
For example
subroutine test(n,c)
integer,intent(in) :: n
real,intent(out),optional :: c(n)
if (Present(c)) then
! c is allocated now?
end if
end subroutine test
Alvaro Fernandez
|