Download crelec.eso

Back to the list

   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 :  

© Cast3M 2003 - All rights reserved.
Disclaimer