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 =====================================
This archive was generated by hypermail 2.2.0 : Mon Jan 18 2010 - 16:16:17 CET