Parent Directory | Revision Log | Revision Graph | Patch
revision 1.19 by edhill, Fri Feb 24 20:39:10 2006 UTC | revision 1.20 by edhill, Fri Mar 10 05:50:23 2006 UTC | |
---|---|---|
# | Line 225 C Add the variable definition | Line 225 C Add the variable definition |
225 | ENDIF | ENDIF |
226 | ||
227 | C Success, so save the variable info | C Success, so save the variable info |
228 | CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,indv, myThid) | CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID,mnc_v_names,'mnc_v_names', |
229 | & indv, myThid) | |
230 | mnc_v_names(indv)(1:lenv) = vname(1:lenv) | mnc_v_names(indv)(1:lenv) = vname(1:lenv) |
231 | nv = mnc_fv_ids(indf,1) | nv = mnc_fv_ids(indf,1) |
232 | i = 2 + nv*3 | i = 2 + nv*3 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |