Re: extract information from EVENTBIN card

Hi Vasilis,
i did another trick to dump my desired information from file which has
Non-Zero filled Cells..
i attached the file again...
but yours is shorter in line and faster in time!
really nice thank you Vasilis!
ciao
e.

On Wed, Jan 13, 2010 at 5:52 PM, Vasilis Vlachoudis
<Vasilis.Vlachoudis_at_cern.ch> wrote:
> 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
>>
>
>

-- 
=====================================
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
=====================================