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.