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