C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC                                     
C                                                                     C
C                    ESTRUCTURAS DEL PROGRAMA                         C
C                                                                     C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     /S_tipprobl/ - Tipo de problema
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      STRUCTURE /S_tipprobl/          
C       TIP : Codigo del tipo
        INTEGER TIP
C       TXT : Tipo de problema     
        CHARACTER*40 TXT
C       DIM : Dimesión del sist. de referencia
        INTEGER DIM
C       DTXT : Nombre de las coordenadas
        CHARACTER*2 DTXT(MAX_DIM)
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_tipform/ - Tipo de formulacion
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_tipform/          
C       TIP : Codigo del tipo
        INTEGER TIP
C       TXT : Tipo de formulacion     
        CHARACTER*100 TXT
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_integr/ - Tipo de integracion
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_intgr/          
C       TIP : Codigo del tipo
        INTEGER TIP
C       TXT : Tipo de integracion     
        CHARACTER*100 TXT
C       NPG : Numero de puntos de Gauss
        INTEGER NPG  
C       S() : Coordenadas de los puntos de integracion (-1<X()<1)
        REAL*8 S(N_MAX_NPG)
C       W() : Funciones de peso        
        REAL*8 W(N_MAX_NPG)
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_zcto/ - Zona de contacto
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_zncto/
C       NUM : Numero de la zona de contacto
        INTEGER NUM
C       TIP : Codigo del tipo
C         = 1 : Contorno ficticio. Nodos "esclavos".
C         = 2 : Contorno de contacto.
        INTEGER TIP
C       CNT : Contornos en contacto
        INTEGER CNT(2)
C	  MU : Coeficiente de rozamiento
	  REAL*8 MU
C       ELTA(),ELTB() : Elementos de los cont. A y B corresponidentes 
C                       a los nodos de B y A respetivamente
	  INTEGER NDA_ELB(N_MAX_NOD),NDB_ELA(N_MAX_NOD)
	  INTEGER NDA_iELB(N_MAX_NOD),NDB_iELA(N_MAX_NOD)
C       POSA(),POSB() : Posicion (coor. local) de las proyecciones de los
C                     nodos de A y B sobre los elementos correspondientes
	  REAL*8 POSA(N_MAX_NOD),POSB(N_MAX_NOD)
C       DISA() : Distancia de los nodos de A al contorno B
	  REAL*8 DISA(N_MAX_NOD)
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_tipmat/ - Tipo de material
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_tipmat/          
C       TIP : Numero del tipo de material
        INTEGER TIP
C       TXT : Tipo de material     
        CHARACTER*100 TXT
C       NPRP : Numero de constantes del material
        INTEGER NPRP
C       PTXT() : Nombre de las constantes del material
        CHARACTER*40 PTXT(N_MAX_PRPMAT)
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_tipcont/ - Tipo de contorno
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_tipcont/          
C       TIP : Codigo del tipo
        INTEGER TIP
C       TXT : Tipo de contorno     
        CHARACTER*100 TXT
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_tipelt/ - Tipo de elemento
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_tipelt/
C       TIP : Tipo de elemento
        INTEGER TIP                          
C       TXT : Nombre del tipo
        CHARACTER *100 TXT
C       NNG : Numero de nodos geométricos
        INTEGER NNG
C       NNI : Numero de nodos de interpolación     
        INTEGER NNI
C       TNI() : Tipo de los nodos de interpolación
        INTEGER TNI(N_MAX_NIELT)
C       NVE : Numero de variables del elemento
        INTEGER NVE
C       VTXT : Nombre de las variables del elemento
        CHARACTER*5 VTXT(N_MAX_VARELT)
xC       C_Rij : Contador de matrices de giro elemento-nodo
x        INTEGER C_Rij(N_MAX_NIELT)
C       Rij : Matrices de giro elemento-nodo
        REAL*8 Rij(N_MAX_NIELT,N_MAX_VARELT,N_MAX_INCNOD)
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_tipnod/ - Tipo de nodo
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_tipnod/
C       TIP : Tipo de nodo
        INTEGER TIP
C       TXT : Nombre del tipo
        CHARACTER*100 TXT
C       DIM : Numero de coordenadas
        INTEGER DIM
C       DTXT : Nombre de las coordenadas
        CHARACTER*3 DTXT(MAX_DIM)
C       NVAR : Numero de variables (globales y locales)
        INTEGER NVAR
C       VTXT : Nombre de las variables (globales y locales)
        CHARACTER*5 VTXT(N_MAX_VARNOD)
C       NINC : Numero de variables globales
        INTEGER NINC
C       VTXT : Nombre de las variables globales
        CHARACTER*5 ITXT(N_MAX_INCNOD)
xC       NCODBC : Numero de codigos de CdC
x        INTEGER NCODBC
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_tipint/ - Tipo de p. interno
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_tipint/
C       TIP : Tipo de punto
        INTEGER TIP
C       TXT : Nombre del tipo
        CHARACTER*100 TXT
C       DIM : Numero de coordenadas
        INTEGER DIM
C       DTXT : Nombre de las coordenadas
        CHARACTER*3 DTXT(MAX_DIM)
C       NVAR : Numero de variables 
        INTEGER NVAR
C       VTXT : Nombre de las variables 
        CHARACTER*5 VTXT(N_MAX_INCPNT)
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_restermPOT/ - Resistencias térmicas del nodo (PROBLEMA POTENCIAL 2D)
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_restermPOT/
C       TXT : Resistencia    
        CHARACTER*100 TXT
C       R : Valor  de la resistencia.
        REAL*8 R 
C   
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_problema/ - Variables del Problema
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_problema/ 
C       NAME : Nombre del problema
        CHARACTER*40 NAME
C       TITULO : Titulo del problema
        CHARACTER*300 TITULO
C       NETAP : Numero de etapas de carga
        INTEGER NETAP
C       TP : Tipo de problema
        RECORD /S_tipprobl/ TP
C       TF : Tipo de formulacion
        RECORD /S_tipform/ TF  
C       INT : Tipo de integracion
        RECORD /S_intgr/ TI
C       NSOL : Numero de solidos
        INTEGER NSOL
C       MATP : Tipo de material
        RECORD /S_tipmat/ MATP(N_MAX_TPMT)
C       NCONTP : Numero de tipos de contorno
        INTEGER NCONTP
C       CONTP : Tipos de contorno
        RECORD /S_tipcont/ CONTP
C       NELTP : Numero de tipos de elemento
        INTEGER NELTP
C       ELTP : Tipos de elemento
        RECORD /S_tipelt/ ELTP(N_MAX_TPEL)
C       NNDTP : Numero de tipos de nodo
        INTEGER NNDTP
C       NDTP : Tipos de nodo
        RECORD /S_tipnod/ NDTP(N_MAX_TPND)
C       NPINTP : Numero de tipos de puntos internos
        INTEGER NPINTP
C       PINTP : Tipos de puntos internos
        RECORD /S_tipint/ PINTP(N_MAX_TPINT)
C       NZCTO : Numero de zonas de contacto
        INTEGER NZCTO
C       NINC : Numero de incognitas
        INTEGER NINC
C       NeBIE : Numero de BIE del problema
        INTEGER NeBIE
C       NeINT : Numero de ecuaciones de interfase del problema
        INTEGER NeINT
C       NeCTO : Numero de ecuaciones de contacto del problema
        INTEGER NeCTO
C       NMSR : Numero de ecuaciones de apoyo del problema elastico
        INTEGER NMSR
C       NAP_POT : Numero de ecuaciones de apoyo del problema de pot
        INTEGER NAP_POT
C	  ITR : Iteraciones de solucion
	  INTEGER ITR
C       NBIE : Numero de BIE del problema TERMICO
        INTEGER NBIE
C       NCE : Numero de ecuaciones de contacto del problema TERMICO
        INTEGER NCE
C       NAP : Numero de ecuaciones de apoyo del problema TERMICO
        INTEGER NAP
C
      END STRUCTURE
C
C
C
!APOYO
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_apoyo/ - Condiciones de apoyo (mov. como solido rigido )
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_apoyo/ 
C       NOD : Nodo donde se colca el apoyo puntual
        INTEGER NOD
C       APO : Dirección en que se impide el desplzamiento en el apoyo
        REAL*8 DIR(2)
C	  TIP : Tipo de movimiento que se impide
C			TIP=1 : Translacion
C			TIP=2 : Rotacion
	  INTEGER TIP
C	  MSR : Datos que definen el movimiento que se impide
C			TIP=1 : Translacion. MSR: Dirección.
C			TIP=2 : Rotacion. MSR: Centro.
	  REAL*8 MSR(2)
C
      END STRUCTURE
C
!APOYO
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C 
C     /S_apoyoPOT/ - Condiciones de apoyo (problema de Neumann) (PROBLEMA POTENCIAL 2D)
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C 
C
      STRUCTURE /S_apoyoPOT/ 
C       NODO : Nodo de Apoyo
        INTEGER NOD
C       TEMP : Temperatura
        REAL*8 TEMP
C       APO : Codigo de apoyo (debe ser =4 si placa apoyada)
        REAL*8 APO
C       NAP : Numero de apoyos térmicos(SIEMPRE ES =1)
        INTEGER NAP
C       NINC : Numero de incognita asociada a la variable W
        INTEGER NINC
C       W : Variable adicional que representa la integral del flujo 
C           en todo el contorno y que se introduce en el plantea-
C           miento del apoyo para imponer la T en un nodo. 
        REAL*8 W
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_solido/ - Variables del solido
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_solido/          
C       NUM : Numero del solido
        INTEGER NUM               
xxC       MAT : Material
xx        INTEGER MAT
C       NAPO : Número de apoyos que impiden MSR
        INTEGER NAPO
C       APO : Condiciones de apoyo (mov. sol. rig.)
        RECORD /S_apoyo/ APO(3)
C       APOPOT : Condiciones de apoyo termico(problema de Neumann PROBLEMA POTENCIAL 2D)
        RECORD /S_apoyoPOT/ APOPOT
C       NNOD : Numero de nodos
        INTEGER NNOD
C       NOD() : Nodos del solido
        INTEGER NOD(N_MAX_NODSOL)
C       NCONT : Numero de contornos del solido
        INTEGER NCNT
C       CONT() : Contornos del solido
        INTEGER CNT(N_MAX_CNT)               
C       NPINT : Numero de puntos internos del solido
        INTEGER NPINT
C       PINT() : Puntos internos del solido
        INTEGER PINT(N_MAX_PINTSOL)
C       NBIE : Numero de BIES del solido
        INTEGER NBIE
C       NPC : Numero de puntos de colocacion
        INTEGER NPC
C       PC() : Puntos de colocacion
        INTEGER PC(N_MAX_PCSOL)
C       TEMP : Temperatura
        REAL*8 TEMP
C       D_TEMP : Tensión correspondiente a la temperatura
        REAL*8 D_TEMP
C
      END STRUCTURE
C  
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_orto/ - Variables del material ortotropo
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_orto/
C       GAMMA() : constante c (solucion fundamental)
      REAL*8 GAMMA
C     BMAS() : constante b (solucion fundamental)
      REAL*8 BMAS
C     B11,B12,B22,B66 : coeficientes de la ley de comportamiento
      REAL*8 B11,B12,B22,B66
C     ACU : constante a^2 (solucion fundamental)
      REAL*8 ACU
C     K11,K22,K12,C11,C22 : constantes (solucion fundamental)
      REAL*8 K11,K22,K12,C11,C22
C     A1,A2,B1,B2,C1,C2,D1,D2 : constantes (solucion fundamental)
      REAL*8 A1,A2,B1,B2,C1,C2,D1,D2
C
      REAL*8 AMAS,AMEN
      complex*16 P(2,2),Q(2,2),CUK(2)
      complex*16 BMEN,MU1,MU2
      complex*16 QP(2,2,2),PP(2,2,2)
      complex*16 QQQ(3,2,2),QQP(3,2,2)
      complex*16 U1(2,2),U2(2,2),T1(2,2),T2(2,2)
      complex*16 DD1(3,2),DD2(3,2)
      complex*16 SS1(3,2),SS2(3,2)
C
      END STRUCTURE
C
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_anis/ - Variables del material anisótropo
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_anis/                                         !000705-MT
C     GAMMA() : constante c (solucion fundamental)               !000705-MT
C     REAL*8 GAMMA                                               !000705-MT
C     BMAS() : constante b (solucion fundamental)                !000705-MT
C     REAL*8 BMAS                                                !000705-MT
C     B11,B12,B22,B66 : coeficientes de la ley de comportamiento !000705-MT
      REAL*8 B11,B12,B22,B16,B26,B66                             !000705-MT
C     ACU : constante a^2 (solucion fundamental)                 !000705-MT 
C     REAL*8 ACU                                                 !000705-MT 
C     K11,K22,K12,C11,C22 : constantes (solucion fundamental)    !000705-MT
C     REAL*8 K11,K22,K12,C11,C22                                 !000705-MT
C     A1,A2,B1,B2,C1,C2,D1,D2 : constantes (solucion fundamental)!000705-MT 
      REAL*8 A1,A2,B1,B2,C1,C2,D1,D2                             !000705-MT 
C     REAL*8 AMAS,AMEN                                           !000705-MT 
      complex*16 P(2,2),Q(2,2),CUK(2)                            !000705-MT 
      complex*16 MU1,MU2                                         !000705-MT 
      complex*16 QP(2,2,2),PP(2,2,2)                             !000705-MT 
      complex*16 QQQ(3,2,2),QQP(3,2,2)                           !000705-MT 
C     complex*16 U1(2,2),U2(2,2),T1(2,2),T2(2,2)                 !000705-MT 
C     complex*16 DD1(3,2),DD2(3,2)                               !000705-MT 
C     complex*16 SS1(3,2),SS2(3,2)                               !000705-MT 
C                                                                !000705-MT 
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_anstpoPOT/ - Variables del material ANISOTROPO POTENCIAL 2D
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_anstpoPOT/
C       K1 : Primer autovalor de la matriz de conductividades         
        REAL*8 K1                                                     
C       K2 : Segundo autovalor de la matriz de conductividades        
        REAL*8 K2                                                       
C       ALFA : Angulo de los autovectores de la matriz de conductividades        
        REAL*8 ALFA                                                  
C       L : Matriz de la aplicación lineal de cambio de base de dominio ANISOTROPO            
        REAL*8 L(MAX_DIM,MAX_DIM)                                     
C       DETL : Determinante de la matriz L       
        REAL*8 DETL                                                  
C       DETK : Determinante de la matriz K       
        REAL*8 DETK                                                  
C
      END STRUCTURE
C                                                                     
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_anstpoFGMPOT/ - Variables del material ANISOTROPO FGM POTENCIAL 2D
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C
      STRUCTURE /S_anstpoFGMPOT/
XC       ALFA1 : No homogeneidad segun x          
X        COMPLEX*16 ALFA1                                                     
XC       ALFA2 : No homogeneidad segun y          
X        COMPLEX*16 ALFA2                                                       
C       GAMMA : Raiz(Kij*ALFAi*ALFAj)         
        REAL*8 GAMMA                                                    
C
      END STRUCTURE
C                                                                     
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C 
C     /S_material/ - Variables del material
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
      STRUCTURE /S_material/                                      !000225-1MT
C       TIP : Tipo de material                                    !000225-1MT
        INTEGER TIP                                               !000225-1MT
C       PRP : Constantes del material                             !000225-1MT
        REAL*8 PRP(N_MAX_PRPMAT)                                  !000225-1MT
C       ORTO:Constantes del material elástico complejas           !000225-1MT
      RECORD /S_orto/ MO                                          !000225-1MT
C       ANIS:Constantes del material anisótropo complejas         !000705-1MT
      RECORD /S_anis/ MA                                          !000705-1MT
C       MAPOT:Constantes del material ANISOTROPO POTENCIAL 2D             
      RECORD /S_anstpoPOT/ MAPOT                                          
C       FGMPOT:Constantes del material ANISOTROPO POTENCIAL 2D            
      RECORD /S_anstpoFGMPOT/ FGMPOT                                          
C       E : Constante de escalado del sistema de ecuaciones       !000225-1MT
        REAL*8 E                                                  !000225-1MT
C       D : Constante de escalado del sistema de ecuaciones       !000225-1MT
        REAL*8 D                                                  !000225-1MT  
C       K : Conductividad termica del material POTENCIAL 2D       !000225-1MT
        REAL*8 K                                                  !000225-1MT  
C                                                                 !000225-1MT 
      END STRUCTURE                                               !000225-1MT
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_contorno/ - Variables del contorno
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C        
      STRUCTURE /S_contorno/          
C       NUM : Numero del contorno
        INTEGER NUM
C       TIP : Tipo de contorno
        INTEGER TIP               
C       NELT : Numero de elementos
        INTEGER NELT
C       ELT() : Elementos del contorno
        INTEGER ELT(N_MAX_ELTCNT)
C       SOL : Solido al que pertenece
        INTEGER SOL        
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_elemento/ - Variables del elemento
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_elemento/
C       NUM : Numero del elemento
        INTEGER NUM               
C       TIP : Tipo del elemento
        INTEGER TIP
C       NG() : Nodos geométricos
        INTEGER NG(N_MAX_NGELT)
C       NI() : Nodos de interpolación
        INTEGER NI(N_MAX_NIELT)
C       NGLOC() : Coordenada local del nodo (G) (-1.LE.NGLOC.LE.1)
        REAL*8 NGLOC(N_MAX_NGELT)
C       NILOC() : Coordenada local del nodo (I) (-1.LE.NILOC.LE.1)
        REAL*8 NILOC(N_MAX_NIELT)
C       CNT : Contorno al que pertenece
        INTEGER CNT
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_nodo/ - Variables del nodo
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_nodo/
C       NUM : Numero del nodo
        INTEGER NUM               
C       TIP : Tipo del nodo
        INTEGER TIP
C       XYZ() : Coordenadas del nodo 
        REAL*8  XYZ(MAX_DIM)
C       XYZo() : Coordenadas originales del nodo 
        REAL*8  XYZo(MAX_DIM)
C       XYZt() : Coordenadas transformadas del nodo -- POTENCIAL 2D
        REAL*8  XYZt(MAX_DIM)
C       CBC : Codigo de la cond. de cont. en el nodo
        INTEGER CBC(N_MAX_CODBC)
C       NBC : Numero de condiciones de contorno
        INTEGER NBC
C       BC() : Variables que son cdc
        INTEGER BC(N_MAX_CDCNOD)
C       VBC() : Valores de la cdc
        REAL*8  VBC(N_MAX_CDCNOD)
C       NINC : Numero de incognitas del nodo
        INTEGER NINC
C       VAR() : Incognitas locales
        INTEGER VAR(N_MAX_INCNOD)
C       INC() : Incognitas globales
        INTEGER INC(N_MAX_INCNOD)
C       Gij() : Matriz de las cdc
        REAL*8 Gij(N_MAX_INCNOD,N_MAX_INCNOD)
C       D_SOLU : Valor de las variables para un incremento de carga.
        REAL*8 D_SOLU(N_MAX_INCNOD)
C       SOLU : Valor acumulado de las variables.
        REAL*8 SOLU(N_MAX_INCNOD)
C       RT : resistencia termica -- POTENCIAL 2D 
        RECORD /S_restermPOT/ RT(N_MAX_restermPOT)
C      
      END STRUCTURE
C                                        
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_matriz_Eij/ matriz_Eij
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_matriz_Eij/
C       EIJ(,) : Matriz de constantes de integracion
        REAL*8 Eij(MAX_DIM,N_MAX_VARELT)
fff        REAL*8 Aij(2,4)
fff        REAL*8 Bij(2,4)
C
      END STRUCTURE
C                     
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_matriz_EijTERM/ matriz_EijT
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_matriz_EijTERM/
C       EIJT(,) : Matriz de constantes de integracion
        REAL*8 EijT(MAX_DIM,N_MAX_VARELT)
C        REAL*8 Cij(2,2)
C        REAL*8 Dij(2,2)
C
      END STRUCTURE
C                              
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_coloc/ Variables del P.C.
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_coloc/
C       NUM : Numero del punto de colocacion
        INTEGER NUM               
C       TIP : Tipo de punto de colocacion
C           : 1 - Punto de colcacion en el nodo     (2D)
C           : 2 - Punto de colcacion en el elemento (2D)
C           : 3 - Punto de colcacion en el exterior (2D)
        INTEGER TIP
C       XYZ()    : Coordenadas del punto de coloc 
        REAL*8  XYZ(MAX_DIM)
C       XYZt()    : Coordenadas transformadas del punto de coloc -- POTENCIAL 2D 
        REAL*8  XYZt(MAX_DIM)
C       CMP      : Componentes de la BIE
C            - Todas:    CMP=1
C            - Comp '1': CMP=2
C            - Comp '2': CMP=3
        INTEGER CMP
C       CIJ(,) : Coeficientes del termino libre
        REAL*8  Cij(MAX_DIM,MAX_DIM)
C       EIJ(,) : Matrices de constantes de integracion
        RECORD /S_matriz_Eij/ Eij(N_MAX_ELT)
C       EIJ(,) : Matrices de constantes de integracion
        RECORD /S_matriz_EijTERM/ EijT(N_MAX_ELT)
C       ELT : Elemento al que pertenece (si el p.c. es exterior ELT=-1)
        INTEGER ELT
C       LOC : Coordenada local del p.c. (-1,1)
        REAL*8 LOC
C
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_pntint/ - Variables del punto interno
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_pntint/                                     
C       NUM : Numero del punto interno
        INTEGER NUM               
C       TIP : Tipo de punto interno
        INTEGER TIP
C       XYZ()    : Coordenadas del punto interno 
        REAL*8  XYZ(MAX_DIM)
C       XYZt()    : Coordenadas transformadas del punto interno -- POTENCIAL 2D
        REAL*8  XYZt(MAX_DIM)
C       SOL : Valor de las variables del punto.
        REAL*8 SOLU(N_MAX_INCPNT)
C      
      END STRUCTURE
C
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_alfaTERM/ - Coeficientes de dilatacion termica
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_alfaTERM/									   
C       ALF()    : Coficientes de dilatacion termica 
        REAL*8  ALF(N_MAX_SOL)
C      
      END STRUCTURE
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_fresTERM/ - Funcion resistencia-tension
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_fresTERM/									   
C       KR : Numero del punto interno
        REAL*8 KR               
C       LR : Tipo de punto interno
        REAL*8 LR
C      
      END STRUCTURE
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C     /S_libTERM/ - Funcion nodo libre termoelastico
C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C C
C  
      STRUCTURE /S_libTERM/									   
C       NUM : Numero del punto interno
        INTEGER NUM               
C       VBC() : Condiciones del nodo libre
        REAL*8  VBC(2)
C      
      END STRUCTURE
CC<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es">
	<head>
            <title>e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.</title>

                <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta name="description" content="Buscador de proyectos ETSI" />
<meta name="author" content="Daniel Callejo"/>
<meta name="author" content="Federico L&oacute;pez"/>
<meta name="author" content="Juli&aacute;n P&eacute;rez"/>
<meta name="author" content="Jos&eacute; Mar&iacute;a Vidal Vidal"/>
<base href="/bibing/proyectos/" /><link rel="shortcut icon" href="./favicon.ico" />
<link rel="stylesheet" href="./publico/css/estructura.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/bootstrap.css" type="text/css" media="screen"/>
<link rel="stylesheet" href="./publico/css/enlaces-capas.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/pestanas.css" type="text/css"  /> 
<link rel="stylesheet" href="./publico/css/formularios.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/lightbox.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/autocompleter.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/resultados.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/milista.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/explorador.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/ultimos.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/contactar.css" type="text/css"  />
<!-- <link rel="stylesheet" href="./css/print.css" type="text/css" media="print" /> -->
<script src="./publico/javascript/jquery-1.9.1.min.js" type="text/javascript"></script>
<script src="./publico/javascript/bootstrap.js" type="text/javascript"></script>

<script src="./publico/javascript/mootools-1.2.4-core.js" type="text/javascript"></script>
<script src="./publico/javascript/mootools-1-1.2.4.2-more.js" type="text/javascript"></script>
<script src="./publico/javascript/targetbl.js" type="text/javascript"></script>
<script src="./publico/javascript/mensajes.js" type="text/javascript"></script>
<script src="./publico/javascript/form.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Observer.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.Request.js" type="text/javascript"></script>
<script src="./publico/javascript/domready.js" type="text/javascript"></script>

<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-8T1TSNC1QY"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-8T1TSNC1QY');
</script>



<script type="text/javascript">
function seleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=1
}
function deseleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=0
} 
</script>
	</head>
    <body style="min-width: 960px; background-color: #e2e2e2; height: 100%">	
		<a name="arriba"></a>
<div>
<div id="header">
    <table id="Tabla_01" height="105" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_01.jpg" width="3" height="105" alt="">
        </td>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_02.jpg" width="100" height="105" alt="">
        </td>
        <td width="100%" align="right"  style="min-width: 613px; background-repeat: no-repeat; background-position: top right; font-size: medium; font-weight: bold; color: white;">
            <table width="100%" height="105" border="0">
                <tr>
                    <td style=" vertical-align: top; width: 547px">
                        <!-- <a style="text-decoration: none" href="./"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a> -->
                        <a style="text-decoration: none" href="/bibing/proyectos/"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a>
                     </td>
                     <td  background="./publico/imagenes/cabecera/banner_new2_04.jpg" style="background-repeat: no-repeat; background-color: #c6d4e8;"><br><br><br>
                         &nbsp;
                        </td>
                    </tr>
             </table>
        </td>
    </tr>
    <tr style="border-top: 1px solid #ffffff;">
        <td colspan="3" id="menu_sup" style="font-size: small; text-align: right; background-color: #9c1f2f; vertical-align: bottom">
             
					<a href="/bibing/proyectos/" class="enlace " style=" color: #ffffff">Inicio&nbsp;&nbsp;|</a>
					<a href="/bibing/proyectos/acerca/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Acerca de&nbsp;&nbsp;|</a>
					
					<a href="/bibing/proyectos/contactar/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Contactar&nbsp;&nbsp;</a>
			 <!--       <a href="/bibing/proyectos/ayuda/" style=" color: #ffffff" class="enlace  ">&nbsp;&nbsp;Ayuda&nbsp;&nbsp;|</a> -->
					<!-- <form id="idioma" class=""  method="post" action="">
					<div class="inline" style="color: white">
					<input type="submit" class="tipo_letra " style=" color: #ffffff"name="idioma" value="Castellanossss" />&nbsp;&nbsp;
					</div>	
					</form> -->
			        </td>

    </tr>
    </table>
</div>
<br><br>
<div class="colmask rightmenu">
<div class="panel panel-default" style="margin:20px">
            <div class="panel-heading"><h4>AN�LISIS DEL PROBLEMA TERMOEL�STICO DE CONTACTO MEDIANTE EL MÉTODO DE LOS ELEMENTOS DE CONTORNO CON MALLAS CONFORMES Y NO CONFORMES</h4><h5 style="color:grey"><span class="glyphicon glyphicon-user""></span> : <b>MORALES SIERRA, DIÓGENES</b><br><span class="glyphicon glyphicon-book""></span>  :<b> Ingenier&iacute;a Industrial</b></h5></div><div class="panel-body"><div class="contenido_proyecto"><div class="titulo2_explorador">Contenido del proyecto:</div><div class="ruta"><a href="abreproy/4093">Directorio ra&iacute;z</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="abreproy/4093/direccion/RUTINAS%252F">RUTINAS</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="abreproy/4093/direccion/RUTINAS%252F_STRUCT.FOR%252F">_STRUCT.FOR</a></div><div class="listing"></div></div></div></div>
</div>
</div>

        
	</body>
 
 
<!-- Inicio Google Analytics -->
<!--
	<script type="text/javascript">
		var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
		document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
	</script>
	
	<script type="text/javascript">
		try {
		var pageTracker = _gat._getTracker("UA-7789620-1");
		pageTracker._trackPageview();
	} 
		catch(err) {}
	</script>
-->
<!-- Fin Google Analytics -->

</html>