C
C--------------------------------------------------------COMPR_LIM_DESL---
C
C COMPROBACION DE DESLIZAMIENTO EXCESIVO
C
SUBROUTINE COMPR_LIM_DESL(D_DELTA1,D_DELTA2,Lo,LAMBDA,BC)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C D_DELTA1,D_DELTA2 : Deslizamiento
REAL*8 D_DELTA1,D_DELTA2
C L : Longitud del elemento
REAL*8 Lo
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 D_DELTA : Deslizamiento maximo
REAL*8 D_DELTA
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
D_DELTA=MAX(DABS(D_DELTA1),DABS(D_DELTA2))
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
IF(D_DELTA.GT.(Lo/3.0d0))THEN
LAMBDA=(Lo/3.0d0)/D_DELTA
BC=3
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.
