SUBROUTINE process1(data1, data2, n, m)
INTEGER, INTENT(IN) :: n, m
REAL, INTENT(IN),DIMENSION(n, m) :: data1 ! explicit shape
REAL, INTENT(OUT), DIMENSION(n, m) :: data2 ! explicit shape
END SUBROUTINE
'Programming > Fortran' 카테고리의 다른 글
| Gauss-Jordan Elimination (0) | 2008.12.16 |
|---|---|
| Assumed-Shape Dummy Arrays (0) | 2008.12.16 |
| FORALL (0) | 2008.12.15 |
| Initializing rank-2 arrays (0) | 2008.12.04 |
| 모듈을 이용한 자료 공유(sharing data using moduel) (0) | 2008.12.04 |