7.5.2.5.3 Lectura de tensiones en los puntos de integración

SECCIÓN "INICIALIZACIÓN DE ESFUERZOS POR PUNTOS DE INTEGRACIÓN"

saltar esta sección si ISIG=0 o MODEL=3

Dar NINT2 líneas

lectura en SAUT3
	IF(ISIG.NE.0.AND.MODEL.LE.2) THEN
	IF (ITELT.EQ.1) NINT2=NINTR*NINTR
	IF (ITELT.EQ.2) NINT2=NPTDAT(NINTR)
	DO 105 IPT=1,NINT2
105	READ (LECG,2530) SGN(IPT),SGS(IPT),SGT(IPT),STAT(IPT)
2530	FORMAT(4F10.0)

primera línea

note	columnas	variables	definición
1	1-10	SGN(1)	esfuerzo normal al plano de la interfaz
	11-20	SGS(1)	componente tangencial en el plano de la interfaz en la dirección local $r$
	21-30	SGT(1)	componente tangencial en el plano de la interfaz en la dirección local $s$
	31-40	STAT(1)	indicador de comportamiento elástico o plástico

última línea

nota	columna	variable	definición
	1-10	SGN(NINT2)	esfuerzo normal al plano de la interfaz
	11-20	SGS(NINT2)	componente tangencial en el plano de la interfaz en la dirección local $r$
	21-30	SGT(NINT2)	componente tangencial en el plano de la interfaz en la dirección local $s$
	31-40	STAT(NINT2)	indicador de comportamiento elástico o plástico

notas

1. Definir los esfuerzos en los puntos de integración:
   • si ITELT=1 dar NINT2=NPAR(10)*NPAR(10) líneas
   • si ITELT=2 dar NINT2=NPTDAT(NPAR(10) líneas
   con NPTDAT(1) = 1, NPTDAT(2) = 3, NPTDAT(3) = 4 y NPTDAT(4) = 7

FIN DE LA SECCIÓN "INICIALIZACIÓN DE LAS TENSIONES POR PUNTO DE INTEGRACIÓN"