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 /NAMFN/NAMFUN,NAMSUB CHARACTER NAMFUN*6, NAMSUB*6, CTEMP*14, FTMP*4 NAMSUB= 'GXABSR' c IF(IEMISS.GT.0) THEN GXABSR=F(L0EMIS+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