Télécharger rltocx.eso

Retour à la liste

Numérotation des lignes :

  1. C RLTOCX SOURCE CHAT 05/01/13 03:03:33 5004
  2. FUNCTION RLTOCX(XRE,XIM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. *
  6. * VERSION SUPPOSEE PORTABLE DE LA CONVERSION DE 2
  7. * REELS 8 EN UN COMPLEXE 16
  8. * M. PETIT LE 13/2/91
  9. *
  10. REAL*8 XRE,XIM
  11. COMPLEX*16 RLTOCX,ZCMP
  12. DIMENSION XX(2)
  13. EQUIVALENCE (ZCMP,XX(1))
  14. XX(1)=XRE
  15. XX(2)=XIM
  16. RLTOCX=ZCMP
  17. RETURN
  18. END
  19.  
  20.  

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