C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C C
C PARAMETROS GLOBALES DEL PROGRAMA C
C C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PARAMETROS MODIFICABLES
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Variables globales
C
INTEGER N_MAX_INC
PARAMETER (N_MAX_INC =1600)
INTEGER N_MAX_EC
PARAMETER (N_MAX_EC =1600)
REAL*8 TOL
PARAMETER (TOL=1E-30)
REAL*8 EPSIL
PARAMETER (EPSIL=1E-40)
C
C Variables del sólido
C
INTEGER N_MAX_SOL
PARAMETER (N_MAX_SOL =2)
INTEGER N_MAX_CNTSOL
PARAMETER (N_MAX_CNTSOL =6)
INTEGER N_MAX_ELTSOL
PARAMETER (N_MAX_ELTSOL =700)
INTEGER N_MAX_NODSOL
PARAMETER (N_MAX_NODSOL =700)
INTEGER N_MAX_PINTSOL
PARAMETER (N_MAX_PINTSOL=30)
INTEGER N_MAX_PCSOL
PARAMETER (N_MAX_PCSOL =900)
C
INTEGER N_MAX_PC
PARAMETER (N_MAX_PC =900)
INTEGER N_MAX_ELT
PARAMETER (N_MAX_ELT =900)
INTEGER N_MAX_NOD
PARAMETER (N_MAX_NOD =900)
C
INTEGER N_MAX_ZCTO
PARAMETER (N_MAX_ZCTO =2)
INTEGER N_ZMAX_ZCTO
PARAMETER (N_ZMAX_ZCTO =4)
C
INTEGER N_MAX_CNT
PARAMETER (N_MAX_CNT =8)
INTEGER N_MAX_ELTCNT
PARAMETER (N_MAX_ELTCNT =900)
INTEGER N_MAX_NODCNT
PARAMETER (N_MAX_NODCNT =900)
C
C *********
C POTENCIAL
C *********
C
INTEGER N_MAX_restermPOT
PARAMETER (N_MAX_restermPOT =2)
C
C Variables de los puntos internos
C
INTEGER N_MAX_PINT
PARAMETER (N_MAX_PINT = 50)
C
C ESCRIBIR BASE DE DATOS (1:Si - 0:No)
INTEGER W_D
PARAMETER (W_D=0)
C ESCRIBIR ITERACIONES DE CONTACTO (1:Si - 0:No)
INTEGER W_C
PARAMETER (W_C=1)
C ESCRIBIR RESULTADOS DE CADA ITERACION (1:Actual y ultima - resto:Todas)
INTEGER W_I
PARAMETER (W_I=2)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PARAMETROS NO MODIFICABLES
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
INTEGER MAX_DIM
PARAMETER (MAX_DIM =2)
C
INTEGER N_MAX_NPG
PARAMETER (N_MAX_NPG =50)
C
INTEGER N_MAX_PRPMAT
PARAMETER (N_MAX_PRPMAT =35)
C
INTEGER N_MAX_VARELT
PARAMETER (N_MAX_VARELT =8)
INTEGER N_MAX_NGELT
PARAMETER (N_MAX_NGELT =2)
INTEGER N_MAX_NIELT
PARAMETER (N_MAX_NIELT =2)
C
zzz
INTEGER N_MAX_INCNOD
PARAMETER (N_MAX_INCNOD =10)
INTEGER N_MAX_VARNOD
PARAMETER (N_MAX_VARNOD =14)
zzz
INTEGER N_MAX_CDCNOD
PARAMETER (N_MAX_CDCNOD =4)
C
INTEGER N_MAX_INCPNT
PARAMETER (N_MAX_INCPNT =7)
C
C *********
C POTENCIAL
C *********
INTEGER N_MAX_TPMT
PARAMETER (N_MAX_TPMT =4)
C
INTEGER N_MAX_TPCONT
PARAMETER (N_MAX_TPCONT =3)
INTEGER N_MAX_TPEL
PARAMETER (N_MAX_TPEL =6)
INTEGER N_MAX_TPND
PARAMETER (N_MAX_TPND =5)
INTEGER N_MAX_TPINT
PARAMETER (N_MAX_TPINT =3)
C
INTEGER N_MAX_CODBC
PARAMETER (N_MAX_CODBC =3)
C *********
C POTENCIAL
C *********
INTEGER N_MAX_CODBCPOT
PARAMETER (N_MAX_CODBCPOT =3)
C
C FICHERO ENTRADA
INTEGER F_E
PARAMETER (F_E =90)
C FICHERO SALIDA
INTEGER F_S
PARAMETER (F_S =91)
C FICHERO BASE DE DATOS
INTEGER F_D
PARAMETER (F_D =92)
C FICHERO ITERACIONES DE CONTACTO
INTEGER F_C
PARAMETER (F_C =93)
C FICHERO RESULTADO ITERACIONES INTERMEDIAS
INTEGER F_I
PARAMETER (F_I =94)
C FICHERO RESULTADO PUNTOS INTERNOS
INTEGER F_P
PARAMETER (F_P =96)
C FICHERO ERRORES
INTEGER F_W
PARAMETER (F_W =95)
C FICHERO iteraciones termicas
INTEGER F_H
PARAMETER (F_H =97)
C FICHERO MATRIZ TERMICA
INTEGER F_L
PARAMETER (F_L =98)
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
