Nested implied DO loops
WRITE (*,100) ((i, j, j = 1, 3), i = 1, 2)
100 FORMAT(1X, I5, 1X, I5)
1 1
1 2
1 3
2 1
2 2
2 3
'Programming > Fortran' 카테고리의 다른 글
| 모듈을 이용한 자료 공유(sharing data using moduel) (0) | 2008.12.04 |
|---|---|
| Error Handling in Subroutines (0) | 2008.12.03 |
| Initialization of Array Elements (0) | 2008.12.02 |
| REWIND Statement (0) | 2008.11.24 |
| OPEN Statement (0) | 2008.11.24 |