13.2.10} frghns.f material roughness (for optical photons)

 ---------------------------------------------------------

     Argument list (all variables are input only):
          TXX, TYY, TZZ : particle direction cosines
          UXSRFC, UYSRFC, UZSRFC: direction of the normal to the surface
          MREG          : region the particle is coming from
          NEWREG        : region the particle is going to
          MMAT          : material the particle is coming from
          MMATNW        : material the particle is going to

 Function FRGHNS can be used to return a non-zero value for the
 roughness of a boundary between two materials, relevant for
 optical photon transport (default roughness is zero for all
 boundaries). Meaningful only if options OPT-PROP or OPT-PROD have
 been requested.

 If name-based input is being used, the name corresponding to MREG and NEWREG
 can be obtained via a call to routine GEOR2N:
           CALL GEOR2N (NUMREG, NAMREG, IERR)
 where NUMREG (input variable) is the region number, and NAMREG
 (returned variable) is the corresponding region name (to be declared
 as CHARACTER*8). IERR is a returned error code: if = 0, the
 conversion is successful. See example in the description of BXDRAW below.

Previous Index Next