EPOS/epos167/eposm.f

   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