Télécharger crepro.eso

Retour à la liste

crepro
C CREPRO    SOURCE    PV        14/11/05    21:15:03     8198
C     CONVERTIT UN FLOTTANT EN LISTREEL LE CONTENANT
C
      SUBROUTINE CREPRO(XFLOT,MLREEL)
      IMPLICIT INTEGER(I-N)
      REAL*8 XFLOT
-INC SMLREEL
      JG=1
      SEGINI, MLREEL
      PROG(1)=XFLOT
      RETURN
      END
 
 
 
 
 
 
 
 
 

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