| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_summary.F |
111 |
DIAGNOSTICS_SUMMARY |
xOld=ndiag(ipt,1,1) |
|
./pkg/diagnostics/diagnostics_summary.F |
118 |
DIAGNOSTICS_SUMMARY |
xNew=xOld+1 |
|
./pkg/diagnostics/diagnostics_summary.F |
122 |
DIAGNOSTICS_SUMMARY |
IF (xNew.EQ.xOld) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
128 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I5,A)') tmpBuf(1:iLen),xOld,cSep |
|
./pkg/diagnostics/diagnostics_summary.F |
130 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I5,A,I2,2A)') tmpBuf(1:iLen),xOld, |
|
./pkg/diagnostics/diagnostics_summary.F |
133 |
DIAGNOSTICS_SUMMARY |
xOld = xNew |
|
./pkg/diagnostics/diagnostics_summary.F |
36 |
DIAGNOSTICS_SUMMARY |
INTEGER xNew, xOld, ii, nDup |
|
./eesupp/src/print.F |
192 |
PRINT_LIST_I |
INTEGER xNew, xOld |
|
./eesupp/src/print.F |
214 |
PRINT_LIST_I |
xOld = fld(1) |
|
./eesupp/src/print.F |
217 |
PRINT_LIST_I |
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN |
|
./eesupp/src/print.F |
220 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
225 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
233 |
PRINT_LIST_I |
xOld = xNew |
|
./eesupp/src/print.F |
242 |
PRINT_LIST_I |
WRITE(msgBuf,'(A,I9,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
247 |
PRINT_LIST_I |
WRITE(msgBuf,'(I5,'' '',A,I9,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
313 |
PRINT_LIST_L |
LOGICAL xNew, xOld |
|
./eesupp/src/print.F |
335 |
PRINT_LIST_L |
xOld = fld(1) |
|
./eesupp/src/print.F |
338 |
PRINT_LIST_L |
IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN |
|
./eesupp/src/print.F |
341 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
346 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
354 |
PRINT_LIST_L |
xOld = xNew |
|
./eesupp/src/print.F |
363 |
PRINT_LIST_L |
WRITE(msgBuf,'(A,L5,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
368 |
PRINT_LIST_L |
WRITE(msgBuf,'(I5,'' '',A,L5,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
433 |
PRINT_LIST_R8 |
Real*8 xNew, xOld |
|
./eesupp/src/print.F |
455 |
PRINT_LIST_R8 |
xOld = fld(1) |
|
./eesupp/src/print.F |
458 |
PRINT_LIST_R8 |
IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN |
|
./eesupp/src/print.F |
461 |
PRINT_LIST_R8 |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
466 |
PRINT_LIST_R8 |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |
|
./eesupp/src/print.F |
475 |
PRINT_LIST_R8 |
xOld = xNew |
|
./eesupp/src/print.F |
484 |
PRINT_LIST_R8 |
WRITE(msgBuf,'(A,1PE23.15,A)') ' ',xOld,punc |
|
./eesupp/src/print.F |
489 |
PRINT_LIST_R8 |
WRITE(msgBuf,'(I5,'' '',A,1PE23.15,A)') nDup,'@',xOld,punc |