Télécharger cxtoim.eso

Retour à la liste

Numérotation des lignes :

cxtoim
  1. C CXTOIM SOURCE CHAT 05/01/12 22:34:02 5004
  2. FUNCTION CXTOIM(ZCMP)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. *
  6. * VERSION SUPPOSEE PORTABLE DE L'EXTRACTION
  7. * DE LA PARTIE IMAGINAIRE D'UN COMPLEXE 16
  8. * LE RESULTAT EST UN REEL 8
  9. * M. PETIT LE 13/2/91
  10. *
  11. REAL*8 CXTOIM
  12. COMPLEX*16 ZCMP,ZZ
  13. DIMENSION XX(2)
  14. EQUIVALENCE (ZZ,XX(1))
  15. ZZ=ZCMP
  16. CXTOIM=XX(2)
  17. RETURN
  18. END
  19.  
  20.  

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