C Rutina 103
C--------------------------------------------------------COMPR_INCOMP---
C
C SUBRUTINA COMPR_INCOMP
C
C COMPROBACION DE INCOMPATIBILIDAD EN DESLIZAMIENTO
C
SUBROUTINE COMPR_INCOMP(TAU,D_TAU,D_DELTA,LAMBDA,BC)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C TAU,D_TAU : Tension tangencial
REAL*8 TAU,D_TAU
C D_DELTA : Deslizamiento
REAL*8 D_DELTA
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
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
IF(DABS(TAU).LT.1.d-16) TAU=0.d0
C
IF(TAU.EQ.0.d0)THEN
IF((D_DELTA*D_TAU).GT.0.d0)THEN
LAMBDA=0.d0
BC=2
END IF
ELSE
IF((D_DELTA*TAU).GT.0.d0)THEN
LAMBDA=0.d0
BC=2
END IF
END IF
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
11110 FORMAT(/,2x,'ERROR 11110 - COMPR_INCOMP - Error Programa',
@ ' (#',i1,'#)')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
