1017 |
iDx = accBase-1+(bi-1)*accStep+I |
iDx = accBase-1+(bi-1)*accStep+I |
1018 |
iBuf = iBuf + 1 |
iBuf = iBuf + 1 |
1019 |
IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN |
IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN |
1020 |
IF ( iDx. LT. 10 ) THEN |
IF ( iDx .LT. 10 ) THEN |
1021 |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
1022 |
ELSEIF ( iDx. LT. 100 ) THEN |
ELSEIF ( iDx .LT. 100 ) THEN |
1023 |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
1024 |
ELSEIF ( iDx. LT. 1000 ) THEN |
ELSEIF ( iDx .LT. 1000 ) THEN |
1025 |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
1026 |
ELSEIF ( iDx. LT. 10000 ) THEN |
ELSEIF ( iDx .LT. 10000 ) THEN |
1027 |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
1028 |
ENDIF |
ENDIF |
1029 |
ENDIF |
ENDIF |
1451 |
iDx = accBase-1+(bi-1)*accStep+I |
iDx = accBase-1+(bi-1)*accStep+I |
1452 |
iBuf = iBuf + 1 |
iBuf = iBuf + 1 |
1453 |
IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN |
IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN |
1454 |
IF ( iDx. LT. 10 ) THEN |
IF ( iDx .LT. 10 ) THEN |
1455 |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx |
1456 |
ELSEIF ( iDx. LT. 100 ) THEN |
ELSEIF ( iDx .LT. 100 ) THEN |
1457 |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx |
1458 |
ELSEIF ( iDx. LT. 1000 ) THEN |
ELSEIF ( iDx .LT. 1000 ) THEN |
1459 |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx |
1460 |
ELSEIF ( iDx. LT. 10000 ) THEN |
ELSEIF ( iDx .LT. 10000 ) THEN |
1461 |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx |
1462 |
ENDIF |
ENDIF |
1463 |
ENDIF |
ENDIF |