Esope source files

   1 : C IPRED     SOURCE    PV        07/10/05    21:16:05     5890           
   2 : C---------------------------------------------------------------------|         
   3 : C                                                                     |         
   4 :        INTEGER FUNCTION IPRED(JF,JP)                                            
   5 : C                                                                     |         
   6 : C      CETTE FONCTION RENVOIE LE PREDECESSEUR DU POINT JP DANS        |         
   7 : C      LA FACETTE JF                                                  |         
   8 : C                                                                     |         
   9 : C---------------------------------------------------------------------|         
  10 : C                                                                               
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8(A-H,O-Z)
  13 : -INC TDEMAIT                                                                    
  14 : -INC CCOPTIO                                                                    
  15 : C                                                                               
  16 :        DO 100 I=1,4                                                             
  17 :           IF (NFC(I,JF).EQ.JP) GOTO 110                                         
  18 : 100    CONTINUE                                                                 
  19 :         WRITE (6,*) ' IPRED PAS DE PREDECESSEUR A ',JP,' DANS ',JF              
  20 :        write (6,*) ' liste des facettes restantes '
  21 :        DO 444 I=1,NFCMAX                                                        
  22 :         IF (IFAT(I).EQ.1) GOTO 444                                              
  23 :         WRITE (6,*)  I,NFC(1,I),NFC(2,I),NFC(3,I),NFC(4,I)
  24 :  444  CONTINUE                                                                  
  25 :        write (6,*) ' liste de NPF  '
  26 :        DO 445 I=1,Nptmax
  27 :         WRITE (6,*)  I,(npf(j,i),j=1,40)
  28 :  445  CONTINUE
  29 :        write (6,*) ' liste de ifat et ifut'
  30 :        DO 446 I=1,ifat(/1)
  31 :         WRITE (6,*)  I,ifat(i),ifut(i)
  32 :  446  CONTINUE
  33 :        i=100000000
  34 :        nfc(1,i)=1
  34 : *      CALL ERRTRA                                                              
  35 : C                                                                               
  36 :         STOP                                                                    
  37 : 110    I=I-1                                                                    
  38 :        IF (I.EQ.0) I=4                                                          
  39 :        IPR=NFC(I,JF)                                                            
  40 :        IF (IPR.EQ.0) IPR=NFC(3,JF)                                              
  41 :       IPRED=IPR                                                                 
  42 : C                                                                               
  43 :        RETURN                                                                   
  44 :        END                                                                      
  45 :  
  46 :