1 : C INTOPE SOURCE CHAT 05/01/13 00:41:31 5004 2 : C INTERFACE ENTRE LES LECTURES DE DONNEES D'OPERATIONS ELEMENTAIRES 3 : C ET LES PROGRAMMES D'EXECUTIONS 4 : C 5 : SUBROUTINE INTOPE(MELEME) 6 : IMPLICIT INTEGER(I-N) 7 : IMPLICIT REAL*8 (A-H,O-Z) 8 : -INC CCOPTIO 9 : -INC SMELEME 10 : -INC SMCOORD 11 : SEGMENT ICPR(XCOOR(/1)/(IDIM+1)) 12 : DIMENSION X(3) 13 : SEGMENT ITABEL(1) 14 : SEGINI ITABEL 15 : ITABEL(1)=MELEME 16 : 5 CONTINUE 16 : CALL MESLIR(-131) 16 : CALL LIROBJ('MAILLAGE',IELT,0,IRETOU) 17 : IF (IRETOU.EQ.0) GOTO 6 18 : ITABEL(**)=IELT 19 : GOTO 5 20 : 6 CONTINUE 21 : SEGINI ICPR 22 : DO 1 I=1,ICPR(/1) 23 : 1 ICPR(I)=0 24 : NBELT=ITABEL(/1) 25 : DO 7 IITT=1,NBELT 26 : MELEME=ITABEL(NBELT+1-IITT) 27 : SEGACT MELEME 28 : IF (LISOUS(/1).NE.0) GOTO 15 28 : CALL ADDITI(X,MELEME,NOUV,ICPR) 29 : IF (IERR.NE.0) RETURN 30 : MELEME=NOUV 31 : SEGACT MELEME 31 : 20 CALL ECROBJ('MAILLAGE',MELEME) 32 : SEGDES MELEME 33 : GOTO 8 34 : 15 CONTINUE 35 : NBSOUS=LISOUS(/1) 36 : NBREF=LISREF(/1) 37 : NBNN=0 38 : NBELEM=0 39 : SEGINI IPT1 40 : DO 30 I=1,LISOUS(/1) 41 : ILIS=LISOUS(I) 41 : CALL ADDITI(X,ILIS,NOUV,ICPR) 42 : IF (IERR.NE.0) RETURN 43 : IPT1.LISOUS(I)=NOUV 44 : 30 CONTINUE 45 : IF (LISREF(/1).EQ.0) GOTO 32 46 : DO 31 I=1,LISREF(/1) 47 : ILIS=LISREF(I) 47 : CALL ADDITI(X,ILIS,NOUV,ICPR) 48 : IF (IERR.NE.0) RETURN 49 : IPT1.LISREF(I)=NOUV 50 : 31 CONTINUE 51 : 32 CONTINUE 52 : SEGDES MELEME 53 : MELEME=IPT1 54 : GOTO 20 55 : 8 CONTINUE 56 : 7 CONTINUE 57 : SEGSUP ICPR,ITABEL 58 : RETURN 59 : END 60 :
© Cast3M 2003 - All rights reserved.
Disclaimer