File |
Line number |
Procedure |
Code |
./eesupp/src/print.F |
1017 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
./eesupp/src/print.F |
1020 |
PRINT_MAPRS |
IF ( iDx .LT. 10 ) THEN |
./eesupp/src/print.F |
1021 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
./eesupp/src/print.F |
1022 |
PRINT_MAPRS |
ELSEIF ( iDx .LT. 100 ) THEN |
./eesupp/src/print.F |
1023 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
./eesupp/src/print.F |
1024 |
PRINT_MAPRS |
ELSEIF ( iDx .LT. 1000 ) THEN |
./eesupp/src/print.F |
1025 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
./eesupp/src/print.F |
1026 |
PRINT_MAPRS |
ELSEIF ( iDx .LT. 10000 ) THEN |
./eesupp/src/print.F |
1027 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
./eesupp/src/print.F |
1039 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
./eesupp/src/print.F |
1044 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:iBuf),'(I1)') MOD(ABS(iDx),10) |
./eesupp/src/print.F |
1232 |
PRINT_MAPRL |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
./eesupp/src/print.F |
1451 |
PRINT_MAPRL |
iDx = accBase-1+(bi-1)*accStep+I |
./eesupp/src/print.F |
1454 |
PRINT_MAPRL |
IF ( iDx .LT. 10 ) THEN |
./eesupp/src/print.F |
1455 |
PRINT_MAPRL |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
./eesupp/src/print.F |
1456 |
PRINT_MAPRL |
ELSEIF ( iDx .LT. 100 ) THEN |
./eesupp/src/print.F |
1457 |
PRINT_MAPRL |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
./eesupp/src/print.F |
1458 |
PRINT_MAPRL |
ELSEIF ( iDx .LT. 1000 ) THEN |
./eesupp/src/print.F |
1459 |
PRINT_MAPRL |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
./eesupp/src/print.F |
1460 |
PRINT_MAPRL |
ELSEIF ( iDx .LT. 10000 ) THEN |
./eesupp/src/print.F |
1461 |
PRINT_MAPRL |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
./eesupp/src/print.F |
1472 |
PRINT_MAPRL |
iDx = accBase-1+(bi-1)*accStep+I |
./eesupp/src/print.F |
1477 |
PRINT_MAPRL |
WRITE(plotBuf(iBuf:iBuf),'(I1)') MOD(ABS(iDx),10) |
./eesupp/src/print.F |
799 |
PRINT_MAPRS |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |