integer i,j,k, n, lenv
lenv = ILNBLNK(vname)
IF ( n.EQ.lenv ) THEN
INTEGER lenf,leng,lenv
& vname(1:lenv), ''' is already defined in file ''',
WRITE(msgBuf,'(5A)') 'defining variable ''', vname(1:lenv),
mnc_v_names(indv)(1:lenv) = vname(1:lenv)
INTEGER lenf,lenv,lenat,lens
& vname(1:lenv), ''''
INTEGER lenf,lenv, lend
WRITE(msgBuf,'(5A)') 'writing variable ''', vname(1:lenv),