180 |
xOld = fld(1) |
xOld = fld(1) |
181 |
DO K=2,lFld |
DO K=2,lFld |
182 |
xNew = fld(K ) |
xNew = fld(K ) |
183 |
IF ( .NOT. compact .OR. xNew .NE. xOld ) THEN |
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN |
184 |
nDup = iHi-iLo+1 |
nDup = iHi-iLo+1 |
185 |
IF ( nDup .EQ. 1 ) THEN |
IF ( nDup .EQ. 1 ) THEN |
186 |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
294 |
xOld = fld(1) |
xOld = fld(1) |
295 |
DO K=2,lFld |
DO K=2,lFld |
296 |
xNew = fld(K ) |
xNew = fld(K ) |
297 |
IF ( .NOT. compact .OR. xNew .NEQV. xOld ) THEN |
IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN |
298 |
nDup = iHi-iLo+1 |
nDup = iHi-iLo+1 |
299 |
IF ( nDup .EQ. 1 ) THEN |
IF ( nDup .EQ. 1 ) THEN |
300 |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
408 |
xOld = fld(1) |
xOld = fld(1) |
409 |
DO K=2,lFld |
DO K=2,lFld |
410 |
xNew = fld(K ) |
xNew = fld(K ) |
411 |
IF ( .NOT. compact .OR. xNew .NE. xOld ) THEN |
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN |
412 |
nDup = iHi-iLo+1 |
nDup = iHi-iLo+1 |
413 |
IF ( nDup .EQ. 1 ) THEN |
IF ( nDup .EQ. 1 ) THEN |
414 |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |