31£®¡¡ ¹ý³Ì½Ó¿ÚµÄµäÐÍʹÓÃ
Ñ¡Ïî1: ʹÓÃFortran 77ÐÎʽµÄ²ÎÊý
CALL residual(r,u,f,nx,ny)
! ûÓа취´«µÝrµÄÆäËüÔªËØ
Ñ¡Ïî2: ʹÓüٶ¨ÐÎ×´µÄÊý×é(assumed-shape arrays)
INTERFACE
SUBROUTINE residual(r,u,f)
REAL r(:,:), u(:,:), f(:,:)
END SUBROUTINE
END SUBROUTINE
CALL residual(r,u,f)
CALL residual(r(0:nx:2, 0:ny:2), &
& u(0:nx:2, 0:ny:2), f(0:nx:2, 0:ny:2))
Copyright: NPACT