Esope source files

   1 : C CHMLSO    SOURCE    CHAT      05/01/12    21:59:24     5004           
   2 :       SUBROUTINE CHMLSO(MLMOTS,ISORT)
   3 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   4 : C    
   5 : C     ON DECODE LA LISTE DES CHPOIN QUE L'ON DEVRA SAUVEGARDER
   6 : C             ISORT INDICE CORRESPOND A UNE PRESENCE EN BASE 2
   7 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)
  10 : -INC SMLMOTS
  11 :       PARAMETER (NSORT=10)
  12 :       CHARACTER*4 MOSORT(NSORT)
  13 :       DATA MOSORT/'NTY4','FION','TYP6','TYP5','PREC','TYP3','SURF',
  14 :      * 'SOLU','POLE','LOGK'/
  15 :       ISORT=0
  16 :       IF(MLMOTS.EQ.0)RETURN
  17 :       SEGACT MLMOTS
  18 :       NMO=MOTS(/2)
  19 :       DO 20 J=1,NMO
  20 :             DO 10 I=1,NSORT
  21 :                   IF(MOSORT(I).EQ.MOTS(J))THEN
  22 :                         ISORT=ISORT+2**I
  23 :                   ENDIF
  24 :    10       CONTINUE
  25 :    20 CONTINUE
  26 :       SEGDES MLMOTS
  27 :       RETURN
  28 :       END
  29 :  
  30 :  
  31 :  
  32 :