811       character*20 mformat  local
816       write(mformat,'((A6)(I1)(A7))')'((2I)(',rn2,'E14.3))'
817       mformat = trim(mformat)
821          write(264,mformat)
839       character*20 mformat  local
846       write(mformat,'((A6)(I1)(A7))')'((1I)(',rn2,'E14.4))'
847       mformat=trim(mformat)
854          write(264,mformat)ii,(rarray(i,j),j=1,rn2)
869       character*20 mformat  local
876       write(mformat,'((A6)(I1)(A7))')'((1I)(',rn2,'E14.4))'
877       mformat=trim(mformat)
879          write(264,mformat)i,(rarray(i,j),j=1,rn2)
901       character mformat*20  local
912       write(mformat,'((A6)(I1)(A7))')'((2I)(',redun,'E14.4))'
920             write(264,mformat)i,j,(alhs(k,p),k=1,redun)
943       character mformat*20  local
961       write(mformat,'((A6)(I1)(A7))')'((2I)(',redun,'E14.4))'
969             write(264,mformat)ii,jj,(alhs(k,p),k=1,redun)
1038       character*20 mformat  local