Re: extract information from EVENTBIN card

Hi Ecran,

Just add a WRITE statement
WRITE(*,*) (IDIM(I),I=1,3), GMHELP(J)
and should do the job

The "CALL ARRNDX" inside your attached routine is doing exactly what you
want.
Is decomposing the IHELP(J) to IdX, IdY, IdZ in the IDIM() array.

Cheers
Vasilis

On 13/01/10 13:10, Ercan Pilicer wrote:
> dear fluka users,
>
> i want to use EVENTBIN card to dump deposited energy in each cell,
> event by event.
> i used a RPP box geometry.
>
> RPP box -1792E-4 1792E-4 -1344E-4 1344E-4 0. 20E-4
>
> then scored deposited energy in non-zero (*41) and all cells (*61)
>
> EVENTBIN -10.0 ENERGY -41. 1792E-4 1344E-4 20.E-4Ene
> EVENTBIN -1792E-4 -1344E-4 0.0 640. 480. 20.&
>
> EVENTBIN 10.0 ENERGY -61. 1792E-4 1344E-4 20.E-4Ene
> EVENTBIN -1792E-4 -1344E-4 0.0 640. 480. 20.&
>
> then modified readbin.f (by Giuseppe Battistoni) to dump the results
> as formatted. here attached it as read_eventbin.for.
>
> as you know, the creation and reading of all cells (*61) is a time and
> memory consuming job!
> so better just to write and read non-zero cells (*41).
>
> i want to extract each cell index from IHELP(J), like IdX, IdY,IdZ.
>
> it is easier when i read all-cells (*61) in a cycle. but huge job!!
>
> can i do it when i read non-zero cells (*41) file?
>
> could you please give any comment on how to manipulate it in a
> read_eventbin.for file?
>
> thanks for advance
>
> ercan
>
> Ercan Pilicer
>
> I.N.F.N Sezione di Perugia
> c/o Dipartimento di Fisica, Università di Perugia
> Via A. Pascoli,
> 06100 Perugia, ITALY
>
> Uludag University
> High Energy Physics Department
> 16059 Bursa, TURKEY
>
Received on Wed Jan 13 2010 - 18:53:32 CET