| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
86 |
NO PROCEDURE |
Real*4 facet_link( 4, W2_maxNbFacets ) |
|
./pkg/exch2/W2_EXCH2_PARAMS.h |
87 |
NO PROCEDURE |
COMMON /W2_EXCH2_PARM_R/ facet_link |
|
./pkg/exch2/w2_readparms.F |
155 |
W2_READPARMS |
facet_link(i,j) = facetEdgeLink(i,j) |
|
./pkg/exch2/w2_readparms.F |
94 |
W2_READPARMS |
facet_link(i,j) = 0. |
|
./pkg/exch2/w2_set_cs6_facets.F |
145 |
W2_SET_CS6_FACETS |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_cs6_facets.F |
146 |
W2_SET_CS6_FACETS |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
65 |
W2_SET_CS6_FACETS |
facet_link(1,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
67 |
W2_SET_CS6_FACETS |
facet_link(2,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
69 |
W2_SET_CS6_FACETS |
facet_link(3,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
71 |
W2_SET_CS6_FACETS |
facet_link(4,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
74 |
W2_SET_CS6_FACETS |
facet_link(1,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
76 |
W2_SET_CS6_FACETS |
facet_link(2,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
78 |
W2_SET_CS6_FACETS |
facet_link(3,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_cs6_facets.F |
80 |
W2_SET_CS6_FACETS |
facet_link(4,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) ) |
|
./pkg/exch2/w2_set_f2f_index.F |
108 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
109 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
222 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
223 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
55 |
W2_SET_F2F_INDEX |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_f2f_index.F |
56 |
W2_SET_F2F_INDEX |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
57 |
W2_SET_F2F_INDEX |
IF ( facet_link(i,j).EQ. 0. ) THEN |
|
./pkg/exch2/w2_set_f2f_index.F |
60 |
W2_SET_F2F_INDEX |
& j, ' disconnected (facet_link=',facet_link(i,j),')' |
|
./pkg/exch2/w2_set_f2f_index.F |
66 |
W2_SET_F2F_INDEX |
& j, ' : bad connection (facet_link=',facet_link(i,j),')' |
|
./pkg/exch2/w2_set_f2f_index.F |
71 |
W2_SET_F2F_INDEX |
j1 = INT(facet_link(ii,jj)) |
|
./pkg/exch2/w2_set_f2f_index.F |
72 |
W2_SET_F2F_INDEX |
i1 = MOD( NINT(facet_link(ii,jj)*10.), 10 ) |
|
./pkg/exch2/w2_set_f2f_index.F |
76 |
W2_SET_F2F_INDEX |
& edge(ii),'.Edge facet #',jj,' (',facet_link(i,j),' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
81 |
W2_SET_F2F_INDEX |
& edge(i1),'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |
|
./pkg/exch2/w2_set_f2f_index.F |
85 |
W2_SET_F2F_INDEX |
& '?' ,'.Edge facet #',j1,' (',facet_link(ii,jj),' )' |
|
./pkg/exch2/w2_set_gen_facets.F |
117 |
W2_SET_GEN_FACETS |
IF ( facet_link(i,j).NE.0 ) THEN |
|
./pkg/exch2/w2_set_gen_facets.F |
121 |
W2_SET_GEN_FACETS |
& ' (facetEdgeLink=',facet_link(i,j),')' |
|
./pkg/exch2/w2_set_map_cumsum.F |
111 |
W2_SET_MAP_CUMSUM |
jj = INT(facet_link(i,j)) |
|
./pkg/exch2/w2_set_map_cumsum.F |
112 |
W2_SET_MAP_CUMSUM |
ii = MOD( NINT(facet_link(i,j)*10.), 10 ) |
|
./pkg/exch2/w2_set_single_facet.F |
49 |
W2_SET_SINGLE_FACET |
facet_link(1,1) = 1.2 |
|
./pkg/exch2/w2_set_single_facet.F |
51 |
W2_SET_SINGLE_FACET |
facet_link(2,1) = 1.1 |
|
./pkg/exch2/w2_set_single_facet.F |
53 |
W2_SET_SINGLE_FACET |
facet_link(3,1) = 1.4 |
|
./pkg/exch2/w2_set_single_facet.F |
55 |
W2_SET_SINGLE_FACET |
facet_link(4,1) = 1.3 |
|
./pkg/exch2/w2_set_tile2tiles.F |
148 |
W2_SET_TILE2TILES |
jt = INT(facet_link(i,js)) |
|
./pkg/exch2/w2_set_tile2tiles.F |
149 |
W2_SET_TILE2TILES |
ii = MOD( NINT(facet_link(i,js)*10.), 10 ) |
|
./pkg/flt/flt_exch2.F |
217 |
FLT_EXCH2 |
& .AND. facet_link(W2_SOUTH,myFace).EQ.0. |
|
./pkg/flt/flt_exch2.F |
219 |
FLT_EXCH2 |
& .AND. facet_link(W2_NORTH,myFace).EQ.0. |
|
./pkg/flt/flt_exch2.F |
94 |
FLT_EXCH2 |
& .AND. facet_link(W2_WEST,myFace).EQ.0. |
|
./pkg/flt/flt_exch2.F |
96 |
FLT_EXCH2 |
& .AND. facet_link(W2_EAST,myFace).EQ.0. |