(no subject)

Dear FLUKA experts,

Thanks for being helpful.
I am calculating dose equivalent from neutrons produced in the snout and in
the phantom. In order to calculate the dose equivalent from internal
neutrons (neutrons produced inside the phantom), I need to dump the
neutrons which are produced in the snout so that they can not reach the
phantom. How can I do that?

Attached is my input and user routine used for Dose equivalent. Any kind of
help is appreciated.

Sincerely
Mohammad

--047d7b33d61adbe55d04c1e808d9
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Dear FLUKA experts,<br><br>Thanks for being helpful.<br>I am calculating do=
se equivalent from neutrons produced in the snout and in the phantom. In or=
der to calculate the dose equivalent from internal neutrons (neutrons produ=
ced inside the phantom), I need to dump the neutrons which are produced in =
the snout so that they can not reach the phantom. How can I do that?<br>
<br>Attached is my input and user routine used for Dose equivalent. Any kin=
d of help is appreciated. <br><br>Sincerely<br>Mohammad<br>

--047d7b33d61adbe55d04c1e808d9--
--047d7b33d61adbe56204c1e808db
Content-Type: application/octet-stream; name="int_neu_162MeV.flair"
Content-Disposition: attachment; filename="int_neu_162MeV.flair"
Content-Transfer-Encoding: base64
X-Attachment-Id: f_h36ad3ul0

IyBGTFVLQSBQcm9qZWN0IGZpbGUKVmVyc2lvbjogMQpUaXRsZTogTUMtQ0FEIFRlc3QKSW5wdXQ6
IGludF9uZXVfMTYyTWVWLmlucApFeGVjOiAvaG9tZS9uYXRoYW4vZmx1a2EyMDExLjIvQ1IzOV9t
b2RpZnkKU3VibWl0OiAqRGVmYXVsdApTb3VyY2U6IGZsdXNjd19tb2QuZgpEZWZNYWluOiBUcnVl
CkxpbmtQcmc6IGxmbHVrYQpGNzdib3VuZDogVHJ1ZQpGNzdkbGluZTogRmFsc2UKCiMgUnVuIGlu
Zm9ybWF0aW9uClJ1bjogPGRlZmF1bHQ+CglSbmQ6ICAgICAgNjA3Mzk4MDI3CglQcmV2OiAgICAg
MAoJTGFzdDogICAgIDEKCVN0YXR1czogICA0CglQaWQ6ICAgICAgMAoJU3RhcnRSdW46IDEzMzkx
MDA4NjcKCgkjIFVTUnh4eCBkYXRhIGZpbGU6IGludF9uZXVfMTYyTWVWX3VzcmJpbl8yMwoJRGF0
YTogXElfXFRfXFUKCQlVbml0OiAgICAgIDIzCgkJVHlwZTogICAgICBiCgkJUmVjdXJzaXZlOiAw
CgkJUnVsZTogICAgICssXElcZFxkXGRfZm9ydFwuXFUKCQlSdWxlOiAgICAgKyxcSVxkXGRcZF9m
dG5cLlxVCgkJUnVsZTogICAgICssX1xJX1xkXGRcZFxkXGRfZm9ydFwuXFUKCUVuZAoKCSMgVVNS
eHh4IGRhdGEgZmlsZTogaW50X25ldV8xNjJNZVZfdXNyYmluXzI0CglEYXRhOiBcSV9cVF9cVQoJ
CVVuaXQ6ICAgICAgMjQKCQlUeXBlOiAgICAgIGIKCQlSZWN1cnNpdmU6IDAKCQlSdWxlOiAgICAg
KyxcSVxkXGRcZF9mb3J0XC5cVQoJCVJ1bGU6ICAgICArLFxJXGRcZFxkX2Z0blwuXFUKCQlSdWxl
OiAgICAgKyxfXElfXGRcZFxkXGRcZF9mb3J0XC5cVQoJRW5kCkVuZAoKIyBHZW9tZXRyeSBJbmZv
cm1hdGlvbgpHZW9tZXRyeToKCUZyYW1lLmJzcGxpdDogMC41CglPcHRpb25zLmdyaWRsZXZlbDog
MjUKCU9wdGlvbnMubGF0dGljZWxldmVsOiAyNQoJT3B0aW9ucy52aWV3cG9ydDogVHJ1ZQoJT3B0
aW9ucy5jcm9zc2hhaXI6IEZhbHNlCglPcHRpb25zLnRpdGxlOiBUcnVlCglPcHRpb25zLmF4ZXM6
IFRydWUKCUZyYW1lLnZzcGxpdDogMC41CglGcmFtZS50c3BsaXQ6IDAuNQoJT3B0aW9ucy5ncmlk
OiBUcnVlCgoJIyBMYXllcgoJTGF5ZXI6IDNECgkJM0QuYXBlcnR1cmU6IDMwCgkJU2hvdy52ZXJ0
ZXg6IFRydWUKCQlTaG93OiBUcnVlCgkJU2hvdy5ib3JkZXJzOiBUcnVlCgkJSW1hZ2U6IEZhbHNl
CgkJM0QucGVyc3BlY3RpdmU6IEZhbHNlCgkJM0Q6IFRydWUKCQkzRC5hbnRpYWxpYXM6IDEKCQlT
aG93LmNvbG9yOiBNYXRlcmlhbAoJCVVzcmJpbjogRmFsc2UKCQlTaG93LnZveGVsOiBUcnVlCgkJ
M0QuY2xpcG5lZ2F0aXZlOiBGYWxzZQoJCVNob3cubGF0dGljZTogVHJ1ZQoJCTNELnhyYXk6IDAK
CQkzRC5hbWJpZW50OiA2NAoJRW5kCgoJIyBMYXllcgoJTGF5ZXI6IExhdHRpY2UKCQlTaG93LnZl
cnRleDogVHJ1ZQoJCVNob3c6IFRydWUKCQlTaG93LmJvcmRlcnM6IFRydWUKCQlJbWFnZTogRmFs
c2UKCQlTaG93LmNvbG9yOiBNYXRlcmlhbAoJCVVzcmJpbjogRmFsc2UKCQlTaG93LnZveGVsOiBU
cnVlCgkJU2hvdy5sYXR0aWNlOiBUcnVlCgkJM0Q6IEZhbHNlCglFbmQKRW5kCgojIEdlb21ldHJ5
IHBsb3QgIkdlb1ZpZXdlciBSZWQgcGxvdCIKUGxvdDogUmVkCglUaXRsZTogR2VvVmlld2VyIFJl
ZCBwbG90CglGb3JtYXQ6ICAgICAuZXBzCglUeXBlOiAgICAgICBHZW9tZXRyeQoJTGluZVR5cGU6
ICAgCglLZXlzOiAgICAgICAxCglvcmlnaW46IDIuNSAtNTIzLjcxMSAyLjUKCWxheWVyOiBNZWRp
YQoJdmVjdHNjYWxlOiAwLjEKCWxhYmVsczogMQoJc2hvd2NlbnRlcjogMAoJY29vcmQ6IFgtWQoJ
Ym91bmRhcmllczogMQoJc3VidHlwZTogTWF0ZXJpYWwKCWV4dGVuZHM6IDI2NjIuMzMgMjI2Mi40
MwoJYmFzaXN1OiAxIDAgMAoJYmFzaXN2OiAwIDEgMAoJbnU6IDIwMAoJbnY6IDIwMApFbmQKCiMg
R2VvbWV0cnkgcGxvdCAiR2VvVmlld2VyIEdyZWVuIHBsb3QiClBsb3Q6IEdyZWVuCglUaXRsZTog
R2VvVmlld2VyIEdyZWVuIHBsb3QKCUZvcm1hdDogICAgIC5lcHMKCVR5cGU6ICAgICAgIEdlb21l
dHJ5CglMaW5lVHlwZTogICAKCUtleXM6ICAgICAgIDEKCW9yaWdpbjogLTE1LjY5OTIgMCAxNy4w
MDc0CglsYXllcjogTWVkaWEKCXZlY3RzY2FsZTogMC4xCglsYWJlbHM6IDEKCXNob3djZW50ZXI6
IDAKCWNvb3JkOiBaLVgKCWJvdW5kYXJpZXM6IDEKCXN1YnR5cGU6IE1hdGVyaWFsCglleHRlbmRz
OiAxMDAgODUuMTU0NgoJYmFzaXN1OiAwIDAgMQoJYmFzaXN2OiAxIDAgMAoJbnU6IDIwMAoJbnY6
IDIwMApFbmQKCiMgR2VvbWV0cnkgcGxvdCAiR2VvVmlld2VyIEJsdWUgcGxvdCIKUGxvdDogQmx1
ZQoJVGl0bGU6IEdlb1ZpZXdlciBCbHVlIHBsb3QKCUZvcm1hdDogICAgIC5lcHMKCVR5cGU6ICAg
ICAgIEdlb21ldHJ5CglMaW5lVHlwZTogICAKCUtleXM6ICAgICAgIDEKCW9yaWdpbjogLTEyIC00
LjE5ODYyIC00MS44Nzk4CglsYXllcjogTWVkaWEKCXZlY3RzY2FsZTogMC4xCglsYWJlbHM6IDEK
CXNob3djZW50ZXI6IDAKCWNvb3JkOiBaLVkKCWJvdW5kYXJpZXM6IDEKCXN1YnR5cGU6IE1hdGVy
aWFsCglleHRlbmRzOiAxMjAgMTAxLjcyOAoJYmFzaXN1OiAwIDAgMQoJYmFzaXN2OiAwIDEgLTAK
CW51OiAyMDAKCW52OiAyMDAKRW5kCgojIEdlb21ldHJ5IHBsb3QgIkdlb1ZpZXdlciBNYWdlbnRh
IHBsb3QiClBsb3Q6IE1hZ2VudGEKCVRpdGxlOiBHZW9WaWV3ZXIgTWFnZW50YSBwbG90CglGb3Jt
YXQ6ICAgICAuZXBzCglUeXBlOiAgICAgICBHZW9tZXRyeQoJTGluZVR5cGU6ICAgCglLZXlzOiAg
ICAgICAxCglvcmlnaW46IC0xMC4yNzU1IC0wLjkxNTU5OSAtNDUKCWxheWVyOiBNZWRpYQoJdmVj
dHNjYWxlOiAwLjEKCWxhYmVsczogMQoJc2hvd2NlbnRlcjogMAoJY29vcmQ6IFgtWQoJYm91bmRh
cmllczogMQoJc3VidHlwZTogTWF0ZXJpYWwKCWV4dGVuZHM6IDU3Ljg3MDQgNDkuMTYKCWJhc2lz
dTogLTEgMCAwCgliYXNpc3Y6IDAgMSAwCgludTogMjAwCgludjogMjAwCkVuZAoKIyBVU1ItMUQg
cGxvdCAiUGxvdCAjNSIKUGxvdDogbmV1X2Rvc2VfMjI2TWV2X3Bsb3QwNQoJVGl0bGU6IFBsb3Qg
IzUKCUZvcm1hdDogICAgIC5lcHMKCVR5cGU6ICAgICAgIFVTUi0xRAoJTGluZVR5cGU6ICAgCglL
ZXlzOiAgICAgICAxCglwcy4wOiAxCglzaG93LjA6IDEKCXdpdGguMDogc3RlcHMKCW5kZXRlY3Rv
cnM6IDEKCWtleS4wOiAxCgl4LjA6IDIKCXkydGljczogMAoJbHcuMDogMQoJeGxvZzogMQoJeTJs
b2c6IDAKCXlsb2c6IDEKCWx0LjA6IDEKCW5hbWUuMDogI0RldGVjdG9yIDEKCXB0LjA6IDEKCWxz
LjA6IDAKCWRldC4wOiAwCgl4MnRpY3M6IDAKCXgybG9nOiAwCgl5LjA6IDAKCWJsb2NrLjA6IDAK
CWF4ZXMuMDogeDF5MQpFbmQKCiMgVVNSQklOIHBsb3QgIlBsb3QgIzYiClBsb3Q6IG5ldV9kb3Nl
X3dhdGVyXzE2Mk1lVgoJVGl0bGU6IFBsb3QgIzYKCUZvcm1hdDogICAgIC5lcHMKCVR5cGU6ICAg
ICAgIFVTUkJJTgoJTGluZVR5cGU6ICAgCglLZXlzOiAgICAgICAxCgljYnJvdW5kOiAxCgljYmNw
ZDogMwoJaW50OiAwLgoJbHQuMDogMQoJbHcuMDogMQoJbHMuMDogMAoJY2Jjb2xvcnM6IDMwCgll
cnJvcnM6IDAKCWxvZzogMQoJbWluOiAxLjAwMDAwMDAyRSszMAoJeHJlYmluOiAxCglheGVzOiBa
LVgKCWhpc3Q6IDJEIFByb2plY3Rpb24KCXByb2o6IFkKCXN3YXA6IDAKCXdpdGguMDogc3RlcHMK
CXpyZWJpbjogMQoJbWF4OiAwLgoJeXJlYmluOiAxCglnZW86IC1BdXRvLQoJYXhlcy4wOiB4MXkx
Cglwcy4wOiAxCglkYXRhZmlsZTogbmV1X3dhdGVyXzE2Mk1lVl91c3JiaW5fMjQKCWRldDogMQoJ
Y2JwYWxldHRlOiBGTFVLQQoJcHQuMDogMQpFbmQK
--047d7b33d61adbe56204c1e808db
Content-Type: application/octet-stream; name="int_neu_162MeV.inp"
Content-Disposition: attachment; filename="int_neu_162MeV.inp"
Content-Transfer-Encoding: base64
X-Attachment-Id: f_h36ad7771

VElUTEUKTUMtQ0FEIFRlc3QKR0xPQkFMICAgICAgICAxMDAwLjAgICAgICAgMC4wICAgICAgIDAu
MCAgICAgICAwLjAgICAgICAgMS4wCkRFRkFVTFRTICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQUkVDSVNJTwoqCioKQkVBTSAgICAg
ICAgICAtMC4xNjIgIC0wLjAwOTUzICAgICAxMTMuMCAgICAgICAwLjAgICAgICAgMC4wICAgICAg
IDEuMFBST1RPTgpCRUFNUE9TICAgICAgICAgIDAuMCAgICAgICAwLjAgICAgMTUzLjQ3ICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgTkVHQVRJVkUKR0VPQkVHSU4gICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIENPTUJOQU1FCiAg
ICAwICAgIDAgICAgICAgICAgICAgICAgICAgTUMtQ0FECiogQWlyClJQUCBBaXIgICAgICAgIC01
MDAuMDAgNTAwLjAwIC01MDAuMDAgNTAwLjAwIC00NjguOTAgNTMxLjEwCiogQmxIb2xlClJQUCBC
bEhvbGUgICAgIC0xMDAwLjAwIDEwMDAuMDAgLTEwMDAuMDAgMTAwMC4wMCAtMTAwMC4wMCAxMDAw
LjAwCiogQm9keTEKUlBQIEJvZHkxICAgICAgLTUwLjAwIDEwLjAwIC0xMC4wMCAxMC4wMCAtNzEu
NTMgLTM2LjUzCiogQ1IwMQpSUFAgQ1IwMSAgICAgICAtOS41MCAtNS41MCA2LiA5LjUgLTQ2LjUz
IC00Ni40OAoqIENSMDIKUlBQIENSMDIgICAgICAgLTE5LjUwIC0xNS41MCA2LiA5LjUgLTQ2LjUz
IC00Ni40OAoqIENSMDMKUlBQIENSMDMgICAgICAgLTMwLjUwIC0yNi41MCA2LjAgOS41MCAtNDYu
NTMgLTQ2LjQ4CiogU250SW4KVFJDIFNudEluICAgICAgMC4wIDAuMCAwLjAwIDAuMDAgMC4wMCAy
NS44MCA2LjIgNy4yMDAwMDAKKiBTbnRPdXQKVFJDIFNudE91dCAgICAgMC4wIDAuMCAwLjAwIDAu
MDAgMC4wMCAyNS44MCAxMC4wMDAwMDAgMTEuMDAwMDAwCiogYXBlcmluClJDQyBhcGVyaW4gICAg
IDAuMCAwLjAgLTYuNTMgMC4wMCAwLjAwIDYuNTMgMi41MAoqIGFwZXJvdQpSQ0MgYXBlcm91ICAg
ICAwLjAgMC4wIC02LjUzIDAuMDAgMC4wMCA2LjUzIDYuNjUKKiBzbm1vdXRoClJDQyBzbm1vdXRo
ICAgIDAuMCAwLjAgLTguNTMgMC4wMCAwLjAwIDguNTMgMTAuMDAKKiBzbm1vdXRoaW4KUkNDIHNu
bW91dGhpICAgMC4wIDAuMCAtOC41MyAwLjAwIDAuMDAgOC41MyA2LjY1CkVORAoqIFJlZyAjIDEK
KiBzbm91dDsgYXNzaWduZWQgbWF0ZXJpYWw6IE5pY2tlbDsgbWF0ICMgKDI1KQpzbm91dCAgICAg
ICAgNSArU250T3V0ICAtU250SW4KKiBSZWcgIyAyCiogcHRhcGU7IGFzc2lnbmVkIG1hdGVyaWFs
OiBDb3BwZXI7IG1hdCAjICgxMikKKiBwYXRpZW50IGFwZXJ0dXJlCnB0YXBlICAgICAgICA1ICth
cGVyb3UgIC1hcGVyaW4KKiBSZWcgIyAzCiogQkxLSE9MRTsgYXNzaWduZWQgbWF0ZXJpYWw6IEJs
YWNraG9sZTsgbWF0ICMgKDEpCkJMS0hPTEUgICAgICA1ICtCbEhvbGUgIC1BaXIKKiBSZWcgIyA0
CiogQUlSOyBhc3NpZ25lZCBtYXRlcmlhbDogQmxhY2tob2xlOyBtYXQgIyAoMSkKQUlSICAgICAg
ICAgIDUgK0FpciAtQm9keTEgLVNudE91dCAtc25tb3V0aAogICAgICAgICAgICAgICB8ICtzbm1v
dXRoaSAtYXBlcm91CiAgICAgICAgICAgICAgIHwgK2FwZXJpbgogICAgICAgICAgICAgICB8ICtT
bnRJbgoqIFJlZyAjIDUKKiBDUjM5MDE7IGFzc2lnbmVkIG1hdGVyaWFsOiBCbGFja2hvbGU7IG1h
dCAjICgxKQoqIDkwIGRlZywgNy41IGNtCkNSMzkwMSAgICAgICA1ICtDUjAxCiogUmVnICMgNgoq
IENSMzkwMjsgYXNzaWduZWQgbWF0ZXJpYWw6IEJsYWNraG9sZTsgbWF0ICMgKDEpCiogOTAgZGVn
IDE3LjUgY20KQ1IzOTAyICAgICAgIDUgK0NSMDIKKiBSZWcgIyA3CiogQ1IzOTAzOyBhc3NpZ25l
ZCBtYXRlcmlhbDogQmxhY2tob2xlOyBtYXQgIyAoMSkKKiA5MCBkZWcgMjguNSBjbQpDUjM5MDMg
ICAgICAgNSArQ1IwMwoqIFJlZyAjIDE3CiogQm9keTsgYXNzaWduZWQgbWF0ZXJpYWw6IHdhdGVy
OyBtYXQgIyAoMzUpCkJvZHkgICAgICAgICA1ICtCb2R5MSAtQ1IwMSAtQ1IwMiAtQ1IwMwoqIFJl
ZyAjIDIwCiogc25vdXRtb3V0aDsgYXNzaWduZWQgbWF0ZXJpYWw6IEJsYWNraG9sZTsgbWF0ICMg
KDEpCnNub3V0bW91ICAgICA1ICtzbm1vdXRoICAtc25tb3V0aGkKRU5ECkdFT0VORApNQVRFUklB
TCAgICAgICAgIDI0LiAgIDUxLjk5NjEgICAgICA3LjE4ICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgQ0hSTy1SCkxPVy1NQVQgICAgICAgQ0hSTy1SICAgICAgIDI0LiAgICAgICAtMi4gICAg
ICAyOTYuICAgICAgICAgICAgICAgICAgICBDSFJPTUlVTQpNQVRFUklBTCAgICAgICAgIDI4LiAg
IDU4LjY5MzQgICAgIDguOTAyICAgICAgIDI1LiAgICAgICAgICAgICAgICAgICAgTklDSy1SCkxP
Vy1NQVQgICAgICAgTklDSy1SICAgICAgIDI4LiAgICAgICAtMi4gICAgICAyOTYuICAgICAgICAg
ICAgICAgICAgICBOSUNLRUwKTUFURVJJQUwgICAgICAgICAyNi4gICAgNTUuODQ1ICAgICA3Ljg3
NCAgICAgICAxMS4gICAgICAgICAgICAgICAgICAgIElST04tUgpMT1ctTUFUICAgICAgIElST04t
UiAgICAgICAyNi4gICAgICAgLTIuICAgICAgMjk2LiAgICAgICAgICAgICAgICAgICAgSVJPTgoq
IFN0YWlubGVzcy1TdGVlbCAodHlwaWNhbCkKKiBTdGFpbmxlc3MtU3RlZWwgaXMgcHJvZHVjZWQg
d2l0aCBDciBjb250ZW50IHJhbmdpbmcgZnJvbQoqIDQgLSAxOSBBdG9taWMgUGVyY2VudCwgYW5k
IHdpdGggQyBjb250ZW50IGZyb20gMCAtIDQgcGVyY2VudC4KTUFURVJJQUwgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgIDguMCAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFN0YWluX1IK
Q09NUE9VTkQgICAgICAgIDE4LjAgICAgQ0hSTy1SICAgICAgNzQuMCAgICBJUk9OLVIgICAgICAg
OC4wICAgIE5JQ0stUlN0YWluX1IKVVNFUldFSUcgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAxLiAgICAgICAgICAgICAgICAgMC4wCk1BVEVSSUFMICAgICAgICAgICAgICAgICAgICAgICAg
ICAgIDguNTIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBCcmFzc19SCkNPTVBPVU5EICAg
ICAgICA2Mi4wICBDT1BQRVJfUiAgICAgIDM1LjAgICAgWklOQ19SICAgICAgIDMuMCAgICBMRUFE
X1JCcmFzc19SCk1BVEVSSUFMICAgICAgICAgMzAuICAgICA2NS4zOSAgICAgNy4xMzMgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICBaSU5DX1IKTE9XLU1BVCAgICAgICBaSU5DX1IgICAgICAg
MzAuICAgICAgIC0yLiAgICAgIDI5Ni4gICAgICAgICAgICAgICAgICAgIFpJTkMKTUFURVJJQUwg
ICAgICAgICAyOS4gICAgNjMuNTQ2ICAgICAgOC45NiAgICAgICAxMi4gICAgICAgICAgICAgICAg
ICAgIENPUFBFUl9SCkxPVy1NQVQgICAgIENPUFBFUl9SICAgICAgIDI5LiAgICAgICAtMi4gICAg
ICAyOTYuICAgICAgICAgICAgICAgICAgICBDT1BQRVIKTUFURVJJQUwgICAgICAgICA4Mi4gICAg
IDIwNy4yICAgICAxMS4zNSAgICAgICAxNy4gICAgICAgICAgICAgICAgICAgIExFQURfUgpMT1ct
TUFUICAgICAgIExFQURfUiAgICAgICA4Mi4gICAgICAgLTIuICAgICAgMjk2LiAgICAgICAgICAg
ICAgICAgICAgTEVBRApBU1NJR05NQSAgICAgU3RhaW5fUiAgICAgc25vdXQKQVNTSUdOTUEgICAg
IFN0YWluX1IgIHNub3V0bW91CkFTU0lHTk1BICAgIEJMQ0tIT0xFICAgQkxLSE9MRQpBU1NJR05N
QSAgICAgICAgIEFJUiAgICAgICBBSVIKQVNTSUdOTUEgICAgUE9MWUVUSFkgICAgICBCb2R5CkFT
U0lHTk1BICAgICBCcmFzc19SICAgICBwdGFwZQpBU1NJR05NQSAgICAgICBXQVRFUiAgICBDUjM5
MDEKQVNTSUdOTUEgICAgICAgV0FURVIgICAgQ1IzOTAyCkFTU0lHTk1BICAgICAgIFdBVEVSICAg
IENSMzkwMwoqIDkwIGRlZyA3LjUgY20KVVNSQklOICAgICAgICAgICAxMC4gICBET1NFLUVRICAg
ICAgLTIzLiAgICAgLTUuNTAgICAgICA5LjUwICAgIC00Ni40OENSMDEKVVNSQklOICAgICAgICAg
LTkuNTAgICAgICAgIDYuICAgIC00Ni41MyAgICAgICAxMC4gICAgICAgIDEuICAgICAgICAxLiYK
QVVYU0NPUkUgICAgICBVU1JCSU4gICBORVVUUk9OICAgICAgICAgICAgICAgIENSMDEgICAgICAg
ICAgICAgICAgICAgIEFNQjc0CiogOTAgZGVnIDE3LjUgY20KVVNSQklOICAgICAgICAgICAxMC4g
ICBET1NFLUVRICAgICAgLTIzLiAgICAtMTUuNTAgICAgICA5LjUwICAgIC00Ni40OENSMDIKVVNS
QklOICAgICAgICAtMTkuNTAgICAgICAgIDYuICAgIC00Ni41MyAgICAgICAxMC4gICAgICAgIDEu
ICAgICAgICAxLiYKQVVYU0NPUkUgICAgICBVU1JCSU4gICBORVVUUk9OICAgICAgICAgICAgICAg
IENSMDIgICAgICAgICAgICAgICAgICAgIEFNQjc0CiogOTAgZGVnIDI4LjUgY20KVVNSQklOICAg
ICAgICAgICAxMC4gICBET1NFLUVRICAgICAgLTIzLiAgICAtMjYuNTAgICAgICA5LjUwICAgIC00
Ni40OENSMDMKVVNSQklOICAgICAgICAtMzAuNTAgICAgICAgIDYuICAgIC00Ni41MyAgICAgICAx
MC4gICAgICAgIDEuICAgICAgICAxLiYKQVVYU0NPUkUgICAgICBVU1JCSU4gICBORVVUUk9OICAg
ICAgICAgICAgICAgIENSMDMgICAgICAgICAgICAgICAgICAgIEFNQjc0CkFVWFNDT1JFICAgICAg
VVNSQklOICAgTkVVVFJPTiAgICAgICAgICAgICAgICBDUjA0ICAgICAgICAgICAgICAgICAgICBB
TUI3NApSQU5ET01JWiAgICAgICAgICAxLgpTVEFSVCAgICAgICAgMTAwMDAwLgpTVE9QCg==
--047d7b33d61adbe56204c1e808db
Content-Type: application/octet-stream; name="fluscw_mod.f"
Content-Disposition: attachment; filename="fluscw_mod.f"
Content-Transfer-Encoding: base64
X-Attachment-Id: f_h36av2q52

KiQgQ1JFQVRFIEZMVVNDVy5GT1INCipDT1BZIEZMVVNDVw0KKiAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAqDQoqPT09
IGZsdXNjdyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PSoNCiogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgKg0KICAgICAgRE9VQkxFIFBSRUNJU0lPTiBGVU5D
VElPTiBGTFVTQ1cgKCBJSiAgICAsIFBMQSAgICwgVFhYICAgLCBUWVkgICAsDQogICAgICYgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRaWiAgICwgV0VFICAgLCBYWCAgICAsIFlZ
ICAgICwNCiAgICAgJiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgWlogICAgLCBO
UkVHICAsIElPTFJFRywgTExPICAgLA0KICAgICAmICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICBOU1VSRiApDQoNCiAgICAgIElOQ0xVREUgJyhEQkxQUkMpJw0KICAgICAgSU5DTFVE
RSAnKERJTVBBUiknDQogICAgICBJTkNMVURFICcoSU9VTklUKScNCioNCiotLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
Kg0KKiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAqDQoqICAgICBDb3B5cmlnaHQgKEMpIDE5ODktMjAwNSAgICAgIGJ5
ICAgIEFsZnJlZG8gRmVycmFyaSAmIFBhb2xhIFNhbGEgICoNCiogICAgIEFsbCBSaWdodHMgUmVz
ZXJ2ZWQuICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKg0KKiAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAqDQoqICAgICBOZXcgdmVyc2lvbiBvZiBGbHVzY3cgZm9yIEZMVUtBOXgtRkxV
S0EyMDB4OiAgICAgICAgICAgICAgICAgICAgICoNCiogICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKg0KKiAgICAgISEh
ISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ICAgICAqDQoqICAgICAhISEgVGhpcyBpcyBhIGNvbXBsZXRlbHkgZHVtbXkgcm91dGluZSBmb3Ig
Rmx1a2E5eC8yMDB4LiAhISEgICAgICoNCiogICAgICEhISBUaGUgIG5hbWUgaGFzIGJlZW4ga2Vw
dCB0aGUgc2FtZSBhcyBmb3Igb2xkZXIgIEZsdWthICEhISAgICAgKg0KKiAgICAgISEhIHZlcnNp
b25zIGZvciBiYWNrLWNvbXBhdGliaWxpdHksIGV2ZW4gdGhvdWdoICBGbHVzY3cgISEhICAgICAq
DQoqICAgICAhISEgaXMgYXBwbGllZCBvbmx5IHRvIGVzdGltYXRvcnMgd2hpY2ggZGlkbid0IGV4
aXN0IGJlLSAhISEgICAgICoNCiogICAgICEhISBmb3JlIEZsdWthODkuICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICEhISAgICAgKg0KKiAgICAgISEhIFVzZXIgIGRldmVs
b3BlZCB2ZXJzaW9ucyAgY2FuIGJlIHVzZWQgZm9yICB3ZWlnaHRpbmcgISEhICAgICAqDQoqICAg
ICAhISEgZmx1eC1saWtlIHF1YW50aXRpZXMgYXQgcnVudGltZSAgICAgICAgICAgICAgICAgICAg
ICAhISEgICAgICoNCiogICAgICEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEh
ISEhISEhISEhISEhISEhISEhISEhISAgICAgKg0KKiAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAqDQoqICAgICBJbnB1
dCB2YXJpYWJsZXM6ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICoNCiogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgKg0KKiAgICAgICAgICAgSWogPSAoZ2VuZXJhbGl6ZWQpIHBh
cnRpY2xlIGNvZGUgKFBhcHJvcCBudW1iZXJpbmcpICAgICAgICAqDQoqICAgICAgICAgIFBsYSA9
IHBhcnRpY2xlIGxhYm9yYXRvcnkgbW9tZW50dW0gKEdlVi9jKSAoaWYgPiAwKSwgICAgICAgICoN
CiogICAgICAgICAgICAgICAgb3Iga2luZXRpYyBlbmVyZ3kgKEdlVikgKGlmIDwwICkgICAgICAg
ICAgICAgICAgICAgICAgKg0KKiAgICBUeHgseXksenogPSBwYXJ0aWNsZSBkaXJlY3Rpb24gY29z
aW5lcyAgICAgICAgICAgICAgICAgICAgICAgICAgICAqDQoqICAgICAgICAgIFdlZSA9IHBhcnRp
Y2xlIHdlaWdodCAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICoNCiogICAg
IFh4LFl5LFp6ID0gcG9zaXRpb24gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgKg0KKiAgICAgICAgIE5yZWcgPSAobmV3KSByZWdpb24gbnVtYmVyICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAqDQoqICAgICAgIElvbHJlZyA9IChvbGQpIHJlZ2lv
biBudW1iZXIgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICoNCiogICAgICAgICAg
TGxvID0gcGFydGljbGUgZ2VuZXJhdGlvbiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgKg0KKiAgICAgICAgTnN1cmYgPSB0cmFuc3BvcnQgZmxhZyAoaWdub3JlISkgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAqDQoqICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICoNCiogICAgIE91dHB1dCB2YXJp
YWJsZXM6ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKg0K
KiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAqDQoqICAgICAgIEZsdXNjdyA9IGZhY3RvciB0aGUgc2NvcmVkIGFtb3Vu
dCB3aWxsIGJlIG11bHRpcGxpZWQgYnkgICAgICAgICoNCiogICAgICAgTHNjemVyID0gbG9naWNh
bCBmbGFnLCBpZiB0cnVlIG5vIGFtb3VudCB3aWxsIGJlIHNjb3JlZCAgICAgICAgKg0KKiAgICAg
ICAgICAgICAgICByZWdhcmRsZXNzIG9mIEZsdXNjdyAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAqDQoqICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICoNCiogICAgIFVzZWZ1bCB2YXJpYWJsZXMgKGNvbW1v
biBTQ09ITFApOiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKg0KKiAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAqDQoqICAgICBGbHV4IGxpa2UgYmlubmluZ3MvZXN0aW1hdG9ycyAoRmx1c2N3KTogICAgICAg
ICAgICAgICAgICAgICAgICAgICoNCiogICAgICAgICAgSVNDUk5HID0gMSAtLT4gQm91bmRhcnkg
Y3Jvc3NpbmcgZXN0aW1hdG9yICAgICAgICAgICAgICAgICAgKg0KKiAgICAgICAgICBJU0NSTkcg
PSAyIC0tPiBUcmFjayAgbGVuZ3RoICAgICBiaW5uaW5nICAgICAgICAgICAgICAgICAgICAqDQoq
ICAgICAgICAgIElTQ1JORyA9IDMgLS0+IFRyYWNrICBsZW5ndGggICAgIGVzdGltYXRvciAgICAg
ICAgICAgICAgICAgICoNCiogICAgICAgICAgSVNDUk5HID0gNCAtLT4gQ29sbGlzaW9uIGRlbnNp
dHkgZXN0aW1hdG9yICAgICAgICAgICAgICAgICAgKg0KKiAgICAgICAgICBJU0NSTkcgPSA1IC0t
PiBZaWVsZCAgICAgICAgICAgICBlc3RpbWF0b3IgICAgICAgICAgICAgICAgICAqDQoqICAgICAg
ICAgIEpTQ1JORyA9ICMgb2YgdGhlIGJpbm5pbmcvZXN0aW1hdG9yICAgICAgICAgICAgICAgICAg
ICAgICAgICoNCiogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgKg0KKiAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAqDQoqICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICoNCiotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tKg0KKg0KICAgICAgSU5DTFVERSAnKFNDT0hMUCknDQogICAgICBJ
TkNMVURFICcoVFJBQ0tSKScNCioNCiAgICAgIEZMVVNDVyA9IE9ORU9ORQ0KICAgICAgTFNDWkVS
ID0gLkZBTFNFLg0KICAgICAgSUYgKEpUUkFDSyAuTkUuIDggLk9SLiBLVFJBQ0suRVEuMCAuT1Iu
IEtUUkFDSy5HVC4xMDIpIA0KICAgICArICAgIExTQ1pFUiA9IC5UUlVFLg0KICAgICAgUkVUVVJO
DQoqPT09IEVuZCBvZiBmdW5jdGlvbiBGbHVzY3cgPT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PSoNCiAgICAgIEVORA0KDQo=
--047d7b33d61adbe56204c1e808db--
Received on Fri Jun 08 2012 - 01:08:28 CEST