Télécharger chmlso.eso

Retour à la liste

Numérotation des lignes :

  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.  
  33.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales