fileflags(l) = blk8c
fflags(n) = fileflags(l)
CHARACTER*8 fileflags(ldimLoc)
& levels, fields, filename, fileflags,