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