extract information from EVENTBIN card

From: Ercan Pilicer <ercanpilicer_at_gmail.com>
Date: Wed, 13 Jan 2010 13:10:30 +0100

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

--001485f20c5025bc53047d0aa845
Content-Type: application/octet-stream; name="read_eventbin.for"
Content-Disposition: attachment; filename="read_eventbin.for"
Content-Transfer-Encoding: base64
X-Attachment-Id: f_g4e2eirp0

ICAgICAgUFJPR1JBTSBSRUFERVZFTlRCSU4NCg0KICAgICAgUEFSQU1FVEVSICggTVhVU0JOID0g
MTAwICkNCiAgICAgIFBBUkFNRVRFUiAoIE1YRFVNTSA9IDYxNDQwMDAgKQogICAgICBQQVJBTUVU
RVIgKCBQSSA9IDMuMTQxNTkyNjUzNTg5NzkzRDAgKQ0KICAgICAgTE9HSUNBTCBMVVNCSU4sIExF
VlRCTiwgTE5UWkVSLCBMVVNFVlQsIExVU1RLQiwgTFRSS0JOLCBMU05HQk4NCiAgICAgIENIQVJB
Q1RFUio4MCBGSUxFMSxSVU5USVQNCiAgICAgIENIQVJBQ1RFUiozMiBSVU5USU0NCiAgICAgIENI
QVJBQ1RFUioxMCBUSVRVU0IoTVhVU0JOKQ0KICAgICAgQ09NTU9OIC9VVVNSQk4vIFhMT1cgIChN
WFVTQk4pLCBYSElHSCAoTVhVU0JOKSwgWUxPVyAgKE1YVVNCTiksDQogICAgICYgICAgICAgICAg
ICAgICAgWUhJR0ggKE1YVVNCTiksIFpMT1cgIChNWFVTQk4pLCBaSElHSCAoTVhVU0JOKSwNCiAg
ICAgJiAgICAgICAgICAgICAgICBEWFVTQk4oTVhVU0JOKSwgRFlVU0JOKE1YVVNCTiksIERaVVNC
TihNWFVTQk4pLA0KICAgICAmICAgICAgICAgICAgICAgIFRDVVNCTihNWFVTQk4pLCBCS1VTQk4o
TVhVU0JOKSwgQjJVU0JOKE1YVVNCTiksDQogICAgICYgICAgICAgICAgICAgICAgWEFYVVNCKE1Y
VVNCTiksIFlBWFVTQihNWFVTQk4pLA0KICAgICAmICAgICAgICAgICAgICAgIE5YQklOIChNWFVT
Qk4pLCBOWUJJTiAoTVhVU0JOKSwgTlpCSU4gKE1YVVNCTiksDQogICAgICYgICAgICAgICAgICAg
ICAgSVRVU0JOKE1YVVNCTiksIElEVVNCTihNWFVTQk4pLCBLQlVTQk4oTVhVU0JOKSwNCiAgICAg
JiAgICAgICAgICAgICAgICBJUFVTQk4oTVhVU0JOKSwgS1JUTkJOKE1YVVNCTiksIExFVlRCTihN
WFVTQk4pLA0KICAgICAmICAgICAgICAgICAgICAgIExOVFpFUihNWFVTQk4pLCBMU05HQk4oTVhV
U0JOKSwgTFRSS0JOKE1YVVNCTiksDQogICAgICYgICAgICAgICAgICAgICAgTlVTUkJOLCBMVVNC
SU4sIExVU0VWVCwgTFVTVEtCDQogICAgICBJTlRFR0VSKjQgTkhJVFMsIElIRUxQKE1YRFVNTSkN
CiAgICAgIFJFQUwqNCBHTUhFTFAoTVhEVU1NKQoNCiAgICAgIElOVEVHRVIqNCBORElNICgzKSwg
SURJTSAoMykNCgogICAgICBJRVZSRSA9IDAKDQogICAgICBXUklURSgqLCopJyBUeXBlIHRoZSBp
bnB1dCBmaWxlOicNCiAgICAgIEZJTEUxPScgJw0KICAgICAgUkVBRCAoKiwnKEEpJylGSUxFMQ0K
ICAgICAgSUYgKCBGSUxFMSAuRVEuICcgJyApIEdPIFRPIDIwMDANCiAgICAgIE9QRU4gKFVOSVQ9
MSxGSUxFPUZJTEUxLFNUQVRVUz0nT0xEJyxGT1JNPSdVTkZPUk1BVFRFRCcsDQogICAgICYgICAg
ICBFUlI9IDIwMCkNCiAgICAgIEdPIFRPIDMwMA0KIDIwMCAgQ09OVElOVUUNCiAgICAgIFdSSVRF
KCosKiknIEVycm9yIG9wZW5pbmcgcHJpbWFyeS9zZWNvbmRhcnkgZmlsZSEnDQogICAgICBHTyBU
TyAyMDAwDQogMzAwICBDT05USU5VRQ0KCiAgICAgIElSRUFEPTANCiAgICAgIFJFQUQoMSlSVU5U
SVQsUlVOVElNDQogICAgICBXUklURSgqLCopIFJVTlRJVA0KICAgICAgV1JJVEUoKiwqKSBSVU5U
SU0NCgogICAgICBJUkVBRD1JUkVBRCsxDQogICAgICBJQjA9MA0KICAgICAgTkJUT1Q9MA0KCiAg
ICAgIERPIDEyMDEgSUI9SUIwKzEsMTAwMA0KICAgICAgICAgUkVBRCAoMSxFUlI9MTIwNSxFTkQ9
MTUwMCkgTkIsIFRJVFVTQihJQiksIElUVVNCTihJQiksDQogICAgICYgICAgICAgICAgICAgICAg
ICAgSURVU0JOKElCKSwNCiAgICAgJiAgICAgICAgICAgICAgICAgICBYTE9XKElCKSxYSElHSChJ
QiksTlhCSU4oSUIpLA0KICAgICAmICAgICAgICAgICAgICAgICAgIERYVVNCTihJQiksWUxPVyhJ
QiksDQogICAgICYgICAgICAgICAgICAgICAgICAgWUhJR0goSUIpLE5ZQklOKElCKSxEWVVTQk4o
SUIpLA0KICAgICAmICAgICAgICAgICAgICAgICAgIFpMT1coSUIpLFpISUdIKElCKSxOWkJJTihJ
QiksDQogICAgICYgICAgICAgICAgICAgICAgICAgRFpVU0JOKElCKSxMTlRaRVIoSUIpLEJLVVNC
TihJQiksDQogICAgICYgICAgICAgICAgICAgICAgICAgQjJVU0JOKElCKSxUQ1VTQk4oSUIpDQog
ICAgICAgICBXUklURSgqLCopICBOQiwgVElUVVNCKElCKSwgSVRVU0JOKElCKSwNCiAgICAgJiAg
ICAgICAgICAgICAgICAgICBJRFVTQk4oSUIpLA0KICAgICAmICAgICAgICAgICAgICAgICAgIFhM
T1coSUIpLFhISUdIKElCKSxOWEJJTihJQiksDQogICAgICYgICAgICAgICAgICAgICAgICAgRFhV
U0JOKElCKSxZTE9XKElCKSwNCiAgICAgJiAgICAgICAgICAgICAgICAgICBZSElHSChJQiksTllC
SU4oSUIpLERZVVNCTihJQiksDQogICAgICYgICAgICAgICAgICAgICAgICAgWkxPVyhJQiksWkhJ
R0goSUIpLE5aQklOKElCKSwNCiAgICAgJiAgICAgICAgICAgICAgICAgICBEWlVTQk4oSUIpLExO
VFpFUihJQiksQktVU0JOKElCKSwNCiAgICAgJiAgICAgICAgICAgICAgICAgICBCMlVTQk4oSUIp
LFRDVVNCTihJQikNCiAgICAgICAgIElSRUFEPUlSRUFEKzENCiAgICAgICAgIE5CVE9UPUlCDQog
MTIwMSBDT05USU5VRQoKIDEyMDUgQ09OVElOVUUNCiAgICAgIFJFV0lORCAxDQoKICAgICAgRE8g
ST0xLElSRUFEDQogICAgICAgIFJFQUQoMSkNCiAgICAgIEVORERPDQoKICAgICAgRE8gSUVWPTEs
MTAwMDAwMDAwCg0KICAgICAgICAgRVRPVCAgID0gMC4wDQogICAgICAgICBETyBJQj0xLE5CVE9U
DQogICAgICAgICAgICBSRUFEKDEsRU5EPTE1MDApTUIsSUVWRCxXRUkKICAgICAgICAgICAgTkIg
PSBJQgoKYyAgICAgICAgICAgcmVhZCBOT04tWkVSTyBjZWxscyBmaWxsZWQgYnkgRVZFTkJJTiBj
YXJkCiAgICAgICAgICAgIElGICggTE5UWkVSKE5CKSApIFRIRU4NCiAgICAgICAgICAgICAgIFJF
QUQgKDEsIEVORD0xNTAwKSBOSElUUywoSUhFTFAoSiksR01IRUxQKEopLEo9MSxOSElUUykKICAg
ICAgICAgICAgICAgV1JJVEUoKiwqKSAnRXZlbnQgbnVtYmVyICAgOiAnLElFVkQNCiAgICAgICAg
ICAgICAgIFdSSVRFKCosKikgJ05ISVRTICAgICAgICAgIDogJyxOSElUUwogICAgICAgICAgICAg
ICBXUklURSgqLCopIA0KICAgICAgICAgICAgICAgRE8gSiA9IDEsIE5ISVRTDQogICAgICAgICAg
ICAgICBXUklURSgqLCopIEosIElIRUxQKEopLCBHTUhFTFAoSikNCiAgICAgICAgICAgICAgIEVO
RCBETwogICAgICAgICAgICAgICBETyBKPTEsTkhJVFMNCiAgICAgICAgICAgICAgICAgIE5ESU0g
KDEpID0gTlhCSU4gKE5CKQ0KICAgICAgICAgICAgICAgICAgTkRJTSAoMikgPSBOWUJJTiAoTkIp
DQogICAgICAgICAgICAgICAgICBORElNICgzKSA9IE5aQklOIChOQikKICAgICAgICAgICAgICAg
ICAgQ0FMTCBBUlJORFggKCBJSEVMUChKKSwgMywgTkRJTSwgSURJTSApDQogICAgICAgICAgICAg
ICAgICBJRiAoR01IRUxQKEopLkdULjAuKSBUSEVODQogICAgICAgICAgICAgICAgICAgICBFVE9U
ID0gRVRPVCArIGdtaGVscChqKQ0KICAgICAgICAgICAgICAgICAgRU5ESUYNCiAgICAgICAgICAg
ICAgIEVORCBETwogICAgICAgICAgICAgICBXUklURSgqLCopIAogICAgICAgICAgICAgICBXUklU
RSgqLCopICdFZGVwIGluIHRoaXMgZXZlbnQgKEdlVikgOiAnLEVUT1QKICAgICAgICAgICAgICAg
V1JJVEUoKiwqKQogICAgICAgICAgICAgICBXUklURSgqLCopICc9PT09PSBBTEwgTk9OIFpFUk8g
Q0VMTFMgQVJFIFJFQUQgPT09PT0nCiAgICAgICAgICAgICAgIFdSSVRFKCosKikKCmMgICAgICAg
ICAgIGFsbCBjZWxscyBhciByZWFkIQogICAgICAgICAgICBFTFNFCiAgICAgICAgICAgICAgIFJF
QUQgKDEsIEVORD0xNTAwKQ0KICAgICAmICAgICAgICAgICAgICAoR01IRUxQKEopLEo9MSxOWEJJ
TihOQikqTllCSU4oTkIpKk5aQklOKE5CKSkNCiAgICAgICAgICAgICAgIE5ISVRTID0gTlhCSU4o
TkIpKk5ZQklOKE5CKSpOWkJJTihOQikKICAgICAgICAgICAgICAgV1JJVEUoKiwqKSAnRXZlbnQg
bnVtYmVyICAgOiAnLElFVkQNCiAgICAgICAgICAgICAgIFdSSVRFKCosKikgJ05DRUxMUyAgICAg
ICAgIDogJyxOSElUUwogICAgICAgICAgICAgICBXUklURSgqLCopIA0KICAgICAgICAgICAgICAg
SiA9IDAKICAgICAgICAgICAgICAgRE8gMTEgSVogPSAxLCBOWkJJTihOQikKICAgICAgICAgICAg
ICAgICAgRE8gMTIgSVkgPSAxLCBOWUJJTihOQikKICAgICAgICAgICAgICAgICAgICAgRE8gMTMg
SVggPSAxLCBOWEJJTihOQikKICAgICAgICAgICAgICAgICAgICAgICAgSiA9IEogKyAxCiAgICAg
ICAgICAgICAgICAgICAgICAgIElGIChHTUhFTFAoSikuRVEuMC4wKSBHT1RPIDEzCiAgICAgICAg
ICAgICAgICAgICAgICAgIElEQ0VMTCA9IElYICsgKElZLTEpKk5YQklOKE5CKSArCiAgICAgKyAg
ICAgICAgICAgICAgICAgICAgICAgICAoSVotMSkqTlhCSU4oTkIpKk5ZQklOKE5CKQogICAgICAg
ICAgICAgICAgICAgICAgICBXUklURSgqLCopIEosSVgsSVksSVosSURDRUxMLEdNSEVMUChKKQog
ICAgICAgICAgICAgICAgICAgICAgICBFVE9UID0gRVRPVCArIGdtaGVscChqKQogMTMgICAgICAg
ICAgICAgICAgICBDT05USU5VRQogMTIgICAgICAgICAgICAgICBDT05USU5VRQogMTEgICAgICAg
ICAgICBDT05USU5VRQoKICAgICAgICAgICAgICAgV1JJVEUoKiwqKSAKICAgICAgICAgICAgICAg
V1JJVEUoKiwqKSAnRWRlcCBpbiB0aGlzIGV2ZW50IChHZVYpIDogJyxFVE9UCiAgICAgICAgICAg
ICAgIFdSSVRFKCosKikKICAgICAgICAgICAgICAgV1JJVEUoKiwqKSAnPT09PT09IEFMTCBDRUxM
UyBBUkUgUkVBRCA9PT09PT0nCiAgICAgICAgICAgICAgIFdSSVRFKCosKikNCiAgICAgICAgICAg
IEVORCBJRgoKICAgICAgICAgRU5ERE8KDQogICAgICAgICBJRVZSRSA9IElFVlJFICsgMQ0KDQog
ICAgICBFTkQgRE8NCiAxNTAwIENPTlRJTlVFCiAgICAgIENMT1NFKDEpCg0KICAgICAgV1JJVEUg
KCosKiknVG90YWwgZXZlbnQgbnVtYmVyIGlzIDogJyxJRVZECiAgICAgIFdSSVRFICgqLCopDQoN
CiAyMDAwIENPTlRJTlVFDQogICAgICBTVE9QDQogICAgICBFTkQNCg0K
--001485f20c5025bc53047d0aa845--
Received on Wed Jan 13 2010 - 16:16:59 CET

This archive was generated by hypermail 2.2.0 : Wed Jan 13 2010 - 16:17:05 CET