| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_comm_sequence.F |
100 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .EQ. targetJhi .AND. targetJlo .GT. 1 ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
114 |
W2_PRINT_COMM_SEQUENCE |
sourceIlo=pi(1)*targetIlo+pi(2)*targetJlo+oi |
|
./pkg/exch2/w2_print_comm_sequence.F |
115 |
W2_PRINT_COMM_SEQUENCE |
sourceJlo=pj(1)*targetIlo+pj(2)*targetJlo+oj |
|
./pkg/exch2/w2_print_comm_sequence.F |
133 |
W2_PRINT_COMM_SEQUENCE |
& ', j=',targetJlo, |
|
./pkg/exch2/w2_print_comm_sequence.F |
155 |
W2_PRINT_COMM_SEQUENCE |
targetJlo =exch2_jtlo_c(tN,targetTile) |
|
./pkg/exch2/w2_print_comm_sequence.F |
162 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .LE. targetJhi ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
163 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo-OLx+1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
167 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo+OLx-1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
176 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .LE. targetJhi ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
177 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo-OLx+1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
181 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo+OLx-1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
186 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .EQ. targetJhi .AND. targetJlo .EQ. 0 ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
188 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=1-OLx |
|
./pkg/exch2/w2_print_comm_sequence.F |
201 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .EQ. targetJhi .AND. targetJlo .GT. 1 ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
222 |
W2_PRINT_COMM_SEQUENCE |
& ', j=',targetJlo, |
|
./pkg/exch2/w2_print_comm_sequence.F |
30 |
W2_PRINT_COMM_SEQUENCE |
INTEGER targetIlo, targetIhi, targetJlo, targetJhi |
|
./pkg/exch2/w2_print_comm_sequence.F |
48 |
W2_PRINT_COMM_SEQUENCE |
targetJlo =exch2_jtlo_c(N,myTileId) |
|
./pkg/exch2/w2_print_comm_sequence.F |
61 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .LE. targetJhi ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
62 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo-OLx+1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
66 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo+OLx-1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
75 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .LE. targetJhi ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
76 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo-OLx+1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
80 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=targetJlo+OLx-1 |
|
./pkg/exch2/w2_print_comm_sequence.F |
85 |
W2_PRINT_COMM_SEQUENCE |
IF ( targetJlo .EQ. targetJhi .AND. targetJlo .EQ. 0 ) THEN |
|
./pkg/exch2/w2_print_comm_sequence.F |
87 |
W2_PRINT_COMM_SEQUENCE |
targetJlo=1-OLx |