fluka/STALIN |
ASTLIN (2,IZ) = MAX (SQRT(ASTLIN(2,IZ)-ASTLIN(1,IZ)**2)
|
ASTLIN (2,IZ) = MAX (SQRT(MAX(ASTLIN(2,IZ)-ASTLIN(1,IZ)**2,ZERO))
|
ggeom/GFLRAD |
DO 60 IS=-1,1,2
R2=(DX(1)+IS*DZ*XT(1))**2+(DX(2)+IS*DZ*XT(2))**2
IF(IAXIS.EQ.5) R2=R2+(DX(3)+IS*DZ*XT(3))**2
R1=SQRT(R2)
CH=MAX(CH,R1+R)
CL=MIN(CL,R1-R)
60 CONTINUE
|
IF(IAXIS.EQ.4) ST2=(1+XT(3))*(1-XT(3))
DR=SQRT(DZ*DZ*ST2+R*R)
CL=DXS-DR
IF(CL.LT.0.0) CL=0.0
CH=DXS+DR
|
gheisha/CASPIP |
DATA SUPP/0.,0.2,0.45,0.55,0.65,0.75,0.85,0.90,0.94,0.98/
DATA CECH/0.33,0.27,0.29,0.31,0.27,0.18,0.13,0.10,0.09,0.07/
|
DATA SUPP/0.,0.4,0.55,0.65,0.75,0.82,0.86,0.90,0.94,0.98/
DATA CECH/1.0,0.95,0.79,0.32,0.19,0.16,0.14,0.12,0.1,0.08/
|