714       character*20     mfname  variable
717       mfname = trim(rfname)//'.dat'//cname(myrank+1)
719       write(*,*)'RAMG READ: ',mfname
720       open(264,file=trim(mfname),status='unknown')
737       character*20     mfname  local
740       mfname = trim(rfname)//'.dat'//cname(myrank+1)
742       write(*,*)'RAMG DUMP: ',mfname
743       open(264,file=trim(mfname),status='unknown')
761       character*20     mfname  local
764       mfname = trim(rfname)//'.dat'//cname(myrank+1)
766       write(*,*)'RAMG DUMP: ',mfname
767       open(264,file=trim(mfname),status='unknown')
784       character*20     mfname  variable
787       mfname = trim(rfname)//'.dat'//cname(myrank+1)
789       write(*,*)'RAMG DUMP: ',mfname
790       open(264,file=trim(mfname),status='unknown')
809       character*20     mfname  local
814       mfname = trim(rfname)//'.dat'//cname(myrank+1)
818       write(*,*)'RAMG DUMP: ',mfname
819       open(264,file=trim(mfname),status='unknown')
838       character*20     mfname  local
842       mfname = trim(rfname)//'.dat'//cname(myrank+1)
844       write(*,*)'RAMG DUMP: ',mfname
845       open(264,file=trim(mfname),status='unknown')
868       character*20     mfname  local
872       mfname = trim(rfname)//'.dat'//cname(myrank+1)
874       write(*,*)'RAMG DUMP: ',mfname
875       open(264,file=trim(mfname),status='unknown')
900       character mfname*15,mAname*5  local
905       mfname = trim(fname)//'.dat'//cname(myrank+1)
907       write(*,*)'RAMG Dump to matlab  ',mfname,myrank
908       open(264,file=trim(mfname),status='unknown')
941       character mfname*20  local
954       mfname = trim(fname)//'.dat'//cname(myrank+1)
956       write(*,*)'RAMG Dump to matlab  ',mfname,nshg,myrank
957       open(264,file=trim(mfname),status='unknown')
984       character mfname*15,mAname*5  local
988       mfname = trim(fname)//'.mws'
991       write(*,*)'RAMG Dump to Mupad  ',mfname
992       open(264,file=trim(mfname),status='unknown')
1037       character*20 mfname  local
1043       mfname = 'amgcoarsen.dat'
1044       open(265,file=trim(mfname),status='unknown')