Sources Esope | Cast3M

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