How to change a material to a number

Advanced Features and User Routines
1

Dear experts,
A few days ago, I asked a question about GEOR2N/GEON2R, I ran into another problem in abscff.f

DOUBLE PRECISION FUNCTION ABSCFF ( WVLNGT, OMGPHO, MMAT )

      INCLUDE 'dblprc.inc'
      INCLUDE 'dimpar.inc'
      INCLUDE 'iounit.inc'
1      INTEGER, SAVE :: REG_NUMBER
2      INTEGER :: IERR     

3      CALL GEON2R("WLSFCORE", REG_NUMBER, IERR)
4      IF( MMAT .EQ. ???)THEN
5         IF( WVLNGH .EQ. 3.85D-5 )THEN
6           ABSCFF=20
7         ELSE IF( WVLNGH .EQ. 4.25D-5 )THEN
8            ABSCFF=0.05
9         ELSE
10            ABSCFF=100
11         END IF
12      END IF
13      RETURN
14     END

At this file, input variable is MMAT(an integer), but GEOR2N is valid only for region, how should I change a material(material is POLYSTYR, region is WLSFCORE) to a number?
Look forward to your help.

2

Dear @xiongbp,

You can run your simulation with a small number of primaries and then take a look at your .out file - Material section. You will see something similar to this where the first column is the material number.

image
image417×729 13.9 KB

Cheers,
Mihaela

3

Dear@Mihaela_Parvu ,
Your answer is really useful and thank you for your help.