integer fgf,fgl, indfg
fgf = IFNBLNK(fgname)
& fgname(fgf:fgl), ''' does not exist'
& 'file group name ''', fgname(fgf:fgl), ''''
& fgname(fgf:fgl), ''' is not defined'
mnc_cw_fgnm(indfg)(1:(fgl-fgf+1)) = fgname(fgf:fgl)
& fgname(fgf:fgl), ''' the unlim dim ''', nudim,