Esope source files

   1 : C VTSIMP    SOURCE    MAGN      10/05/18    21:16:41     6675           
   2 :       SUBROUTINE VTSIMP(IPT1,IZAFM,IZCCH2,IZIPAD)
   3 : C************************************************************************       
   4 : C   CALCUL DE LA MATRICE M ( P*DIV(U) )  --> AM(NP,IES,NEL)                     
   5 : C                                                                               
   6 : C   IKAS=1  V NORMALE IMPOSEE
   7 : C   IKAS=-1 V TANGENTE IMPOSEE
   8 : C
   9 : C************************************************************************       
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  12 :                                                                                 
  13 : C***                                                                            
  14 :       CHARACTER*8 NOM0
  15 :       DIMENSION XYZ(3,9)
  16 : C***                                                                            
  17 :                                                                                 
  18 : -INC SMELEME
  19 : C-INC SMMATRAKANC
  20 : C*************************************************************************
  21 : C                                                                               
  22 : C    REPERAGE ET STOKAGE DES MATRICES ELEMENTAIRES  puis assemblees
  23 : C                                                                               
  24 : 
  25 : * LGEOC SPG de la pression et/ou des multiplicateurs de Lagrange
  26 : * (points CENTRE ) pour chaque operateur de contrainte
  27 : * KGEOC SPG pour la totalite des points CENTRE.
  28 : * KGEOS SPG pour la totalite des points SOMMET (Diagonale vitesse)
  29 : * KLEMC Connectivites de l'ensemble des contraintes
  30 : * LIZAFM(NBSOUS) contient les pointeurs IZAFM des sous-zones
  31 : 
  32 :       SEGMENT MATRAK
  33 :       INTEGER LGEOC(NBOP),IDEBS(NBOP),IFINS(NBOP)
  34 :       INTEGER LIZAFM(NBSOUS)
  35 :       INTEGER IKAM0 (NBSOUS)
  36 :       INTEGER IMEM  (NBELC)
  37 :       INTEGER KLEMC,KGEOS,KGEOC,KDIAG,KCAC,KIZCL,KIZGC
  38 :       ENDSEGMENT
  39 : 
  40 :       SEGMENT IZAFM                                                             
  41 :       REAL*8  AM(NNELP,NP,IESP),RPGI(NELAX)
  42 :       ENDSEGMENT                                                                
  43 : 
  44 :       POINTEUR IPMJ.IZAFM,IPMK.IZAFM
  45 : 
  46 : C*******************************************************************            
  47 : -INC SMLENTI
  48 :       POINTEUR IZIPAD.MLENTI
  49 : -INC SIZFFB
  50 : -INC SMCOORD
  51 : -INC SMCHPOI
  52 :       POINTEUR IZCCH2.MPOVAL
  53 : -INC CCOPTIO
  54 : -INC CCGEOME
  55 : C***                                                                            
  56 :       IKAS=-1
  57 :       SEGACT IPT1,IZAFM*MOD
  58 :       IIES=IDIM
  59 :       NBREF=IPT1.LISREF(/1)-1
  60 : 
  61 :       DO 1 KS=1,NBREF
  62 :       MELEME=IPT1.LISREF(KS)
  63 :       SEGACT MELEME
  64 :       NEL=NUM(/2)
  65 :       NP=NUM(/1)
  66 : 
  67 :       NOM0=NOMS(ITYPEL)//'    '
  67 :       CALL KALPBG(NOM0,'FONFORM ',IZFFM)
  68 :       SEGACT IZFFM*MOD
  69 :       IZHR=KZHR(1)
  70 :       SEGACT IZHR*MOD
  71 :       NES=GR(/1)
  72 :       NPG=GR(/3)
  73 : 
  74 :       NELAM=AM(/1)
  75 : 
  75 :       CALL KAM101(NELAM,NEL,NP,IIES,NUM,AM,XCOOR,
  76 :      &IZIPAD.LECT,IKAS,IAXI,NES,NPG,FN,GR,HR,PG,PGSQ,RPG)
  77 :       SEGDES MELEME
  78 :       SEGSUP IZFFM,IZHR
  79 :  1    CONTINUE
  80 :       IESAM=AM(/3)
  81 :       SEGACT IZCCH2*MOD
  81 :       CALL KANOR2(AM,IZCCH2.VPOCHA,NELAM,IESAM)
  82 :       SEGDES IZCCH2
  83 :       SEGDES IPT1,IZAFM
  84 : C                                                                               
  85 : C                                                                               
  86 :       RETURN                                                                    
  87 :  1001 FORMAT(20(1X,I5))                                                         
  88 :  1002 FORMAT(10(1X,1PE11.4))                                                    
  89 :       END                                                                       
  90 :  
  91 :  
  92 :  
  93 :  
  94 :  
  95 :  
  96 :  
  97 :  
  98 :  
  99 :  
 100 :