Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.3 by jmc, Thu Dec 16 21:46:36 2004 UTC | revision 1.4 by jmc, Mon Jan 3 19:50:14 2005 UTC | |
|---|---|---|
| # | Line 99 C write a summary of the (long) list | Line 99 C write a summary of the (long) list |
| 99 | ENDDO | ENDDO |
| 100 | ||
| 101 | CALL MDSFINDUNIT( dUnit, mythid ) | CALL MDSFINDUNIT( dUnit, mythid ) |
| 102 | OPEN(dUnit, file='available_diagnostics', status='unknown', | OPEN(dUnit, file='available_diagnostics.log', |
| 103 | & form='formatted') | & status='unknown', form='formatted') |
| 104 | WRITE(dUnit,'(A,I4)') | WRITE(dUnit,'(A,I4)') |
| 105 | & ' Total Nb of available Diagnostics: ndiagt=', ndiagt | & ' Total Nb of available Diagnostics: ndiagt=', ndiagt |
| 106 | WRITE(dUnit,'(A)') ccLine | WRITE(dUnit,'(A)') ccLine |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |