source subroutine

Dear FLUKA users,

My simple test source.f is working now with simple input file
(test_source.inp) but, unfortunately, I have problems with more
complicated input file (dump1.inp). My task is to calculate the energy
deposition (dose) in the dump with some arbitrary initial distribution
of the particles. I have no idea how to solve this problem at the
moment. Could somebody help me?
You can find two input files, file with data table (input.dat) and
source.f in the attachment.
Thank you in advance.

Regards,
Vitaliy

--
GSI Helmholtzzentrum fur Schwerionenforschung GmbH
Planckstrasse 1
D-64291 Darmstadt
www.gsi.de
Gesellschaft mit beschrenkter Haftung
Sitz der Gesellschaft: Darmstadt
Handelsregister: Amtsgericht Darmstadt, HRB 1528
Geschhrung: Professor Dr. Dr. h.c. Horst Stecker, Christiane 
Neumann
Vorsitzende des Aufsichtsrates: Dr. Beatrix Vierkorn-Rudolph
Stellvertreter: Ministerialdirigent Dr. Rolf Bernhardt