cGximsl.for
c
C.... File Name .................... GXIMSL.FOR ................. 170701
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
c
C.... GXABSR is called from IMMERSOL subroutines, when RADIA is set to
C GRND-number, to calculate the absorptivity of a mediUM in IJ-cell.
C IMAT is either index of the material for the cell, or -1 if PROPS
C is not stored.
c
REAL FUNCTION GXABSR(IJ,IMAT)
INCLUDE 'farray'
INCLUDE 'grdloc'
INCLUDE 'satgrd'
INCLUDE 'prpcmn'
COMMON/TLINK/L0TLINK,L0APT3,L0SUT3,L0APTM,L0SUTM,L0SORC,KEMISS,
1 KSCATT,KEMISSH,KSCATTH
COMMON /NAMFN/NAMFUN,NAMSUB
CHARACTER NAMFUN*6, NAMSUB*6, CTEMP*14, FTMP*4
NAMSUB= 'GXABSR'
c
IF(IEMISS.GT.0) THEN
GXABSR=F(KEMISS+IJ)
RETURN
ENDIF
c.... initialise absorb to 0.0
ABSORB=0.0
IF(GRNDNO(1,RADIA)) THEN
C.... RADIA= GRND1. Absorptivity of IMAT is set through the PIL
C command SPEDAT(SET,ABSORPTION,IMAT,R,Value of absorptivity)
WRITE(FTMP,'(''(I'',I1,'')'')') 1+INT(LOG10(REAL(IMAT)+0.4))
WRITE(CTEMP,FTMP) IMAT
CALL GETSDR('ABSORPTION',CTEMP,ABSORB)
ELSE
C.... The USER can introduce his/her own model here
ENDIF
GXABSR= ABSORB
NAMSUB= 'gxabsr'
END
C!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
c