C-----------------------------------------------PICALC_EIJ_POT---
C
C SUBRUTINA PICALC_EIJ_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
SUBROUTINE PICALC_EIJ_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
C TI : Tipo de integracion
INTEGER TI
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
TI=PRB.TI.TIP
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C CALC. CONST. INTEGRACION
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CALCULA CTES DE INTEGRACION
C
SELECT CASE (TI)
C
CASE(2)
C
C INTEGRACION ANALITICA
C Potencial 2D plano
C
CALL PIEij_ANA_POT(PNT,MAT,ELT,NOD,Eij)
C
CASE(3)
C
C INTEGRACION MIXTA
C Potencial 2D plano
C
CALL PIEij_MIX_POT(PRB,PNT,MAT,ELT,NOD,Eij,NPG)
C
CASE DEFAULT
WRITE(F_W,08313) TI
WRITE (*,08313) TI
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
08313 FORMAT(/,2x,'ERROR 08313 - PICALC_EIJ_POT'
@ ,/,' Tipo de integracion ',i2,' no implementada.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
