Esope source files

   1 : C PRINVE    SOURCE    FANDEUR   05/12/20    21:15:08     5273           
   2 : 
   3 : C   INTERFACE ENTRE PILOT ET INVERS
   4 : C   SERT A INVERSER UN OBJET
   5 : 
   6 :       SUBROUTINE PRINVE
   7 : 
   8 :       IMPLICIT INTEGER(I-N)
   9 :       IMPLICIT REAL*8(A-H,O-Z)
  10 : 
  11 : -INC CCOPTIO
  12 : -INC SMELEME
  13 : 
  14 : C ===
  15 : C  1 - Lecture d'un MAILLAGE :
  16 : C      Inversion du sens de parcours de ligne(s) (SEG2/SEG3) ou de
  17 : C      l'orientation des elements "surfaciques" (QUA4/QUA8/TRI3/TRI6)
  18 : C ===
  18 :       CALL LIROBJ('MAILLAGE',IPT1,0,IRETOU)
  19 :       IF (IERR.NE.0) RETURN
  20 :       IF (IRETOU .NE. 0) THEN
  21 :         MELEME=IPT1
  22 :         SEGACT MELEME
  23 :         NBSOUS=LISOUS(/1)
  24 :         IF (NBSOUS.EQ.0) THEN
  24 :           CALL INVERS(IPT1,IPT2)
  25 :         ELSE
  26 :           NBREF=0
  27 :           NBNN=0
  28 :           NBELEM=0
  29 :           SEGINI IPT2
  30 :           DO i=1,NBSOUS
  31 :             IPT1=LISOUS(i)
  32 :             SEGACT IPT1
  32 :             CALL INVERS(IPT1,IPT3)
  33 :             SEGDES IPT1,IPT3
  34 :             IPT2.LISOUS(i)=IPT3
  35 :           ENDDO
  36 :         ENDIF
  37 :         SEGDES MELEME,IPT2
  37 :         CALL ECROBJ('MAILLAGE',IPT2)
  38 : 
  39 : C ===
  40 : C  2 - Lecture d'un CHPOINT :
  41 : C      Inversion des composantes au sens de la multiplication '*'
  42 : C ===
  43 :       ELSE
  43 :         CALL LIROBJ('CHPOINT',ICHP1,1,IRETOU)
  44 :         IF (IERR.NE.0) RETURN
  44 :         CALL INVCHP(ICHP1,ICHP2)
  44 :         CALL ECROBJ('CHPOINT',ICHP2)
  45 :       ENDIF
  46 : 
  47 :       RETURN
  48 :       END
  49 : 
  50 :