C Rutina 091
C-------------------------------------------PIEij_MIX_POT---
C
C SUBRUTINA PIEij_MIX_POT
C
C CALCULO DE LAS CONSTANTES DE INTEGRACION Y LA MATRIZ EIJ
C DESDE UN PINT A LOS ELEMENTOS DE UN SOLIDO (INCLUYENDO
C EL TERMINO LIBRE)
C INTEGRACION MIXTA
C
SUBROUTINE PIEij_MIX_POT(PRB,PNT,MAT,ELT,NOD,Eij,NPG)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PNT : Punto interno
RECORD /S_pntint/ PNT
C PRB : Variables globales del solido
RECORD /S_problema/ PRB
C MAT : Material
RECORD /S_material/ MAT
C ELT : Elemento
RECORD /S_elemento/ ELT
C NOD() : Nodos del problema
RECORD /S_nodo/ NOD(N_MAX_NOD)
C Eij(,): Matriz de las ctes de integracion en el calculo de desplazamientos
RECORD /S_matriz_Eij/ Eij(1,4)
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 PIEij_MIXISO_POT(PRB,PNT,MAT,ELT,NOD,Eij,NPG)
C
C ***********************
C MATERIAL ANISOTROPO
C ***********************
C
CASE(2)
C
CALL PIEij_MIXANI_POT(PRB,PNT,MAT,ELT,NOD,Eij,NPG)
C
C
C *******************
C MATERIALES FGM
C *******************
C
CASE(3,4)
C
CALL PIEij_MIXFGM_POT(PRB,PNT,MAT,ELT,NOD,Eij,NPG)
C
C Otros materiales (Error)
C
CASE DEFAULT
WRITE(F_W,08701) MAT.TIP
WRITE (*,08701) MAT.TIP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
08701 FORMAT(/,2x,'ERROR 08701 - PIEij_MIX_POT',/,
@ ' Tipo de elemento (',i2,') no implementado.')
08703 FORMAT(/,2x,'ERROR 08703 - PIEij_MIX_POT',/,
@ ' Tipo de material (',i2,') no implementado.')
08704 FORMAT(/,2x,'ERROR 08704 - PIEij_MIX_POT',/,
@ ' Punto ',i2,' pertenece al contorno del solido.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
