source: CIVL/mods/dev.civl.abc/examples/fortran/commonblock/common_noname.f

main
Last change on this file was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 297 bytes
Line 
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.