Sources Esope | Cast3M

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