63 common/medparam/bmin,bmax,centrmin,centrmax,breal,rau
64 DOUBLE PRECISION bmin,bmax,centrmin,centrmax,breal,rau
102 SUBROUTINE getscatterer(X,Y,Z,T,TYPE,PX,PY,PZ,E,MS,MD,TEMP)
104 DOUBLE PRECISION x,
y,
z,
t,
ms,
px,
py,
pz,
e,md,temp
106 WRITE(*,*)
'GETSCATTERER called although in vacuum'
114 WRITE(*,*)
'AVSCATCEN called although in vacuum'
133 DOUBLE PRECISION x,
y,
z,
t
141 DOUBLE PRECISION x,
y,
z,
t
196 DOUBLE PRECISION FUNCTION getmd(X,Y,Z,T)
204 DOUBLE PRECISION FUNCTION getms(X,Y,Z,T)