| File |
Line number |
Procedure |
Code |
|
./eesupp/src/exch_jam.F |
1027 |
EXCH_XY_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
1029 |
EXCH_XY_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
1077 |
EXCH_XYZ_R4_JAM |
INTEGER iLo, iHi, I0 |
|
./eesupp/src/exch_jam.F |
1117 |
EXCH_XYZ_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
1119 |
EXCH_XYZ_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
1120 |
EXCH_XYZ_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
1121 |
EXCH_XYZ_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
1122 |
EXCH_XYZ_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
1127 |
EXCH_XYZ_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
1129 |
EXCH_XYZ_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
1130 |
EXCH_XYZ_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
1131 |
EXCH_XYZ_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
1132 |
EXCH_XYZ_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
1167 |
EXCH_XYZ_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
1169 |
EXCH_XYZ_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
1170 |
EXCH_XYZ_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
1171 |
EXCH_XYZ_R4_JAM |
arr(I,sNy+J ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1172 |
EXCH_XYZ_R4_JAM |
arr(I,1-OLy+J-1,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1177 |
EXCH_XYZ_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
1179 |
EXCH_XYZ_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
1180 |
EXCH_XYZ_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
1181 |
EXCH_XYZ_R4_JAM |
arr(I,sNy+J ,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1182 |
EXCH_XYZ_R4_JAM |
arr(I,1-OLy+J-1 ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
1246 |
EXCH_XYZ_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
1248 |
EXCH_XYZ_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
1437 |
EXCH_XY_R8_JAM |
INTEGER iLo, iHi, I0 |
|
./eesupp/src/exch_jam.F |
1588 |
EXCH_XYZ_R8_JAM |
INTEGER iLo, iHi, I0 |
|
./eesupp/src/exch_jam.F |
241 |
EXCH_XY_R8_JAM |
INTEGER iLo, iHi, I0 |
|
./eesupp/src/exch_jam.F |
279 |
EXCH_XY_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
281 |
EXCH_XY_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
282 |
EXCH_XY_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
283 |
EXCH_XY_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
284 |
EXCH_XY_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
289 |
EXCH_XY_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
291 |
EXCH_XY_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
292 |
EXCH_XY_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
293 |
EXCH_XY_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
294 |
EXCH_XY_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
330 |
EXCH_XY_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
332 |
EXCH_XY_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
333 |
EXCH_XY_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
334 |
EXCH_XY_R8_JAM |
arr(I,sNy+J ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
335 |
EXCH_XY_R8_JAM |
arr(I,1-OLy+J-1) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
340 |
EXCH_XY_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
342 |
EXCH_XY_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
343 |
EXCH_XY_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
344 |
EXCH_XY_R8_JAM |
arr(I,sNy+J ) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
345 |
EXCH_XY_R8_JAM |
arr(I,1-OLy+J-1 ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
405 |
EXCH_XY_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
407 |
EXCH_XY_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
455 |
EXCH_XYZ_R8_JAM |
INTEGER iLo, iHi, I0 |
|
./eesupp/src/exch_jam.F |
496 |
EXCH_XYZ_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
498 |
EXCH_XYZ_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
499 |
EXCH_XYZ_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
500 |
EXCH_XYZ_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
501 |
EXCH_XYZ_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
506 |
EXCH_XYZ_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
508 |
EXCH_XYZ_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
509 |
EXCH_XYZ_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
510 |
EXCH_XYZ_R8_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ,K) |
|
./eesupp/src/exch_jam.F |
511 |
EXCH_XYZ_R8_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J,K) |
|
./eesupp/src/exch_jam.F |
546 |
EXCH_XYZ_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
548 |
EXCH_XYZ_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
549 |
EXCH_XYZ_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
550 |
EXCH_XYZ_R8_JAM |
arr(I,sNy+J ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
551 |
EXCH_XYZ_R8_JAM |
arr(I,1-OLy+J-1,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
556 |
EXCH_XYZ_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
558 |
EXCH_XYZ_R8_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
559 |
EXCH_XYZ_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
560 |
EXCH_XYZ_R8_JAM |
arr(I,sNy+J ,K) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
561 |
EXCH_XYZ_R8_JAM |
arr(I,1-OLy+J-1 ,K) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
625 |
EXCH_XYZ_R8_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
627 |
EXCH_XYZ_R8_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
864 |
EXCH_XY_R4_JAM |
INTEGER iLo, iHi, I0 |
|
./eesupp/src/exch_jam.F |
901 |
EXCH_XY_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
903 |
EXCH_XY_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
904 |
EXCH_XY_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
905 |
EXCH_XY_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
906 |
EXCH_XY_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
911 |
EXCH_XY_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
913 |
EXCH_XY_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
914 |
EXCH_XY_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
915 |
EXCH_XY_R4_JAM |
exchBuf1(I0+I-iLo) = arr(I,1+J-1 ) |
|
./eesupp/src/exch_jam.F |
916 |
EXCH_XY_R4_JAM |
exchBuf2(I0+I-iLo) = arr(I,sNy-OLy+J) |
|
./eesupp/src/exch_jam.F |
952 |
EXCH_XY_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
954 |
EXCH_XY_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
955 |
EXCH_XY_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
956 |
EXCH_XY_R4_JAM |
arr(I,sNy+J ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
957 |
EXCH_XY_R4_JAM |
arr(I,1-OLy+J-1) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
962 |
EXCH_XY_R4_JAM |
iLo= 1-OLx |
|
./eesupp/src/exch_jam.F |
964 |
EXCH_XY_R4_JAM |
I0 = (J-1)*(iHi-iLo)+1 |
|
./eesupp/src/exch_jam.F |
965 |
EXCH_XY_R4_JAM |
DO I=iLo,iHi |
|
./eesupp/src/exch_jam.F |
966 |
EXCH_XY_R4_JAM |
arr(I,sNy+J ) = exchBuf2(I0+I-iLo) |
|
./eesupp/src/exch_jam.F |
967 |
EXCH_XY_R4_JAM |
arr(I,1-OLy+J-1 ) = exchBuf1(I0+I-iLo) |
|
./eesupp/src/dfile.F |
324 |
DFILE_READ_R4 |
INTEGER I, iLo, iHi |
|
./eesupp/src/dfile.F |
334 |
DFILE_READ_R4 |
iLo = IFNBLNK(fNam) |
|
./eesupp/src/dfile.F |
359 |
DFILE_READ_R4 |
WRITE(msgBuf,'(A,A,A)') ' "', fNam(iLo:iHi),'"' |
|
./eesupp/src/dfile.F |
408 |
DFILE_READ_R8 |
INTEGER I, iLo, iHi |
|
./eesupp/src/dfile.F |
418 |
DFILE_READ_R8 |
iLo = IFNBLNK(fNam) |
|
./eesupp/src/dfile.F |
443 |
DFILE_READ_R8 |
WRITE(msgBuf,'(A,A,A)') ' "', fNam(iLo:iHi),'"' |
|
./eesupp/src/print.F |
189 |
PRINT_LIST_I |
INTEGER iLo |
|
./eesupp/src/print.F |
211 |
PRINT_LIST_I |
iLo = 1 |
|
./eesupp/src/print.F |
218 |
PRINT_LIST_I |
nDup = iHi-iLo+1 |
|
./eesupp/src/print.F |
223 |
PRINT_LIST_I |
& commOpen,index_lab,iLo,commClose |
|
./eesupp/src/print.F |
228 |
PRINT_LIST_I |
& commOpen,index_lab,iLo,':',iHi,commClose |
|
./eesupp/src/print.F |
231 |
PRINT_LIST_I |
iLo = K |
|
./eesupp/src/print.F |
240 |
PRINT_LIST_I |
nDup = iHi-iLo+1 |
|
./eesupp/src/print.F |
245 |
PRINT_LIST_I |
& commOpen,index_lab,iLo,commClose |
|
./eesupp/src/print.F |
250 |
PRINT_LIST_I |
& commOpen,index_lab,iLo,':',iHi,commClose |
|
./eesupp/src/print.F |
310 |
PRINT_LIST_L |
INTEGER iLo |
|
./eesupp/src/print.F |
332 |
PRINT_LIST_L |
iLo = 1 |
|
./eesupp/src/print.F |
339 |
PRINT_LIST_L |
nDup = iHi-iLo+1 |
|
./eesupp/src/print.F |
344 |
PRINT_LIST_L |
& commOpen,index_lab,iLo,commClose |
|
./eesupp/src/print.F |
349 |
PRINT_LIST_L |
& commOpen,index_lab,iLo,':',iHi,commClose |
|
./eesupp/src/print.F |
352 |
PRINT_LIST_L |
iLo = K |
|
./eesupp/src/print.F |
361 |
PRINT_LIST_L |
nDup = iHi-iLo+1 |
|
./eesupp/src/print.F |
366 |
PRINT_LIST_L |
& commOpen,index_lab,iLo,commClose |
|
./eesupp/src/print.F |
371 |
PRINT_LIST_L |
& commOpen,index_lab,iLo,':',iHi,commClose |
|
./eesupp/src/print.F |
430 |
PRINT_LIST_R8 |
INTEGER iLo |
|
./eesupp/src/print.F |
452 |
PRINT_LIST_R8 |
iLo = 1 |
|
./eesupp/src/print.F |
459 |
PRINT_LIST_R8 |
nDup = iHi-iLo+1 |
|
./eesupp/src/print.F |
464 |
PRINT_LIST_R8 |
& commOpen,index_lab,iLo,commClose |
|
./eesupp/src/print.F |
469 |
PRINT_LIST_R8 |
& commOpen,index_lab,iLo,':',iHi,commClose |
|
./eesupp/src/print.F |
473 |
PRINT_LIST_R8 |
iLo = K |
|
./eesupp/src/print.F |
482 |
PRINT_LIST_R8 |
nDup = iHi-iLo+1 |
|
./eesupp/src/print.F |
487 |
PRINT_LIST_R8 |
& commOpen,index_lab,iLo,commClose |
|
./eesupp/src/print.F |
492 |
PRINT_LIST_R8 |
& commOpen,index_lab,iLo,':',iHi,commClose |
|
./eesupp/src/print.F |
504 |
PRINT_MAPRS |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
|
./eesupp/src/print.F |
562 |
PRINT_MAPRS |
INTEGER iLo, iHi |
|
./eesupp/src/print.F |
566 |
PRINT_MAPRS |
_RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |
|
./eesupp/src/print.F |
927 |
PRINT_MAPRL |
I iLo, iHi, jLo, jHi, kLo, kHi, nBx, nBy, |
|
./eesupp/src/print.F |
986 |
PRINT_MAPRL |
INTEGER iLo, iHi |
|
./eesupp/src/print.F |
990 |
PRINT_MAPRL |
_RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy) |