Télécharger crelec.eso

Retour à la liste

Numérotation des lignes :

crelec
  1. C CRELEC SOURCE MAUGIS 07/10/26 21:15:16 5812
  2. C CONVERTIT UN ENTIER EN LISTENTI LE CONTENANT
  3. C
  4. SUBROUTINE CRELEC(IVAL)
  5. IMPLICIT INTEGER(I-N)
  6. -INC SMLENTI
  7. JG=1
  8. SEGINI, MLENTI
  9. LECT(1)=IVAL
  10. IVAL=MLENTI
  11. RETURN
  12. END
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  

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