C
C-------------------------------------------------------------SIG_TERM---
C
C SUBRUTINA SIG_TERM
C
C CALCULO DEL NODO SIGUIENTE
C
SUBROUTINE SIG_TERM(SOLS,CNT,ELTS,CNOD,SIG)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SOLS : Solido del contorno seleccionado
RECORD /S_solido/ SOLS
C CNT : Contornos del problema
RECORD /S_contorno/ CNT(N_MAX_CNT)
C ELT : Elementos del problema
RECORD /S_elemento/ ELTS(N_MAX_ELT)
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES INTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C I,J : Contadores
INTEGER I,J
C CCNT,CELT,CNOD,CNOD1,SIG :Contadores
INTEGER CELT,CNOD,CNOD1,SIG,CCNT,CELTP,CONT
C
CCCCCCCCCCCCCCC
C
C RUTINA
C
CCCCCCCCCCCCCCC
C
C Bucle que recorre todos contornos del sólido
C
DO i=1,SOLS.NCNT
C
cont=SOLS.CNT(i)
ccnt=CNT(cont).NUM
C
DO j=1,CNT(ccnt).NELT
C
celt=CNT(ccnt).ELT(j)
celtp=ELTS(celt).TIP
cnod1=ELTS(celt).NI(1)
C
IF(cnod1.EQ.cnod)THEN
sig=ELTS(celt).NI(2)
C
ELSE
C
CONTINUE
C
END IF
C
END DO
C
END DO
C
C
C
C FIN DE LA RUTINA LECTURA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
