| File |
Line number |
Procedure |
Code |
|
./eesupp/src/print.F |
336 |
PRINT_LIST_I |
INTEGER xNew, xOld |
|
./eesupp/src/print.F |
367 |
PRINT_LIST_I |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
370 |
PRINT_LIST_I |
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN |
|
./eesupp/src/print.F |
373 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
378 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
386 |
PRINT_LIST_I |
xOld = xNew |
|
./eesupp/src/print.F |
395 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
400 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
469 |
PRINT_LIST_L |
LOGICAL xNew, xOld |
|
./eesupp/src/print.F |
500 |
PRINT_LIST_L |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
503 |
PRINT_LIST_L |
IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN |
|
./eesupp/src/print.F |
506 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
511 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
519 |
PRINT_LIST_L |
xOld = xNew |
|
./eesupp/src/print.F |
528 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
533 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
602 |
PRINT_LIST_RL |
_RL xNew, xOld |
|
./eesupp/src/print.F |
633 |
PRINT_LIST_RL |
xOld = fld(iFirst) |
|
./eesupp/src/print.F |
636 |
PRINT_LIST_RL |
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN |
|
./eesupp/src/print.F |
639 |
PRINT_LIST_RL |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
644 |
PRINT_LIST_RL |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
652 |
PRINT_LIST_RL |
xOld = xNew |
|
./eesupp/src/print.F |
661 |
PRINT_LIST_RL |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
666 |
PRINT_LIST_RL |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./pkg/diagnostics/diagnostics_summary.F |
119 |
DIAGNOSTICS_SUMMARY |
xOld=ndiag(ipt,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
126 |
DIAGNOSTICS_SUMMARY |
xNew=xOld+1 |
|
./pkg/diagnostics/diagnostics_summary.F |
130 |
DIAGNOSTICS_SUMMARY |
IF (xNew.EQ.xOld) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
136 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep |
|
./pkg/diagnostics/diagnostics_summary.F |
138 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld, |
|
./pkg/diagnostics/diagnostics_summary.F |
141 |
DIAGNOSTICS_SUMMARY |
xOld = xNew |
|
./pkg/diagnostics/diagnostics_summary.F |
36 |
DIAGNOSTICS_SUMMARY |
INTEGER xNew, xOld, ii, nDup |