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 |
|