]>
Commit | Line | Data |
---|---|---|
9ef1c2d9 | 1 | subroutine NumberModel(cmodel,model) |
2 | character cmodel*21 | |
3 | stop' ***** This program can only run EPOS ***** ' | |
4 | end | |
5 | ||
6 | subroutine IniModel(model) | |
7 | end | |
8 | ||
9 | subroutine IniEvtModel | |
10 | end | |
11 | ||
12 | subroutine emsaaaModel(model,iret) | |
13 | end | |
14 | ||
15 | function crseModel(model,ekin,maproj,matarg,idtarg) | |
16 | crseModel=0d0 | |
17 | end | |
18 | ||
19 | subroutine m2XXFZ( a,b) | |
20 | double precision a, b(2) | |
21 | end | |
22 | ||
23 | subroutine m3SIGMA(ek,idpro,idtar,latar,matar,sigi,sige) | |
24 | end | |
25 | ||
26 | subroutine m6SIGMA(icl,engy,stot,sela,sine,sdifr,slela,Rho) | |
27 | end | |
28 | ||
29 | subroutine m7SIGMA(stot,scut,sine,slela) | |
30 | end |