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 |