Sources Esope | Cast3M

ipred
C IPRED     SOURCE    JC220346  16/11/29    21:15:24     9221           
C---------------------------------------------------------------------|
C                                                                     |
       INTEGER FUNCTION IPRED(JF,JP)
C                                                                     |
C      CETTE FONCTION RENVOIE LE PREDECESSEUR DU POINT JP DANS        |
C      LA FACETTE JF                                                  |
C                                                                     |
C---------------------------------------------------------------------|
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
-INC TDEMAIT
 
-INC PPARAM
-INC CCOPTIO
C
       DO 100 I=1,4
          IF (NFC(I,JF).EQ.JP) GOTO 110
100    CONTINUE
        IF (IVERB.EQ.1) WRITE (6,*) ' IPRED PAS DE PREDECESSEUR A ',JP,
     &                              ' DANS ',JF
       IF (IVERB.EQ.1) write (6,*) ' liste des facettes restantes '
       DO 444 I=1,NFCMAX
        IF (IFAT(I).EQ.1) GOTO 444
        IF (IVERB.EQ.1) 
     &        WRITE (6,*)  I,NFC(1,I),NFC(2,I),NFC(3,I),NFC(4,I)
 444  CONTINUE
      IF (IVERB.EQ.1) THEN
       write (6,*) ' liste de NPF  '
       DO 445 I=1,Nptmax
        WRITE (6,*)  I,(npf(j,i),j=1,40)
 445  CONTINUE
       write (6,*) ' liste de ifat et ifut'
       DO 446 I=1,ifat(/1)
        WRITE (6,*)  I,ifat(i),ifut(i)
 446  CONTINUE
      ENDIF
       i=100000000
       nfc(1,i)=1
*      CALL ERRTRA
C
        STOP
110    I=I-1
       IF (I.EQ.0) I=4
       IPR=NFC(I,JF)
       IF (IPR.EQ.0) IPR=NFC(3,JF)
      IPRED=IPR
C
       RETURN
       END