Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.5 by edhill, Mon Apr 5 06:01:07 2004 UTC | revision 1.6 by edhill, Wed Oct 20 21:26:14 2004 UTC | |
|---|---|---|
| # | Line 52 C Check that this name is not alread | Line 52 C Check that this name is not alread |
| 52 | CALL MNC_GET_NEXT_EMPTY_IND( | CALL MNC_GET_NEXT_EMPTY_IND( |
| 53 | & MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid) | & MNC_MAX_ID, mnc_cw_fgnm, indfg, myThid) |
| 54 | mnc_cw_fgud(indfg) = 0 | mnc_cw_fgud(indfg) = 0 |
| 55 | C mnc_cw_fgis(indfg) = 0 | |
| 56 | ENDIF | ENDIF |
| 57 | mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl) | mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl) |
| 58 | IF (nudim .GT. 0) THEN | IF (nudim .GT. 0) THEN |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |