Sources Esope | Cast3M

intpdo
C INTPDO    SOURCE    PV        18/11/19    21:15:09     9997           
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)
       data lareps /0/
       save lareps
       if (lareps.eq.0) then
       itab(1)=-1
       itab(2)=-1
       itab(3)=-1
       itab(4)=-1
       x=0.d0
       larep=0
       if  (itab(1).eq.0)   lareps=1
       if  (itab(2).eq.0)   lareps=2
       if  (itab(3).eq.0)   lareps=3
       if  (itab(4).eq.0)   lareps=4
       if (lareps.eq.0) then
         write (6,*) ' erreur dans intpdo !'
         write (6,*) ' compilateur defectueux'
         stop
       endif
       endif
       larep=lareps
       END