Télécharger motsub.eso

Retour à la liste

Numérotation des lignes :

  1. C MOTSUB SOURCE CHAT 05/01/13 01:52:19 5004
  2. C OPERATEUR MOT DONNE LE TYPE MOT A LA DONNEE ENTRE COTE QUI LE SUIT
  3. SUBROUTINE MOTSUB
  4. IMPLICIT INTEGER(I-N)
  5. -INC CCOPTIO
  6. CHARACTER*(1) CHAR
  7. CALL LIRCHA(CHAR,1,IRETOU)
  8. IF(IERR.NE.0) RETURN
  9. CALL REFUS
  10. RETURN
  11. END
  12.  
  13.  

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