source: CIVL/mods/dev.civl.abc/examples/fortran/commonblock/common_array.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: 369 bytes
Line 
1! Common block using an array that is used in
2! a different shape inside SUB
3 PROGRAM MAIN
4 INTEGER A
5 REAL F,R,X,Y
6 COMMON /MC/ R(2,3),A,F
7 A = 5
8 R = 3.5
9 CALL SUB(X,Y)
10 WRITE(*,*) F
11 END
12
13 SUBROUTINE SUB(P,Q)
14 INTEGER I
15 REAL A(6),B,P,Q
16 COMMON /MC/ A,I,B
17 B = I + 2*A(6)
18 END
Note: See TracBrowser for help on using the repository browser.