DO k=1,LEN(blkFilName)
blkFilName(k:k) = ' '
fileName(l) = blkFilName
stat_fname(l) = blkFilName
fnames(n) = blkFilName
diagSt_Fname(n) = blkFilName
CHARACTER*80 fileName(ldimLoc), blkFilName