407       character*5 cname  local
418       fname1=trim(fname1)//cname(myrank+1)
712       character*5      cname  variable
717       mfname = trim(rfname)//'.dat'//cname(myrank+1)
735       character*5      cname  local
740       mfname = trim(rfname)//'.dat'//cname(myrank+1)
759       character*5      cname  local
764       mfname = trim(rfname)//'.dat'//cname(myrank+1)
782       character*5      cname  variable
787       mfname = trim(rfname)//'.dat'//cname(myrank+1)
807       character*5      cname  local
814       mfname = trim(rfname)//'.dat'//cname(myrank+1)
836       character*5      cname  local
842       mfname = trim(rfname)//'.dat'//cname(myrank+1)
866       character*5      cname  local
872       mfname = trim(rfname)//'.dat'//cname(myrank+1)
898       character cname*5  local
905       mfname = trim(fname)//'.dat'//cname(myrank+1)
942       character cname*5  local
954       mfname = trim(fname)//'.dat'//cname(myrank+1)