C INTPDO    SOURCE    CHAT      05/01/13    00:41:34     5004           
C  reponds a l'angoissante question : combien d'entiers par real*8              
C                                                                               
       SUBROUTINE INTPDO(LAREP)                                                 
      IMPLICIT INTEGER(I-N)
       dimension itab(4)                                                        
       real*8 x                                                                 
       equivalence (itab(1),x)                                                  
       itab(1)=-1                                                               
       itab(2)=-1                                                               
       itab(3)=-1                                                               
       itab(4)=-1                                                               
       x=0.d0                                                                   
       larep=0                                                                  
       if  (itab(1).eq.0)   larep=1                                             
       if  (itab(2).eq.0)   larep=2                                             
       if  (itab(3).eq.0)   larep=3                                             
       if  (itab(4).eq.0)   larep=4                                             
       if (larep.eq.0) then                                                     
         write (6,*) ' erreur dans intpdo !'                                    
         write (6,*) ' compilateur defectueux'                                  
         stop                                                                   
       endif                                                                    
       END