Télécharger crelec.eso

Retour à la liste

crelec
C CRELEC    SOURCE    MAUGIS    07/10/26    21:15:16     5812
C     CONVERTIT UN ENTIER EN LISTENTI LE CONTENANT
C
      SUBROUTINE CRELEC(IVAL)
      IMPLICIT INTEGER(I-N)
-INC SMLENTI
      JG=1
      SEGINI, MLENTI
      LECT(1)=IVAL
      IVAL=MLENTI
      RETURN
      END
 
 
 
 
 
 
 
 

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