| File |
Line number |
Procedure |
Code |
|
./pkg/autodiff/adread_adwrite.F |
137 |
ADREAD |
INTEGER n2d,length2d, jrec, i2d, j2d |
|
./pkg/autodiff/adread_adwrite.F |
155 |
ADREAD |
length2d = (sNx+2*OLx)*(sNy+2*OLy)*nSx*nSy |
|
./pkg/autodiff/adread_adwrite.F |
156 |
ADREAD |
n2d = INT(length/length2d) |
|
./pkg/autodiff/adread_adwrite.F |
157 |
ADREAD |
IF ( size.EQ.8 .AND. n2d*length2d.EQ.length ) THEN |
|
./pkg/autodiff/adread_adwrite.F |
195 |
ADREAD |
j2d=(i2d-1)*length2d+1 |
|
./pkg/autodiff/adread_adwrite.F |
336 |
ADWRITE |
INTEGER n2d,length2d, jrec, i2d, j2d |
|
./pkg/autodiff/adread_adwrite.F |
354 |
ADWRITE |
length2d = (sNx+2*OLx)*(sNy+2*OLy)*nSx*nSy |
|
./pkg/autodiff/adread_adwrite.F |
355 |
ADWRITE |
n2d = INT(length/length2d) |
|
./pkg/autodiff/adread_adwrite.F |
356 |
ADWRITE |
IF ( size.EQ.8 .AND. n2d*length2d.EQ.length ) THEN |
|
./pkg/autodiff/adread_adwrite.F |
404 |
ADWRITE |
j2d=(i2d-1)*length2d+1 |