Sources Esope | Cast3M

mode25
C MODE25    SOURCE    MB234859  25/08/26    21:15:10     12343          
      SUBROUTINE MODE25(MODIS,ITY1,ITEF)
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
-INC PPARAM
-INC CCOPTIO
C
      CHARACTER*4 MODIS
C
      ITEF=0
      IF      (MODIS.EQ.'LINE') THEN
        IF (ITY1.EQ. 3) ITEF=129
        IF (ITY1.EQ. 7) ITEF=130
        IF (ITY1.EQ.11) ITEF=131
        IF (ITY1.EQ.33) ITEF=132
        IF (ITY1.EQ.34) ITEF=133
        IF (ITY1.EQ.35) ITEF=134
        IF (ITY1.EQ.36) ITEF=135
      ELSE IF (MODIS.EQ.'MACR') THEN
        IF (ITY1.EQ. 3) ITEF=136
        IF (ITY1.EQ. 7) ITEF=137
        IF (ITY1.EQ.11) ITEF=138
        IF (ITY1.EQ.33) ITEF=139
        IF (ITY1.EQ.34) ITEF=140
        IF (ITY1.EQ.35) ITEF=141
        IF (ITY1.EQ.36) ITEF=142
      ELSE IF (MODIS.EQ.'QUAF') THEN
        IF (ITY1.EQ. 3) ITEF=143
        IF (ITY1.EQ. 7) ITEF=144
        IF (ITY1.EQ.11) ITEF=145
        IF (ITY1.EQ.33) ITEF=146
        IF (ITY1.EQ.34) ITEF=147
        IF (ITY1.EQ.35) ITEF=148
        IF (ITY1.EQ.36) ITEF=149
      ELSE IF (MODIS.EQ.'LINB') THEN
        IF (ITY1.EQ. 3) ITEF=158
        IF (ITY1.EQ. 7) ITEF=159
        IF (ITY1.EQ.11) ITEF=160
        IF (ITY1.EQ.33) ITEF=161
        IF (ITY1.EQ.34) ITEF=162
C Il nous manque la pyramide et le tetrahedre
C       IF (ITY1.EQ.35) ITEF=163
C       IF (ITY1.EQ.36) ITEF=164
      ELSE IF (MODIS.EQ.'LICE') THEN
        IF (ITY1.EQ. 3) ITEF=195
        IF (ITY1.EQ. 7) ITEF=196
        IF (ITY1.EQ.11) ITEF=197
        IF (ITY1.EQ.33) ITEF=198
        IF (ITY1.EQ.34) ITEF=199
        IF (ITY1.EQ.35) ITEF=200
        IF (ITY1.EQ.36) ITEF=201
      ELSE IF (MODIS.EQ.'LIMS') THEN
        IF (ITY1.EQ. 3) ITEF=202
        IF (ITY1.EQ. 7) ITEF=203
        IF (ITY1.EQ.11) ITEF=204
        IF (ITY1.EQ.33) ITEF=205
        IF (ITY1.EQ.34) ITEF=206
        IF (ITY1.EQ.35) ITEF=207
        IF (ITY1.EQ.36) ITEF=208
      ELSE IF (MODIS.EQ.'LBMS') THEN
        IF (ITY1.EQ. 3) ITEF=209
        IF (ITY1.EQ. 7) ITEF=210
        IF (ITY1.EQ.11) ITEF=211
        IF (ITY1.EQ.33) ITEF=212
        IF (ITY1.EQ.34) ITEF=213
        IF (ITY1.EQ.35) ITEF=214
        IF (ITY1.EQ.36) ITEF=215
      ELSE IF (MODIS.EQ.'MCCE') THEN
        IF (ITY1.EQ. 3) ITEF=216
        IF (ITY1.EQ. 7) ITEF=217
        IF (ITY1.EQ.11) ITEF=218
        IF (ITY1.EQ.33) ITEF=219
        IF (ITY1.EQ.34) ITEF=220
        IF (ITY1.EQ.35) ITEF=221
        IF (ITY1.EQ.36) ITEF=222
      ELSE IF (MODIS.EQ.'MCP1') THEN
        IF (ITY1.EQ. 3) ITEF=223
        IF (ITY1.EQ. 7) ITEF=224
        IF (ITY1.EQ.11) ITEF=225
        IF (ITY1.EQ.33) ITEF=226
        IF (ITY1.EQ.34) ITEF=227
        IF (ITY1.EQ.35) ITEF=228
        IF (ITY1.EQ.36) ITEF=229
      ELSE IF (MODIS.EQ.'MCMS') THEN
        IF (ITY1.EQ. 3) ITEF=230
        IF (ITY1.EQ. 7) ITEF=231
        IF (ITY1.EQ.11) ITEF=232
        IF (ITY1.EQ.33) ITEF=233
        IF (ITY1.EQ.34) ITEF=234
        IF (ITY1.EQ.35) ITEF=235
        IF (ITY1.EQ.36) ITEF=236
      ELSE IF (MODIS.EQ.'QFCE') THEN
        IF (ITY1.EQ. 3) ITEF=237
        IF (ITY1.EQ. 7) ITEF=238
        IF (ITY1.EQ.11) ITEF=239
        IF (ITY1.EQ.33) ITEF=240
        IF (ITY1.EQ.34) ITEF=241
        IF (ITY1.EQ.35) ITEF=242
        IF (ITY1.EQ.36) ITEF=243
      ELSE IF (MODIS.EQ.'QFP1') THEN
        IF (ITY1.EQ. 3) ITEF=244
        IF (ITY1.EQ. 7) ITEF=245
        IF (ITY1.EQ.11) ITEF=246
        IF (ITY1.EQ.33) ITEF=247
        IF (ITY1.EQ.34) ITEF=248
        IF (ITY1.EQ.35) ITEF=249
        IF (ITY1.EQ.36) ITEF=250
      ELSE IF (MODIS.EQ.'QFMS') THEN
        IF (ITY1.EQ. 3) ITEF=251
        IF (ITY1.EQ. 7) ITEF=252
        IF (ITY1.EQ.11) ITEF=253
        IF (ITY1.EQ.33) ITEF=254
        IF (ITY1.EQ.34) ITEF=255
        IF (ITY1.EQ.35) ITEF=256
        IF (ITY1.EQ.36) ITEF=257
      ENDIF
      END