C Rutina 052
C-------------------------------------------------------------CIJ_POT---
C
C SUBRUTINA CIJ_POT
C
C CALCULA EL TERMINO LIBRE (POENCIAL PLANO)
C
SUBROUTINE CIJ_POT(C,T)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C C(,) : termino libre
REAL*8 C
C T : Angulo interior en el nodo
REAL*8 T
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PI : Variables auxiliares
REAL*8 PI
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
PI=DACOS(-1.d0)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C CALCULO TERMINO LIBRE
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C=T/(2.d0*Pi)
C
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA
C
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
