C Rutina 064
C--------------------------------------------------------------Eij_MIX2---
C
C SUBRUTINA Eij_MIX2
C
C CALCULO DE LAS CONSTANTES DE INTEGRACION DESDE UN P.C.
C A UN ELEMENTO (INCLUYENDO EL TERMINO LIBRE)
C INTEGRACION MIXTA
C
C ELASTICIDAD BIDIMENSIONAL PLANA (FORMULACION REAL)
C
SUBROUTINE Eij_MIX2(PRB,MAT,PC,ELT,NOD,COD)
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 TP : 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 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
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CALC. CONST. INTEGRACION
C
C INTEGRACION NUMERICA
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Calculo de Eij
C
SELECT CASE (COD)
CASE(1)
C
C PC fuera del elemento
C
CALL Eij_NUM2(PC,PRB,MAT,ELT,NOD)
CASE(2,4)
C
C PC en el elemento
C
CALL Eij_ANA2(PC,PRB,MAT,ELT,NOD,COD)
CASE (3)
WRITE(F_W,08501) PRB.TP.TIP , 2
WRITE (*,08501) PRB.TP.TIP , 2
STOP
CASE DEFAULT
WRITE(F_W,08500) 1
WRITE (*,08500) 1
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
08500 FORMAT(/,2x,'ERROR 08500 - Eij_MIX2 - Error Programa (#',i1,'#)')
08501 FORMAT(/,2x,'ERROR 08501 - Eij_MIX2',/,' Integracion numerica '
@ ,'no implementada para',/,' el problema tipo: ',i2,
@ ' con PC tipo: ',i2,'.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
