C Rutina 103
C--------------------------------------------------------COMPR_TRACC---
C
C SUBRUTINA COMPR_TRACC
C
C COMPROBACION DE APARICION DE TRACCIONES
C
SUBROUTINE COMPR_TRACC(SIGMA,D_SIGMA,LAMBDA,BC)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SIGMA : Tensiones acumuladas
REAL*8 SIGMA
C D_SIGMA : Tension corresp. al incr. de carga
REAL*8 D_SIGMA
C LAMBDA : Coef. de pond. de la sol. del incr. de carga
REAL*8 LAMBDA
C BC : Condicion de contorno final
INTEGER BC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C L : Valor de LAMBDA para el cual aparecen tracciones en el nodo
REAL*8 L
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
IF(SIGMA.GT.0.d0)THEN
IF(-SIGMA.LT.TOL)THEN
SIGMA=0.d0
ELSE
WRITE( *,11140) 1
WRITE(F_W,11140) 1
STOP
END IF
END IF
C
IF((SIGMA+D_SIGMA).GT.0)THEN
L=-SIGMA/D_SIGMA
IF((L.GE.0.d0).AND.(L.LT.1.d0))THEN
LAMBDA=L
BC=1
ELSE
WRITE( *,11140) 2
WRITE(F_W,11140) 2
STOP
END IF
ELSE
L=1.d0
END IF
C
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
11140 FORMAT(/,2x,'ERROR 11140 - COMPR_TRACC - Error Programa',
@ ' (#',i1,'#)')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
