C Rutina 064
C--------------------------------------------------------------Eij_MIX_POT---
C
C SUBRUTINA Eij_MIX_POT
C
C CALCULO DE LAS CONSTANTES DE INTEGRACION Y LA MATRIZ EIJ
C DESDE UN P.C. A LOS ELEMENTOS DE UN SOLIDO (INCLUYENDO
C EL TERMINO LIBRE)
C INTEGRACION MIXTA
C
C POTENCIAL BIDIMENSIONAL PLANO
C
SUBROUTINE Eij_MIX_POT(PRB,MAT,PC,ELT,NOD,COD,NPG)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS (ENTRADA)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PC : Punto de colocacion
RECORD /S_coloc/ PC
C MAT : Material
RECORD /S_material/ MAT
C TP : Variables globales del solido
RECORD /S_problema/ PRB
C ELT : Elemento
RECORD /S_elemento/ ELT
C NOD() : Nodos del problema
RECORD /S_nodo/ NOD(N_MAX_NOD)
C COD = 1 : P.C. no pertenece al elemento
C 2 : P.C. en el origen del elemento
C 3 : P.C. en el interior del elemento
C 4 : P.C. en el extremo del elemento
INTEGER COD
C NPG : Numero de puntos de Gauss
INTEGER NPG
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C CALCULO DE LAS CONST. INTEGRACION
C INTEGRACION MIXTA
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
SELECT CASE(MAT.TIP)
C
C ***********************
C MATERIAL ISOTROPO
C ***********************
C
CASE(1)
C
CALL Eij_MIXISO_POT(PRB,MAT,PC,ELT,NOD,COD,NPG)
C
C ***********************
C MATERIAL ANISOTROPO
C ***********************
C
CASE(2)
C
CALL Eij_MIXANI_POT(PRB,MAT,PC,ELT,NOD,COD,NPG)
C
C
C *******************
C MATERIALES FGM
C *******************
C
CASE(3,4)
C
CALL Eij_MIXFGM_POT(PRB,MAT,PC,ELT,NOD,COD,NPG)
C
C Otros materiales (Error)
C
CASE DEFAULT
WRITE(F_W,08501) MAT.TIP
WRITE (*,08501) MAT.TIP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
08500 FORMAT(/,2x,'ERROR 08500 - Eij_MIX_POT - Error Programa (#'
@ ,i1,'#)')
08501 FORMAT(/,2x,'ERROR 08501 - Eij_MIX_POT',/,
@ ' Tipo de material (',i2,') no implementado.')
08502 FORMAT(/,2x,'ERROR 08511 - EIJ_NUM_POT - Tipo de elemento (',i2,
@ ') no implementado')
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
