subroutine explicit2(A, B, C)
real, intent(in), dimension(400,500) :: A
real, intent(out), dimension(500) :: B
real, intent(inout), dimension(400) :: C
!dir$ assume_aligned A(1,1):64
!dir$ assume_aligned B(1):64
!dir$ assume_aligned C(1):64
!...loop 1
do i=1,500
B(i) = A(3,i)
end do
!...loop 2
do i=1,400
C(i) = C(i) + A(i, 400)
end do
end
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |