C Rutina 032POT
C--------------------------------------------------------------COND_CONT_POT---
C
C SUBRUTINA COND_CONT_POT
C
C CALCULO DE LAS GIJ (Condicion de contorno) EN EL NODO k
C (NODO 2D EXTREMO DE UN ELEMENTO LINEAL CONTINUO)
C
SUBROUTINE COND_CONT_POT(NOD,COD,CINC,TP,ABC)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C NOD : Nodo actual (k)
RECORD /S_nodo/ NOD
C COD : Cod=1 - Nodo normal
C Cod=2 - Nodo inicial (No existe k-1 => k nodo(1) del elto k)
C Cod=3 - Nodo final (No existe k+1 => k nodo(2) del elto k)
INTEGER COD
C CINC : Contador del numero de incognitas
INTEGER CINC
C TP : Tipo de problema
INTEGER TP
C ABC :Caracter que identifica el contorno
C = 'A' :Contorno del tipo A
C = 'B' :Contorno del tipo B
C = 'C' :Contorno normal sin contacto
CHARACTER ABC
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
SELECT CASE(TP)
CASE(41)
C PROBLEMA 2D POTENCIAL
IF(COD.EQ.1)THEN
IF(ABC.EQ.'A')THEN
CALL COND_CONT_POT_A(NOD,CINC)
ELSE
IF(ABC.EQ.'B')THEN
CALL COND_CONT_POT_B(NOD,CINC)
ELSE
IF(ABC.EQ.'C') THEN
CALL COND_CONT_POT_NORMAL(NOD,CINC)
END IF
END IF
END IF
ELSE
WRITE(F_W,04100) 3
WRITE( *,04100) 3
STOP
END IF
CASE DEFAULT
WRITE(F_W,04100) 1
WRITE( *,04100) 1
STOP
END SELECT
C
C FORMATOS DE ESCRITURA
C
04100 FORMAT(/,2x,'ERROR 04100 - COND_CONT_POT - Error Programa (#',
@ i1,'#)')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
