source:
CIVL/mods/dev.civl.abc/examples/fortran/commonblock/common_noname.f
| Last change on this file was aad342c, checked in by , 3 years ago | |
|---|---|
|
|
| File size: 297 bytes | |
| Rev | Line | |
|---|---|---|
| [aad342c] | 1 | ! COMMON block without a name |
| 2 | PROGRAM MAIN | |
| 3 | INTEGER A | |
| 4 | REAL F,R,X,Y | |
| 5 | COMMON R,A,F | |
| 6 | A = 5 | |
| 7 | R = 3.5 | |
| 8 | CALL SUB(X,Y) | |
| 9 | WRITE(*,*) F | |
| 10 | END | |
| 11 | ||
| 12 | SUBROUTINE SUB(P,Q) | |
| 13 | INTEGER I | |
| 14 | REAL A,B,P,Q | |
| 15 | COMMON A,I,B | |
| 16 | B = I + 2*A | |
| 17 | END |
Note:
See TracBrowser
for help on using the repository browser.
