1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#ifndef _SYMLOC_COM_
#define _SYMLOC_COM_
c symloc.com : begin
c The numbering scheme is as follows:
c a<b (alpha) [1]
c a<b (beta) [2]
c i<j (alpha) [3]
c i<j (beta) [4]
c a<=b (alpha) [5]
c a<=b (beta) [6]
c i<=j (alpha) [7]
c i<=j (beta) [8]
c a,i (alpha) [9]
c a,i (beta) [10]
c a,i (AB) [11]
c a,i (BA) [12]
c a,b (AB) [13]
c i,j (AB) [14]
c a,b (AB) [15]
c i,a (alpha) [16]
c i,a (beta) [17]
c i,a (AB) [18]
c a,b (alpha) [19]
c a,b (beta) [20]
c i,j (alpha) [21]
c i,j (beta) [22]
c a,b (BA) [23]
c i,j (BA) [24]
c i,a (BA) [25]
integer isymoff(8,8,25)
common /symloc/ isymoff
c symloc.com : end
#endif /* _SYMLOC_COM_ */
|
