C Rutina 031
C-------------------------------------------------------------LNG_ELT---
C
C SUBRUTINA LNG_ELT
C
C CALCULO DE LA LONGITUD DE UN ELEMENTO
C
SUBROUTINE LNG_ELT(ELT,NOD,LNG)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C ELT : Elemento
RECORD /S_elemento/ ELT
C NOD : Nodos del problema
RECORD /S_nodo/ NOD(N_MAX_NOD)
C LNG : LONGITUD
REAL*8 LNG
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C CALCULO DE LA LONGITUD
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SELECT CASE(ELT.TIP)
C
CASE(1)
C
C ELEMENTO LINEAL CONTINUO
C
LNG=DSQRT((NOD(ELT.NG(2)).XYZ(2)-NOD(ELT.NG(1)).XYZ(2))**2.d0+
@ (NOD(ELT.NG(2)).XYZ(1)-NOD(ELT.NG(1)).XYZ(1))**2.d0)
C
CASE DEFAULT
WRITE(F_W,03401) ELT.TIP
WRITE (*,03401) ELT.TIP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA
C
03400 FORMAT(/,2x,'ERROR 03400 - LNG_ELT - Error Programa (#',
@ i1,'#)')
03401 FORMAT(/,2x,'ERROR 03401 - LNG_ELT - Tipo de elemento ',i2
@ ,' no implementado.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
