| File |
Line number |
Procedure |
Code |
|
./eesupp/src/print.F |
619 |
PRINT_MAPRS |
INTEGER I, J, K, iStrngLo, iStrngHi, iBuf, iDx |
|
./eesupp/src/print.F |
830 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
833 |
PRINT_MAPRS |
IF ( iDx. LT. 10 ) THEN |
|
./eesupp/src/print.F |
834 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
|
./eesupp/src/print.F |
835 |
PRINT_MAPRS |
ELSEIF ( iDx. LT. 100 ) THEN |
|
./eesupp/src/print.F |
836 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
|
./eesupp/src/print.F |
837 |
PRINT_MAPRS |
ELSEIF ( iDx. LT. 1000 ) THEN |
|
./eesupp/src/print.F |
838 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
|
./eesupp/src/print.F |
839 |
PRINT_MAPRS |
ELSEIF ( iDx. LT. 10000 ) THEN |
|
./eesupp/src/print.F |
840 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
|
./eesupp/src/print.F |
852 |
PRINT_MAPRS |
iDx = accBase-1+(bi-1)*accStep+I |
|
./eesupp/src/print.F |
857 |
PRINT_MAPRS |
WRITE(plotBuf(iBuf:iBuf),'(I1)') MOD(iDx,10) |