Télécharger la plaquette Cast3M


fr en

Télécharger intope.eso

Retour à la liste

Numérotation des lignes : 

intope

  1. C INTOPE    SOURCE    CB215821  26/10/26    21:15:40     12682          
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. -INC SMELEME
  12. -INC SMCOORD
  13.       SEGMENT ICPR(nbpts)
  14.       DIMENSION X(3)
  15.       SEGMENT ITABEL(1)
  16.       SEGINI ITABEL
  17.       ITABEL(1)=MELEME
  18.    5  CONTINUE
  19.       CALL MESLIR(-131)
  20.       CALL LIROBJ('MAILLAGE',IELT,0,IRETOU)
  21.       IF (IRETOU.EQ.0) GOTO 6
  22.       ITABEL(**)=IELT
  23.       GOTO 5
  24.    6  CONTINUE
  25.       SEGINI ICPR
  26.       DO 1 I=1,ICPR(/1)
  27.       ICPR(I)=0
  28.    1  CONTINUE
  29.       NBELT=ITABEL(/1)
  30.       DO 7 IITT=1,NBELT
  31.       MELEME=ITABEL(NBELT+1-IITT)
  32.       SEGACT MELEME
  33.       IF (LISOUS(/1).NE.0) GOTO 15
  34.       CALL ADDITI(X,MELEME,NOUV,ICPR)
  35.       IF (IERR.NE.0) RETURN
  36.       MELEME=NOUV
  37.       SEGACT MELEME
  38.   20  CALL ECROBJ('MAILLAGE',MELEME)
  39.       SEGDES MELEME
  40.       GOTO 8
  41.   15  CONTINUE
  42.       NBSOUS=LISOUS(/1)
  43.       NBREF=LISREF(/1)
  44.       NBNN=0
  45.       NBELEM=0
  46.       SEGINI IPT1
  47.       DO 30 I=1,LISOUS(/1)
  48.       ILIS=LISOUS(I)
  49.       CALL ADDITI(X,ILIS,NOUV,ICPR)
  50.       IF (IERR.NE.0) RETURN
  51.       IPT1.LISOUS(I)=NOUV
  52.   30  CONTINUE
  53.       IF (LISREF(/1).EQ.0) GOTO 32
  54.       DO 31 I=1,LISREF(/1)
  55.       ILIS=LISREF(I)
  56.       CALL ADDITI(X,ILIS,NOUV,ICPR)
  57.       IF (IERR.NE.0) RETURN
  58.       IPT1.LISREF(I)=NOUV
  59.   31  CONTINUE
  60.   32  CONTINUE
  61.       SEGDES MELEME
  62.       MELEME=IPT1
  63.       GOTO 20
  64.    8  CONTINUE
  65.    7  CONTINUE
  66.       SEGSUP ICPR,ITABEL
  67.       RETURN
  68.       END
  69.  
  70.  
  71.  
  72.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales