Télécharger mots2.eso

Retour à la liste

Numérotation des lignes :

  1. C MOTS2 SOURCE BP208322 15/06/22 21:21:05 8543
  2. C MOTS1 SOURCE CHAT 05/01/13 01:52:13 5004
  3. SUBROUTINE MOTS2(IPLMOT,MOTCLE)
  4. ************************************************************************
  5. *
  6. * M O T S 2
  7. * ---------
  8. *
  9. * FONCTION:
  10. * PREPARATION POUR APPELER LES SOUS-PROGRAMMES "MAXIM1" ET "NORMA1"
  11. * (ET D'AUTRES, AU BESOIN) POUR TRADUIRE LA PHRASE:
  12. *
  13. * ..... = OPERATEUR ..... AVEC ( MOTS contenus dans NOMDD de bdata sauf LX ) ;
  14. *
  15. * MODE D'APPEL:
  16. * CALL MOTS1(IPLMOT,MOTCLE)
  17. *
  18. * PARAMETRES: (E)=ENTREE (S)=SORTIE
  19. * IPLMOT ENTIER (S) POINTEUR D'UN OBJET 'LISTMOTS' CONTENANT
  20. * tous les mots de nomdd de bdata sauf 'LX'.
  21. * MOTCLE ENTIER (S) CHAINE DE CARACTERES 'AVEC'.
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * MOTS1 créé par : PASCAL MANIGOT 9 NOVEMBRE 1984
  25. * MOTS2 créé par : benoit prabel 2 decembre 2008
  26. *
  27. * LANGAGE:
  28. * ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  29. *
  30. ************************************************************************
  31. *
  32. IMPLICIT INTEGER(I-N)
  33. -INC SMLMOTS
  34. -INC CCHAMP
  35. CHARACTER*4 MOTCLE,MODD1
  36. *
  37. *
  38. MOTCLE = 'AVEC'
  39. *
  40. JGN=4
  41. JGM=(LNOMDD - 1)
  42. SEGINI,MLMOTS
  43. IPLMOT = MLMOTS
  44. i2=0
  45. do 100 i1=1,LNOMDD
  46. MODD1 = NOMDD(i1)
  47. if(MODD1 .eq. 'LX ') goto 100
  48. i2 = i2 + 1
  49. MOTS(i2) = MODD1
  50. * write(*,*) 'MOTS(',i2,') = NOMDD(',i1,')= ',MODD1
  51. 100 continue
  52. SEGDES,MLMOTS
  53. *
  54. END
  55.  
  56.  
  57.  
  58.  

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