Context Navigation

common.f@ 449c8ac

1.23 2.0 acw/focus-triggers main test-branch

Last change on this file since 449c8ac 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

File size: 467 bytes

Line
1	PROGRAM MAIN
2	! FLASH4.4/source/flashUtilities/interpolation/oneDim
3	! Simple example of a common block. Note that the
4	! contents are accessed through different names
5	! in MAIN and SUB.
6
7	INTEGER A
8	REAL F,R,X,Y
9	COMMON /MC/ R,A,F
10	A = 5
11	R = 3.5
12	CALL SUB(X,Y)
13	WRITE(,) F
14	END
15
16	SUBROUTINE SUB(P,Q)
17	INTEGER I
18	REAL A,B,P,Q
19	COMMON /MC/ A,I,B
20	B = I + 2*A
21	END

Note: See TracBrowser for help on using the repository browser.