Optica Photon Transport in Scintillators

Hi all,
I am trying to model ”*light transport in scintillators*”, for which I need
the "*diffuse reflection*" simulation for *"painted"* surfaces.

What I have done is to modify the FORTRAN file "frghns.f", which is
responsible for rough surface reflections (attached to this email).
I would be very appreciated if you kindly tell me how to implement the
modified file into the program?

Regards,

Ali Koosha

--001485e9a5626772a6048e787bfc
Content-Type: text/html; charset=windows-1252
Content-Transfer-Encoding: quoted-printable

Hi all,<br clear="all">I am trying to model ”<u>light transport in scintillators</u>”, for which I need the “<strong>diffuse reflection</strong>” simulation for<strong>&quot;painted&quot;</strong> surfaces. <br><br><div>What I have done is to modify the FORTRAN file “frghns.f”, which is responsible for rough surface reflections (attached to this email).</div>
<div>I would be very appreciated if you kindly tell me how to implement the modified file into the program?<br></div><br><div><br></div>Regards,<br>-- <br>Ali Koosha<br>

--001485e9a5626772a6048e787bfc--
--001485e9a5626772af048e787bfe
Content-Type: application/octet-stream; name="frghns.f"
Content-Disposition: attachment; filename="frghns.f"
Content-Transfer-Encoding: base64
X-Attachment-Id: f_gd7rtxoc0

KiQgQ1JFQVRFIEZSR0hOUy5GT1IKKkNPUFkgRlJHSE5TCioKKj09PSBmcmdobnMgPT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0qCioKICAg
ICAgRE9VQkxFIFBSRUNJU0lPTiBGVU5DVElPTiBGUkdITlMgKCBUWFggICAsIFRZWSAgICwgVFpa
ICAgLCBVWFNSRkMsCiAgICAgJiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgVVlT
UkZDLCBVWlNSRkMsIE1SRUcgICwgTkVXUkVHLAogICAgICYgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgIE1NQVQgICwgTU1BVE5XICkKCgpDICAgICAgTE9HSUNBTCBMRklSU1QKQyAg
ICAgU0FWRSBMRklSU1QKQyAgICAgIERBVEEgTEZJUlNUIC8uVFJVRS4vCgoKICAgICAgSU5DTFVE
RSAnKERCTFBSQyknCiAgICAgIElOQ0xVREUgJyhESU1QQVIpJwogICAgICBJTkNMVURFICcoSU9V
TklUKScKKgoqIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0qCiogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKgoqICAgICBDb3B5cmlnaHQg
KEMpIDE5OTktMjAwNSAgICAgIGJ5ICAgIEFsZnJlZG8gRmVycmFyaSAmIFBhb2xhIFNhbGEgICoK
KiAgICAgQWxsIFJpZ2h0cyBSZXNlcnZlZC4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAqCiogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKgoqICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICoKKiAgICAgQ3Jl
YXRlZCBvbiAgMTEgamFudWFyeSAxOTk5ICBieSAgICBBbGZyZWRvIEZlcnJhcmkgJiBQYW9sYSBT
YWxhICAqCiogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICBJbmZuIC0gTWlsYW4gICAgICAgKgoqICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICoKKiAgICAgTGFzdCBjaGFuZ2Ug
b24gMTEtamFuLTk5ICAgICBieSAgICBBbGZyZWRvIEZlcnJhcmkgICAgICAgICAgICAgICAqCiog
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgKgoqICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgICAgICAgICAgICAgICoKKiAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tKgoqCmMJUkVBTCo4
IEtQUklNWCAsIEtQUklNWSAsIEtQUklNWiAsDQpjCSwgICAgICAgSlBSSU1YICwgSlBSSU1ZICwg
SlBSSU1aICwNCmMgICAgLCAgICAgICBJUFJJTVggLCBJUFJJTVkgLCBJUFJJTVoKCglQST1BQ09T
KC0xLikKQyAgICAuLi4uLi4uLi4uLi4uLgoKCgoKQyogcmV0dXJuIG1lc3NhZ2UgZnJvbSBmaXJz
dCBjYWxsCkMgICAgIElGIChMRklSU1QpIFRIRU4KQyAgICAgICBXUklURShMVU5PVVQsKikgIlZl
cnNpb24geHh4IG9mIFJvdXRpbmUgeXl5IGNhbGxlZCIKQyAgICAgICAgIExGSVJTVCA9IC5GQUxT
RS4KQyAgICAgIEVORElGCkMgICAgICAuLi4uLi4uLi4uLi4uLgoKCgoJaWYgKFVYU1JGPT0wLkFO
RC5VWVNSRj09MC5BTkQuVVpTUkY9PS0xLilUSEVOCglDQUxMIFJBTkRPTShSQU5fVEVUQSkKCUNP
U1RFVEE9UkFOX1RFVEEKCVNJTlRFVEE9U1FSVCgxLUNPU1RFVEEpKioyCglDQUxMIFJBTkRPTShS
QU5fUEhJKQoJUEhJPTIuKlBJKlJBTl9QSEkKCglUWFg9U0lOVEVUQSpDT1MoUEhJKQoJVFlZPVNJ
TlRFVEEqU0lOKFBISSkKCVRaWj0tQ09TVEVUQQoJRU5ESUYKCgoNCglKUFJJTVggICA9IDAuIA0K
ICAgICAJSlBSSU1ZICAgPSAwLg0KICAgICAJSlBSSU1aICAgPSAxLg0KIQ0KICAgICAgS1BSSU1Y
ICAgPSBVWFNSRkMNCglLUFJJTVkgICA9IFVZU1JGQw0KCUtQUklNWiAgID0gVVpTUkZDDQohDQog
ICAgICBJUFJJTVggICA9IC0gS1BSSU1ZDQoJSVBSSU1ZICAgPSAgIEtQUklNWA0KCUlQUklNWiAg
ID0gMC4NCiEKCUNBTEwgUkFORE9NKFJBTl9URVQpCg0KNQlDT1NURVRBICA9IFJBTl9URVQNCglT
SU5URVRBICA9IFNRUlQgKCAxIC0gQ09TVEVUQSAqKiAyLiApDQohCglDQUxMIFJBTkRPTShSQU5f
RkkpDQoJRkkgICAgICAgPSAyLjAgKiBQSSAqIFJBTl9GSQ0KIQ0KCVJFRlBSSU0xID0gU0lOVEVU
QSAqIENPUyAoIEZJICkNCglSRUZQUklNMiA9IFNJTlRFVEEgKiBTSU4gKCBGSSApDQoJUkVGUFJJ
TTMgPSBDT1NURVRBDQohCQ0KCVJFRjEgPSBSRUZQUklNMSooSVBSSU1YKSArIFJFRlBSSU0yKihK
UFJJTVgpICsgUkVGUFJJTTMqKEtQUklNWCkNCglSRUYyID0gUkVGUFJJTTEqKElQUklNWSkgKyBS
RUZQUklNMiooSlBSSU1ZKSArIFJFRlBSSU0zKihLUFJJTVkpDQoJUkVGMyA9IFJFRlBSSU0xKihJ
UFJJTVopICsgUkVGUFJJTTIqKEpQUklNWikgKyBSRUZQUklNMyooS1BSSU1aKQ0KICAKCVRYWD1S
RUYxCglUWVk9UkVGMgoJVFpaPVJFRjMKCgpjICAgIEZSR0hOUyA9IFpFUlpFUgogICAgICBSRVRV
Uk4KKj09PSBFbmQgb2YgZnVuY3Rpb24gRnJnaG5zID09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT0qCiAgICAgIEVORAoK
--001485e9a5626772af048e787bfe--
Received on Mon Aug 23 2010 - 14:47:42 CEST