integer i,j,k, n, lenv
lenv = ILNBLNK(vname)
IF ((n .EQ. lenv)
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),