Sources Esope | Cast3M

intope
C INTOPE    SOURCE    PV        20/03/30    21:20:06     10567          
C   INTERFACE ENTRE LES LECTURES DE DONNEES D'OPERATIONS ELEMENTAIRES
C   ET LES PROGRAMMES D'EXECUTIONS
C
      SUBROUTINE INTOPE(MELEME)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
-INC SMELEME
-INC SMCOORD
      SEGMENT ICPR(nbpts)
      DIMENSION X(3)
      SEGMENT ITABEL(1)
      SEGINI ITABEL
      ITABEL(1)=MELEME
   5  CONTINUE
      CALL MESLIR(-131)
      CALL LIROBJ('MAILLAGE',IELT,0,IRETOU)
      IF (IRETOU.EQ.0) GOTO 6
      ITABEL(**)=IELT
      GOTO 5
   6  CONTINUE
      SEGINI ICPR
      DO 1 I=1,ICPR(/1)
   1  ICPR(I)=0
      NBELT=ITABEL(/1)
      DO 7 IITT=1,NBELT
      MELEME=ITABEL(NBELT+1-IITT)
      SEGACT MELEME
      IF (LISOUS(/1).NE.0) GOTO 15
      CALL ADDITI(X,MELEME,NOUV,ICPR)
      IF (IERR.NE.0) RETURN
      MELEME=NOUV
      SEGACT MELEME
  20  CALL ECROBJ('MAILLAGE',MELEME)
      SEGDES MELEME
      GOTO 8
  15  CONTINUE
      NBSOUS=LISOUS(/1)
      NBREF=LISREF(/1)
      NBNN=0
      NBELEM=0
      SEGINI IPT1
      DO 30 I=1,LISOUS(/1)
      ILIS=LISOUS(I)
      CALL ADDITI(X,ILIS,NOUV,ICPR)
      IF (IERR.NE.0) RETURN
      IPT1.LISOUS(I)=NOUV
  30  CONTINUE
      IF (LISREF(/1).EQ.0) GOTO 32
      DO 31 I=1,LISREF(/1)
      ILIS=LISREF(I)
      CALL ADDITI(X,ILIS,NOUV,ICPR)
      IF (IERR.NE.0) RETURN
      IPT1.LISREF(I)=NOUV
  31  CONTINUE
  32  CONTINUE
      SEGDES MELEME
      MELEME=IPT1
      GOTO 20
   8  CONTINUE
   7  CONTINUE
      SEGSUP ICPR,ITABEL
      RETURN
      END