Esope source files

   1 : C XPOST     SOURCE    CHAT      11/03/16    21:33:45     6902           
   2 : C
   3 :       SUBROUTINE XPOST
   4 : C
   5 : C     Post traitement des calculs avec elements de type X-FEM necessitant 
   6 : C     une attention particuliere
   7 : C
   8 :       IMPLICIT REAL*8 (A-H,O-Z)
   9 : C
  10 : C
  11 : C  SEGMENTS INCLUDE
  12 : -INC CCOPTIO
  13 : -INC SMMODEL
  14 : -INC SMCHPOI
  15 : -INC SMCHAML
  16 : C
  17 : C
  18 :       PARAMETER (NMOT0=2)
  19 :       CHARACTER*4 MOTCLE(NMOT0)
  20 :       DATA MOTCLE/'RECO','FISS'/
  21 : *      DATA MOTCLE/'DEP2DEP','GRAD    ','CHANCHAM','SSDECOUP',
  22 : *     $            'CHAMPAUX','GRADCHAM'/
  23 : 
  23 :       CALL LIRMOT(MOTCLE,NMOT0,IMOT0,1)
  24 : 
  25 : 
  26 :       IF(IMOT0.EQ.1) THEN
  26 :         CALL LIROBJ('CHPOINT',IPCHP1,1,IRETOU)
  27 :         if (iretou.ne.1) 
  28 :      &  write(6,*) 'il faut fournir un chPO de déplacements'
  28 :         CALL LIROBJ('MMODEL',IPMOD1,1,IRETOU)
  29 :         if (iretou.ne.1) 
  30 :      &  write(6,*) 'il faut fournir le modèle'
  31 :         IF (IERR.NE.0) RETURN
  32 :         
  32 :         CALL XPOST1(IPCHP1,IPMOD1,IPCHP2)
  33 : 
  34 : C          ECRITURE
  34 :         CALL ECROBJ('CHPOINT',IPCHP2)
  35 : 
  36 : 
  37 :       ELSEIF(IMOT0.EQ.2) THEN
  37 :         CALL XPOST2
  38 : c
  39 : c      ELSEIF(IMOT0.EQ.3) THEN
  39 : c        CALL XPOST3
  40 : c
  41 : c      ELSEIF(IMOT0.EQ.4) THEN
  41 : c        CALL XPOST4
  42 : c
  43 : c      ELSEIF(IMOT0.EQ.5) THEN
  43 : c        call LIRENT(IVAL,1,IRETOU)
  43 : c        if(IVAL.eq.1)         call XPOS51
  43 : c        if(IVAL.eq.2)         call XPOS52
  44 : C
  45 : c      ELSEIF(IMOT0.EQ.6) THEN
  45 : c        CALL XPOST6
  46 :       
  47 :       ELSE
  48 :         WRITE(*,*) '!!! OPTION NON IMPLANTÉE !!!'
  49 :         RETURN
  50 : 
  51 :       ENDIF
  52 : 
  53 : 
  54 :       RETURN
  55 :       END
  56 : 
  57 : 
  58 :  
  59 :  
  60 :  
  61 :