Esope source files

   1 : C CXTORE    SOURCE    CHAT      05/01/12    22:34:06     5004           
   2 :       FUNCTION CXTORE(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 REELLE D'UN COMPLEXE 16                                        
   8 : *   LE RESULTAT EST UN REEL 8                                                   
   9 : *   M. PETIT LE 13/2/91                                                         
  10 : *                                                                               
  11 :       REAL*8 CXTORE                                                             
  12 :       COMPLEX*16 ZCMP,ZZ                                                        
  13 :       DIMENSION XX(2)                                                           
  14 :       EQUIVALENCE (ZZ,XX(1))                                                    
  15 :       ZZ=ZCMP                                                                   
  16 :       CXTORE=XX(1)                                                              
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :