Esope source files

   1 : C INTPDO    SOURCE    CHAT      05/01/13    00:41:34     5004           
   2 : C  reponds a l'angoissante question : combien d'entiers par real*8              
   3 : C                                                                               
   4 :        SUBROUTINE INTPDO(LAREP)                                                 
   5 :       IMPLICIT INTEGER(I-N)
   6 :        dimension itab(4)                                                        
   7 :        real*8 x                                                                 
   8 :        equivalence (itab(1),x)                                                  
   9 :        itab(1)=-1                                                               
  10 :        itab(2)=-1                                                               
  11 :        itab(3)=-1                                                               
  12 :        itab(4)=-1                                                               
  13 :        x=0.d0                                                                   
  14 :        larep=0                                                                  
  15 :        if  (itab(1).eq.0)   larep=1                                             
  16 :        if  (itab(2).eq.0)   larep=2                                             
  17 :        if  (itab(3).eq.0)   larep=3                                             
  18 :        if  (itab(4).eq.0)   larep=4                                             
  19 :        if (larep.eq.0) then                                                     
  20 :          write (6,*) ' erreur dans intpdo !'                                    
  21 :          write (6,*) ' compilateur defectueux'                                  
  22 :          stop                                                                   
  23 :        endif                                                                    
  24 :        END                                                                      
  25 :