  subroutine readtext(nin,jin,text,mat,mf,mt,ns)
  subroutine readcont(nin,jin,c1,c2,l1,l2,n1,n2,mat,mf,mt,ns)
  subroutine readlist(nin,jin,c1,c2,l1,l2,npl,n2,b)
  subroutine readtab1(nin,jin,c1,c2,l1,l2,nr,nbt,ibt,np,x,y)
  subroutine readtab2(nin,jin,c1,c2,l1,l2,nr,nbt,ibt,np2)
  subroutine readintg(nin,jin,ndigit,ii,jj,nrow,kij)
  subroutine wrtext(nou,jou,mat,mf,mt,ns,text)
  subroutine wrtcont(nou,jou,mat,mf,mt,ns,c1,c2,l1,l2,n1,n2)
  subroutine wrtsend(nou,jou,mat,mf,ns)
  subroutine wrtfend(nou,jou,mat,ns)
  subroutine wrtmend(nou,jou,ns)
  subroutine wrtend(nou,jou,ns)
  subroutine wrtlist(nou,jou,mat,mf,mt,ns,c1,c2,l1,l2,npl,n2,b)
  subroutine wrtab1(nou,jou,mat,mf,mt,ns,c1,c2,l1,l2,nr,nbt,ibt,np,x,y)
  subroutine wrtab2(nou,jou,mat,mf,mt,ns,c1,z,l1,l2,nr,nbt,ibt,np2)
  subroutine wrtintg(nou,jou,mat,mf,mt,ns,ii,jj,nrow,kij)
  subroutine chendf(ffin,str11)
  subroutine packibt(np,ibtu,nr,nbt,ibt)
  subroutine unpackibt(nr,nbt,ibt,np,ibtu)
  subroutine readtape(endftape,maxdim,tapehead,nin,ninrec,ierr)
  subroutine wrt2tape(iou,nou,joumin,joumax)
  subroutine findmat(nin,jin,mat,ierr)
  subroutine findmf(nin,jin,mat,mf,ierr)
  subroutine findmt(nin,jin,mat,mf,mt,ierr)
  subroutine getnextmt(nin,jin,mf,mt)
  subroutine nextsub6(nin,jin,law,nbt,ibt,x,b)
  subroutine getmf3mt_form(nin,jin,np)
  subroutine readmf3mt_std(nin,jin,za,awr,qm,qi,lr,np,x,y,nr,nbt,ibt)
  subroutine readmf3mt_ext(nin,jin,za,awr,qm,qi,lr,np,x,y,ibt)
  subroutine wrtmf3mt_std(nou,jou,mat,mt,za,awr,qm,qi,lr,np,x,y,nr,nbt,ibt)
  subroutine wrtmf3mt_ext(nou,jou,mat,mt,za,awr,qm,qi,lr,np,x,y,ibt)
  subroutine wrtmf3mt_law(nou,jou,mat,mt,za,awr,qm,qi,lr,np,x,y,ilaw)
  subroutine wrtmf3mt_lin(nou,jou,mat,mt,za,awr,qm,qi,lr,np,x,y)
  subroutine getmf4mt_form(nin,jin,ltt,nel,nal,neh,nah)
  subroutine readmf4mt_iso(nin,jin,za,awr,lct)
  subroutine readmf4mt_leg(nin,jin,za,awr,lct,ne,e,ile,na,nl,a)
  subroutine readmf4mt_tab(nin,jin,za,awr,lct,ne,e,ile,na,nmu,xmu,ymu,ilmu)
  subroutine readmf4mt_mix(nin,jin,za,awr,lct,nel,el,ilel,nal,nl,a,neh,eh,ileh,nah,nmu,xmu,ymu,ilmu)
  subroutine wrtmf4mt_iso(nou,jou,mat,mt,za,awr,lct)
  subroutine wrtmf4mt_leg(nou,jou,mat,mt,za,awr,lct,ne,e,ile,na,nl,a)
  subroutine wrtmf4mt_leg_law(nou,jou,mat,mt,za,awr,lct,ne,e,ilaw,na,nl,a)
  subroutine wrtmf4mt_leg_lin(nou,jou,mat,mt,za,awr,lct,ne,e,na,nl,a)
  subroutine wrtmf4mt_tab(nou,jou,mat,mt,za,awr,lct,ne,e,ile,na,nmu,xmu,ymu,ilmu)
  subroutine wrtmf4mt_tab_law(nou,jou,mat,mt,za,awr,lct,ne,e,ilaw,na,nmu,xmu,ymu,mulaw)
  subroutine wrtmf4mt_tab_lin(nou,jou,mat,mt,za,awr,lct,ne,e,na,nmu,xmu,ymu)
  subroutine wrtmf4_mix(nou,jou,mat,mt,za,awr,lct,nel,el,ilel,nal,nl,a,neh,eh,ileh,nah,nmu,xmu,ymu,ilmu)
  subroutine wrtmf4_mix_law(nou,jou,mat,mt,za,awr,lct,nel,el,lawl,nal,nl,a,neh,eh,lawh,nah,nmu,xmu,ymu,lawmu)
  subroutine wrtmf4_mix_lin(nou,jou,mat,mt,za,awr,lct,nel,el,nal,nl,a,neh,eh,nah,nmu,xmu,ymu)
  subroutine readmf5mt_head(nin,jin,za,awr,nk)
  subroutine mf5mtsub_form(nin,jin,nk,lf,jlf,np,ne,nep)
  subroutine readmf5_tabular(nin,jin,np,ep,p,ilep,ne,e,ile,nep,nf,ef,f,ilef)
  subroutine readmf5_gen_eva(nin,jin,np,ep,p,ilep,ne,e,theta,ile,nf,x,f,ilx,u)
  subroutine readmf5_maxwell(nin,jin,np,ep,p,ilep,ne,e,theta,ile,u)
  subroutine readmf5_eva(nin,jin,np,ep,p,ilep,ne,e,theta,ile,u)
  subroutine readmf5_watt(nin,jin,np,ep,p,ilep,nea,ea,a,ilea,neb,eb,b,ileb,u)
  subroutine readmf5_madland_nix(nin,jin,np,ep,p,ilep,ne,e,tm,ile,efl,efh)
  subroutine wrtmf5mt_head(nou,jou,mat,mt,ns,za,awr,nk)
  subroutine wrtmf5_tabular(nou,jou,mat,mt,ns,np,ep,p,ilep,ne,e,ile,nep,nf,ef,f,ilef)
  subroutine wrtmf5_tabular_law(nou,jou,mat,mt,ns,np,ep,p,ilepk,ne,e,ilek,nep,nf,ef,f,ilefk)
  subroutine wrtmf5_tabular_lin(nou,jou,mat,mt,ns,np,ep,p,ne,e,nep,nf,ef,f)
  subroutine wrtmf5_gen_eva(nou,jou,mat,mt,ns,np,ep,p,ilep,ne,e,theta,ile,nf,x,f,ilx,u)
  subroutine wrtmf5_gen_eva_law(nou,jou,mat,mt,ns,np,ep,p,ilepk,ne,e,theta,ilek,nf,x,f,ilxk,u)
  subroutine wrtmf5_gen_eva_lin(nou,jou,mat,mt,ns,np,ep,p,ne,e,theta,nf,x,f,u)
  subroutine wrtmf5_maxwell(nou,jou,mat,mf,ns,np,ep,p,ilep,ne,e,theta,ile,u)
  subroutine wrtmf5_maxwell_law(nou,jou,mat,mf,ns,np,ep,p,ilepk,ne,e,theta,ilek,u)
  subroutine wrtmf5_maxwell_lin(nou,jou,mat,mf,ns,np,ep,p,ne,e,theta,u)
  subroutine wrtmf5_eva(nou,jou,mat,mt,ns,np,ep,p,ilep,ne,e,theta,ile,u)
  subroutine wrtmf5_eva_law(nou,jou,mat,mt,ns,np,ep,p,ilepk,ne,e,theta,ilek,u)
  subroutine wrtmf5_eva_lin(nou,jou,mat,mf,ns,np,ep,p,ne,e,theta,u)
  subroutine wrtmf5_watt(nou,jou,mat,mt,ns,np,ep,p,ilep,nea,ea,a,ilea,neb,eb,b,ileb,u)
  subroutine wrtmf5_watt_law(nou,jou,mat,mt,ns,np,ep,p,ilepk,nea,ea,a,ileak,neb,eb,b,ilebk,u)
  subroutine wrtmf5_watt_lin(nou,jou,mat,mt,ns,np,ep,p,nea,ea,a,neb,eb,b,u)
  subroutine wrtmf5_madland_nix(nou,jou,mat,mt,ns,np,ep,p,ilep,ne,e,tm,ile,efl,efh)
  subroutine wrtmf5_madland_nix_law(nou,jou,mat,mt,ns,np,ep,p,ilepk,ne,e,tm,ilek,efl,efh)
  subroutine wrtmf5_madland_nix_lin(nou,jou,mat,mt,ns,np,ep,p,ne,e,tm,efl,efh)
  subroutine readmf6mt_head(nin,jin,za,awr,jp,lct,nk)
  subroutine readmf6_law_form(nin,jin,jp,nk,law,ltype,lzap,awp,lip,np,ne,na,nep)
  subroutine readmf6_law0_3_4_neg(nin,jin,law,zap,awp,lip,ny,ey,y,ily)
  subroutine readmf6_law1_iso(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nepdim,nep,ep,lep,f0)
  subroutine readmf6_law1_leg(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nadim,na,nepdim,nep,ep,lep,a)
  subroutine readmf6_law1_Kalbach_Mann(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,na,nepdim,nep,ep,lep,f0,r,a)
  subroutine readmf6_law1_Kalbach_Mann_na1(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nepdim,nep,ep,lep,f0,r)
  subroutine readmf6_law1_Kalbach_Mann_na2(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nepdim,nep,ep,lep,f0,r,a)
  subroutine readmf6_law1_tab(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nadim,na,nepdim,nep,ep,lep,f0,xmu,ymu,lmu)
  subroutine readmf6_law2_leg(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nadim,na,a)
  subroutine readmf6_law2_tab(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nadim,nmu,xmu,ymu,ilmu)
  subroutine readmf6_law2_mix(nin,jin,zap,awp,lip,ny,ey,y,ily,nel,el,ilel,nal,na,a,neh,eh,ileh,nah,nmu,xmu,ymu,ilmu)
  subroutine readmf6_law6_phase_space(nin,jin,zap,awp,lip,ny,ey,y,ily,npsx,apsx)
  subroutine readmf6_law7_lab(nin,jin,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nadim,nmu,xmu,ilmu,nepdim,nep,ep,f,ilef)
  subroutine wrtmf6mt_head(nou,jou,mat,mt,ns,za,awr,jp,lct,nk)
  subroutine wrtmf6_law0_3_4_neg(nou,jou,mat,mt,ns,law,zap,awp,lip,ny,ey,y,ily)
  subroutine wrtmf6_law1_leg(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nadim,na,nepdim,nep,ep,lep,a)
  subroutine wrtmf6_law1_leg_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawa,nd,nadim,na,nepdim,nep,ep,lep,a)
  subroutine wrtmf6_law1_leg_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nd,nadim,na,nepdim,nep,ep,lep,a)
  subroutine wrtmf6_law1_iso(nou,jou,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nepdim,nep,ep,lep,f0)
  subroutine wrtmf6_law1_iso_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf0,nd,nepdim,nep,ep,lep,f0)
  subroutine wrtmf6_law1_iso_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nd,nepdim,nep,ep,lep,f0)
  subroutine wrtmf6_law1_Kalbach_Mann(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,na,nepdim,nep,ep,lep,f0,r,a)
  subroutine wrtmf6_law1_Kalbach_Mann_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf,nd,na,nepdim,nep,ep,lep,f0,r,a)
  subroutine wrtmf6_law1_Kalbach_Mann_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nd,na,nepdim,nep,ep,lep,f0,r,a)
  subroutine wrtmf6_law1_Kalbach_Mann_na1(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nepdim,nep,ep,lep,f0,r)
  subroutine wrtmf6_law1_Kalbach_Mann_na1_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf,nd,nepdim,nep,ep,lep,f0,r)
  subroutine wrtmf6_law1_Kalbach_Mann_na1_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nd,nepdim,nep,ep,lep,f0,r)
  subroutine wrtmf6_law1_Kalbach_Mann_na2(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nepdim,nep,ep,lep,f0,r,a)
  subroutine wrtmf6_law1_Kalbach_Mann_na2_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf,nd,nepdim,nep,ep,lep,f0,r,a)
  subroutine wrtmf6_law1_Kalbach_Mann_na2_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nd,nepdim,nep,ep,lep,f0,r,a)
  subroutine wrtmf6_law1_tab(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nd,nadim,na,nepdim,nep,ep,lep,f0,xmu,ymu,lmu)
  subroutine wrtmf6_law1_tab_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf,nd,nadim,na,nepdim,nep,ep,lep,f0,xmu,ymu,lmu)
  subroutine wrtmf6_law1_tab_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nd,nadim,na,nepdim,nep,ep,f0,xmu,ymu)
  subroutine wrtmf6_law2_leg(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nadim,na,a)
  subroutine wrtmf6_law2_leg_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawa,nadim,na,a)
  subroutine wrtmf6_law2_leg_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nadim,na,a)
  subroutine wrtmf6_law2_tab(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nadim,nmu,xmu,ymu,ilmu)
  subroutine wrtmf6_law2_tab_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf,nadim,nmu,xmu,ymu,lawmu)
  subroutine wrtmf6_law2_tab_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nadim,nmu,xmu,ymu)
  subroutine wrtmf6_law2_mix(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,nel,el,ilel,nal,na,a,neh,eh,ileh,nah,nmu,xmu,ymu,ilmu)
  subroutine wrtmf6_law2_mix_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,nel,el,lawel,nal,na,a,neh,eh,laweh,nah,nmu,xmu,ymu,lmu)
  subroutine wrtmf6_law2_mix_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,nel,el,nal,na,a,neh,eh,nah,nmu,xmu,ymu)
  subroutine wrtmf6_law6_phase_space(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,npsx,apsx)
  subroutine wrtmf6_law7_lab(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ily,ne,e,ile,nadim,nmu,xmu,ilmu,nepdim,nep,ep,f,ilef)
  subroutine wrtmf6_law7_lab_law(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,lawy,ne,e,lawf,nadim,nmu,xmu,lmu,nepdim,nep,ep,f,lep)
  subroutine wrtmf6_law7_lab_lin(nou,jou,mat,mt,ns,zap,awp,lip,ny,ey,y,ne,e,nadim,nmu,xmu,nepdim,nep,ep,f)
  subroutine renorm_leg(na,a,c,f)
  subroutine renorm_tab(np,x,y,law,c,f)
