C Rutina 091
C--------------------------------------------PIEij_ANA_POT---
C
C SUBRUTINA PIEij_ANA_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 ANALITICA
C
SUBROUTINE PIEij_ANA_POT(PNT,MAT,ELT,NOD,Eij)
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 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
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
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_ANAISO_POT(PNT,MAT,ELT,NOD,Eij)
C
C ***********************
C MATERIAL ANISOTROPO
C ***********************
C
CASE(2)
C
CALL PIEij_ANAANI_POT(PNT,MAT,ELT,NOD,Eij)
C
C
C *******************
C MATERIALES FGM
C *******************
C
CASE(3,4)
WRITE(F_W,08706)
WRITE (*,08706)
STOP
C
C Otros materiales (Error)
C
CASE DEFAULT
WRITE(F_W,08705) MAT.TIP
WRITE (*,08705) MAT.TIP
STOP
END SELECT
C
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
08701 FORMAT(/,2x,'ERROR 08701 - PIEij_ANA_POT',/,
@ ' Tipo de elemento (',i2,') no implementado.')
08703 FORMAT(/,2x,'ERROR 08703 - PIEij_ANA_POT',/,
@ ' Tipo de material (',i2,') no implementado.')
08704 FORMAT(/,2x,'ERROR 08704 - PIEij_ANA_POT',/,
@ ' Punto ',i2,' pertenece al contorno del solido.')
08705 FORMAT(/,2x,'ERROR 08705 - PIEij_ANA_POT',/,
@ ' Tipo de material (',i2,') no implementado.')
08706 FORMAT(/,2x,'ERROR 08706 - PIEij_ANA_POT',/,
@ ' Los Materiales FGM deben tener tipo de integracion mixta.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
