Télécharger la plaquette Cast3M


fr en

Télécharger mots1.eso

Retour à la liste

Numérotation des lignes : 

mots1

  1. C MOTS1     SOURCE    CB215821  20/11/25    13:34:29     10792          
  2.       SUBROUTINE MOTS1(IPLMOT,MOTCLE)
  3. ************************************************************************
  4. *
  5. *                              M O T S 1
  6. *                              ---------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     PREPARATION POUR APPELER LES SOUS-PROGRAMMES "MAXIM1" ET "NORMA1"
  12. *     (ET D'AUTRES, AU BESOIN) POUR TRADUIRE LA PHRASE:
  13. *
  14. *     ..... = OPERATEUR ..... SANS ( MOTS LX ) ;
  15. *
  16. * MODE D'APPEL:
  17. * -------------
  18. *
  19. *     CALL MOTS1(IPLMOT,MOTCLE)
  20. *
  21. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  22. * -----------
  23. *
  24. *     IPLMOT  ENTIER    (S)  POINTEUR D'UN OBJET 'LISTMOTS' CONTENANT
  25. *                            L'UNIQUE MOT  'LX'.
  26. *     MOTCLE  ENTIER    (S)  CHAINE DE CARACTERES 'SANS'.
  27. *
  28. * AUTEUR, DATE DE CREATION:
  29. * -------------------------
  30. *
  31. *     PASCAL MANIGOT     9 NOVEMBRE 1984
  32. *
  33. * LANGAGE:
  34. * --------
  35. *
  36. *     ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  37. *
  38. ************************************************************************
  39. *
  40.       IMPLICIT INTEGER(I-N)
  41.  
  42. -INC SMLMOTS
  43. -INC PPARAM
  44.  
  45.       CHARACTER*(*) MOTCLE
  46. *
  47. *
  48.       MOTCLE = 'SANS'
  49. *
  50.       JGN=LOCOMP
  51.       JGM=1
  52.       SEGINI,MLMOTS
  53.       IPLMOT = MLMOTS
  54.       MOTS(1) = 'LX'
  55.       END
  56.  
  57.  

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