1 subroutine NumberModel(cmodel,model)
3 stop' ***** This program can only run EPOS ***** '
6 subroutine IniModel(model)
12 subroutine emsaaaModel(model,iret)
15 function crseModel(model,ekin,maproj,matarg,idtarg)
19 subroutine m2XXFZ( a,b)
20 double precision a, b(2)
23 subroutine m3SIGMA(ek,idpro,idtar,latar,matar,sigi,sige)
26 subroutine m6SIGMA(icl,engy,stot,sela,sine,sdifr,slela,Rho)
29 subroutine m7SIGMA(stot,scut,sine,slela)