Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.6 by edhill, Tue Jan 27 05:47:32 2004 UTC | revision 1.7 by edhill, Thu Jan 29 05:30:37 2004 UTC | |
|---|---|---|
| # | Line 36 C Write blanks or zeros to all the n | Line 36 C Write blanks or zeros to all the n |
| 36 | ENDDO | ENDDO |
| 37 | ||
| 38 | DO g = 1,MNC_MAX_ID | DO g = 1,MNC_MAX_ID |
| 39 | mnc_cw_names(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) | mnc_cw_gname(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
| 40 | mnc_cw_ndim(g) = 0 | mnc_cw_ndim(g) = 0 |
| 41 | DO i = 1,MNC_CW_MAX_I | DO i = 1,MNC_CW_MAX_I |
| 42 | mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) | mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |