0x1998 - MANAGER

Düzenlenen Dosya: issue_20853.f90

subroutine foo(is_, ie_, arr, tout) implicit none integer :: is_,ie_ real, intent(in) :: arr(is_:ie_) real, intent(out) :: tout(is_:ie_) tout = arr end
geri dön