Hi Jyoty,
try with TWOPIP instead of TWOTWOPIPI
Nicola
Il 04/05/2019 08:25, Jyoti ha scritto:
> Dear FLUKA Experts,
> I am drawing a annular cylinderical source using source.f subroutine.
> Rmin=5cm, Rmax=10cm,Hmin=30cm and Hmax=50cm
>
> These are the particle coordinates in the subroutine file.
> Particle coordinates
> RMIN = 5
> RMAX = 10
> ZMIN = 30
> ZMAX = 50
> R=SQRT(FLRNDM(DUMMY)) * (RMAX-RMIN) + RMIN
> THETA = FLRNDM(DUMMY) * TWOTWOPIPI
> x = R * cos(THETA)
> y = R * sin(THETA)
> z = ZMIN + (ZMAX - ZMIN) * FLRNDM(DUMMY)
> XFLK (NPFLKA) =x
> YFLK (NPFLKA) =y
> ZFLK (NPFLKA) =z
> WRITE(*,*) x,y,z
>
> After running the program, I opened the .log file so that I can plot
> the result in origin to check the source geometry
> But, the values of y coordinates are all zero.
>
> Where is the mistake in my particle coordinates?
>
> With Regards,
> Jyoti Garg
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
__________________________________________________________________________
You can manage unsubscription from this mailing list at https://www.fluka.org/fluka.php?id=acc_info
Received on Sat May 04 2019 - 10:53:52 CEST