C
C-----------------------------------------------------------------Rij---
C
C SUBRUTINA Rij
C
C CALCULA LAS MATRICES DE GIRO VARIABLES DE ELEMENTO - NODO
C
SUBROUTINE Rij(ELTP,NI)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C ELTP : Tipo de elemento
RECORD /S_tipelt/ ELTP
C NI : Nodo del elemento
INTEGER NI
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C TE : Tipo de elemento
INTEGER TE
C I,J : Contadores
INTEGER I,J
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
TE=ELTP.TIP
C
SELECT CASE (TE)
CASE(1)
SELECT CASE (NI)
CASE(1)
DO i=1,8
DO j=1,6
ELTP.RIJ(1,i,j)=0.d0
END DO
END DO
ELTP.RIJ(1,1,1)=1.d0
ELTP.RIJ(1,3,2)=1.d0
ELTP.RIJ(1,5,5)=1.d0
ELTP.RIJ(1,7,6)=1.d0
CASE(2)
DO i=1,8
DO j=1,6
ELTP.RIJ(2,i,j)=0.d0
END DO
END DO
ELTP.RIJ(2,2,1)=1.d0
ELTP.RIJ(2,4,2)=1.d0
ELTP.RIJ(2,6,3)=1.d0
ELTP.RIJ(2,8,4)=1.d0
CASE DEFAULT
WRITE(F_W,02142) TE,NI
WRITE (*,02142) TE,NI
STOP
END SELECT
CASE DEFAULT
WRITE(F_W,02141) TE
WRITE (*,02141) TE
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
02140 FORMAT(/,2x,'ERROR 02140 - Rij - Error Programa (#',
@ i1,'#)')
02141 FORMAT(/,2x,'ERROR 02141 - Rij - Tipo de elemento (',i2,
@ ') no implementado.')
02142 FORMAT(/,2x,'ERROR 02142 - Rij - Tipo de elemento (',i2,
@ '. Nodo (',i2,') erroneo.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
