codekingpro/portable-devtools
114k
1subroutine foo(is_, ie_, arr, tout)
2 implicit none
3 integer :: is_,ie_
4 real, intent(in) :: arr(is_:ie_)
5 real, intent(out) :: tout(is_:ie_)
6 tout = arr
7end
8 1subroutine foo(is_, ie_, arr, tout)
2 implicit none
3 integer :: is_,ie_
4 real, intent(in) :: arr(is_:ie_)
5 real, intent(out) :: tout(is_:ie_)
6 tout = arr
7end
8