C Rutina 013POT
C-------------------------------------------------------------LEE_CDC_POT---
C     
C     SUBRUTINA LEE_CDC_POT
C     
C     LECTURA DE LA CONDICION DE CONTORNO EN LOS NODOS(POTENCIAL)
C
      SUBROUTINE LEE_CDC_POT(SOL,NOD)
C
      IMPLICIT NONE
      INCLUDE '_param.for'
      INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SOL : Nodos del solido
      RECORD /S_solido/ SOL
C NOD : Nodos
      RECORD /S_nodo/ NOD(N_MAX_NOD)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES LOCALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                      
C I,J : Contadores
      INTEGER I,J
C N : Nodo leido
      INTEGER N
C NNOD : Numero de nodos del solido
      INTEGER NNOD
C CNOD,CSOL,CNDTP : Contadores
      INTEGER CNOD,CSOL,CNDTP
C UNOD : Ultimo nodo del solido
      INTEGER UNOD
C A1,A2,D1,D2 : Variables auxiliares en la interpolacion
      REAL*8 a1,a2,d1,d2
C CBC,PBC,cj,ci : Codigos de la cdc actual y previa      
      INTEGER CBC(N_MAX_CODBCPOT),PBC(3),cj,ci
C VBC : Valores de las cdc leidas
      REAL*8 VBC(N_MAX_CDCNOD)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                      
      i=1
      cnod=SOL.NOD(i)                    
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     LECTURA DE LAS CDC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      csol=SOL.NUM       
      nnod=SOL.NNOD
      unod=SOL.NOD(NNOD)
C
C     Bucle que recorre los nodos del solido
C     
      DO WHILE (i.LE.nnod)
C                  
C	  Nodo actual
C
        cnod=SOL.NOD(i)
C
	  cndtp=NOD(cnod).TIP
C
C	  ***********************************************
C	  LECTURA DE LAS CONDICIONES DE CONTORNO DEL NODO
C	  ***********************************************
C
	  READ(F_E,*) N,(cbc(j) , j=1,N_MAX_CODBCPOT),
	@			      (VBC(j) , j=1,N_MAX_CDCNOD)
C
C	  Copiamos los valores en el nodo
C
	  DO j=1,N_MAX_CODBCPOT
		NOD(n).CBC(j)=cbc(j)
	  END DO 
C
	  DO j=1,N_MAX_CDCNOD
		NOD(n).VBC(j)=vbc(j)
	  END DO 
C
C	  *******
C	  ERRORES
C	  *******
C
        SELECT CASE(cbc(1))	    
	    CASE(66,67,68,76,77,78,86,87,88)
		  CONTINUE
	    CASE(44,64,74,84,46,47,48,55,65,75,85,56,57,58)
		  CONTINUE
		CASE DEFAULT
            WRITE(F_W,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
            WRITE  (*,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
            STOP
	  END SELECT
C
        SELECT CASE(cbc(2))
	    CASE(0)
		  CONTINUE
	    CASE(1)
		  SELECT CASE(cbc(1))
			CASE(44,55,46,47,48,64,74,84,56,57,58,65,75,85)
			  CONTINUE
			CASE(66,77,88)
			  CONTINUE
			CASE DEFAULT
			  WRITE(F_W,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
			  WRITE  (*,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
			  STOP
		  END SELECT
	    CASE DEFAULT
            WRITE(F_W,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
            WRITE  (*,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
            STOP
	  END SELECT
C
C	  *****************************************************
C	  GENERACION DE LAS CONDICIONES DE CONTORNO INTERMEDIAS
C	  *****************************************************
C
        IF(N.EQ.cnod) THEN
C
C         No hay que generar condiciones intermedias
C
		i=i+1
C
        ELSE IF((N.GT.cnod).AND.(N.LE.(unod+1))) THEN
C
C         GENERACION DE CONDICIONES INTERMEDIAS
C
C		Condicion de contorno previa
C
          pbc(1)=NOD(SOL.NOD(i-1)).CBC(1)
		pbc(2)=NOD(SOL.NOD(i-1)).CBC(2)
C
C	MODIFICADO POR: Diógenes Morales Sierra      Fecha:11-09-05
C	OBJETO DE LA MODIFICACIÓN:
C		INTRODUCIR UN NUEVO ELEMENTO CBC(3) QUE PERMITA AL USUARIO 
C	IMPONER LA CONDICIÓN QUE SE DA EN LA ZONA DE CONTACTO A DESPEGARSE
C
		pbc(3)=NOD(SOL.NOD(i-1)).CBC(3)
C
C         Calculo los valores a interpolar
C
          SELECT CASE(pbc(2))
C
            CASE(0)
C
C		  NODO ANTES EN ESQUINA
C
			SELECT CASE(pbc(1))
			  CASE(44)
	            CONTINUE
			  CASE(64,74,84)
				CONTINUE
			  CASE(46,47,56,57,66,76,86,87)
				a1=NOD(SOL.NOD(i-1)).VBC(1)
			  CASE(48)
				a1=NOD(SOL.NOD(i-1)).VBC(1)
				a2=NOD(SOL.NOD(i-1)).VBC(2)
			  CASE(58)
				a1=NOD(SOL.NOD(i-1)).VBC(1)
				a2=NOD(SOL.NOD(i-1)).VBC(3)
			  CASE(55,65,67,75,77)
				a1=NOD(SOL.NOD(i-1)).VBC(2)
			  CASE(68,78)
				a1=NOD(SOL.NOD(i-1)).VBC(2)
				a2=NOD(SOL.NOD(i-1)).VBC(3)
			  CASE(85)
				a1=NOD(SOL.NOD(i-1)).VBC(3)
			  CASE(88)
				a1=NOD(SOL.NOD(i-1)).VBC(2)
				a2=NOD(SOL.NOD(i-1)).VBC(4)
			  CASE DEFAULT
				WRITE(F_W,01500) 2
				WRITE  (*,01500) 2
				STOP
			END SELECT          
C
C		  NODO ACTUAL PUEDE SER CONTINUO O EN ESQUINA(44 y 55 
C		  TAMBIEN pueden ser EN ESQUINA)
C
		    SELECT CASE (cbc(1))
	          CASE(44,46,47,48)
	            CONTINUE
			  CASE(55,64,65,66,67,68,74,75,77,78)
				d1=NOD(n).VBC(1)
			  CASE(56,57,58,76)            
				d1=NOD(n).VBC(2)
			  CASE(85,84)
				d1=NOD(n).VBC(1)
				d2=NOD(n).VBC(2)
			  CASE(86,87)
				d1=NOD(n).VBC(2)
				d2=NOD(n).VBC(3)
			  CASE(88)
				d1=NOD(n).VBC(1)
				d2=NOD(n).VBC(3)
			  CASE DEFAULT
				WRITE(F_W,01500) 1 
				WRITE  (*,01500) 1
				STOP 
			END SELECT
C
            CASE(1)
C
C		  NODO ANTES CONTINUO
C
		    SELECT CASE (pbc(1))
			  CASE(44)
	            CONTINUE
			  CASE(55,77,66)
                  a1=NOD(SOL.NOD(i-1)).VBC(1)
			  CASE(88)
                  a1=NOD(SOL.NOD(i-1)).VBC(1)
                  a2=NOD(SOL.NOD(i-1)).VBC(3)
			  CASE(64,74,84)
				CONTINUE
			  CASE(46,47,56,57)
				a1=NOD(SOL.NOD(i-1)).VBC(1)
			  CASE(48)
				a1=NOD(SOL.NOD(i-1)).VBC(1)
				a2=NOD(SOL.NOD(i-1)).VBC(2)
			  CASE(58)
				a1=NOD(SOL.NOD(i-1)).VBC(1)
				a2=NOD(SOL.NOD(i-1)).VBC(3)
			  CASE(65,75)
				a1=NOD(SOL.NOD(i-1)).VBC(2)
			  CASE(85)
				a1=NOD(SOL.NOD(i-1)).VBC(3)
			  CASE DEFAULT
				WRITE(F_W,01500) 3 
				WRITE  (*,01500) 3
				STOP 
			END SELECT
C
C		  NODO ACTUAL PUEDE SER CONTINUO O EN ESQUINA(44 y 55 
C		  TAMBIEN pueden ser EN ESQUINA)
C
		    SELECT CASE (cbc(1))
	          CASE(44,46,47,48)
	            CONTINUE
			  CASE(55,64,65,66,67,68,74,75,77,78)
				d1=NOD(n).VBC(1)
			  CASE(56,57,58,76)            
				d1=NOD(n).VBC(2)
			  CASE(85,84)
				d1=NOD(n).VBC(1)
				d2=NOD(n).VBC(2)
			  CASE(86,87)
				d1=NOD(n).VBC(2)
				d2=NOD(n).VBC(3)
			  CASE(88)
				d1=NOD(n).VBC(1)
				d2=NOD(n).VBC(3)
			  CASE DEFAULT
				WRITE(F_W,01500) 1 
				WRITE  (*,01500) 1
				STOP 
			END SELECT
C
		  CASE DEFAULT
			WRITE(F_W,01500) 5
			WRITE  (*,01500) 5
			STOP 
		END SELECT
C
		d1=(d1-a1)/(n-cnod+1)
		d2=(d2-a2)/(n-cnod+1)      
C
          DO WHILE(cnod.lt.n)
            SELECT CASE(cbc(1))
              CASE(44,46,47,48)
                SELECT CASE(pbc(1))
                  CASE(44,64,74,84)
                    NOD(cnod).CBC(1)=44
                    NOD(cnod).CBC(2)=1
				  NOD(CNOD).CBC(3)=PBC(3)
                  CASE DEFAULT
                    WRITE(F_W,01502) n,cbc(1),pbc(1)
                    WRITE  (*,01502) n,cbc(1),pbc(1)
                    STOP
                END SELECT
              CASE(55,56,57,58)
                SELECT CASE(pbc(1))
                  CASE(55,65,75,85)
                    NOD(cnod).CBC(1)=55
                    NOD(cnod).CBC(2)=1
				  NOD(CNOD).CBC(3)=PBC(3)
				  NOD(cnod).VBC(1)=a1+d1
				  NOD(cnod).VBC(2)=a1+d1
	              a1=NOD(cnod).VBC(1)
                  CASE DEFAULT
                    WRITE(F_W,01502) n,cbc(1),pbc(1)
                    WRITE  (*,01502) n,cbc(1),pbc(1)
                    STOP
                END SELECT
              CASE(64,65,66,67,68)
                SELECT CASE(pbc(1))
                  CASE(46,56,66,76,86)
                    NOD(cnod).CBC(1)=66
                    NOD(cnod).CBC(2)=1
				  NOD(CNOD).CBC(3)=PBC(3)
				  NOD(cnod).VBC(1)=a1+d1
	              a1=NOD(cnod).VBC(1)
                  CASE DEFAULT
                    WRITE(F_W,01502) n,cbc(1),pbc(1)
                    WRITE  (*,01502) n,cbc(1),pbc(1)
                    STOP
                END SELECT
              CASE(74,75,76,77,78)
                SELECT CASE(pbc(1))
                  CASE(47,57,67,77,87)
                    NOD(cnod).CBC(1)=77
                    NOD(cnod).CBC(2)=1
				  NOD(CNOD).CBC(3)=PBC(3)
				  NOD(cnod).VBC(1)=a1+d1
				  NOD(cnod).VBC(2)=a1+d1
	              a1=NOD(cnod).VBC(1)
                  CASE DEFAULT
                    WRITE(F_W,01502) n,cbc(1),pbc(1)
                    WRITE  (*,01502) n,cbc(1),pbc(1)
                    STOP
                END SELECT
               CASE(84,85,86,87,88)
                SELECT CASE(pbc(1))
                  CASE(48,58,68,78,88)
                    NOD(cnod).CBC(1)=88
                    NOD(cnod).CBC(2)=1
				  NOD(CNOD).CBC(3)=PBC(3)
				  NOD(cnod).VBC(1)=a1+d1
                    NOD(cnod).VBC(2)=a1+d1
				  NOD(cnod).VBC(3)=a2+d2
                    NOD(cnod).VBC(4)=a2+d2
	              a1=NOD(cnod).VBC(1)
				  a2=NOD(cnod).VBC(3)
                  CASE DEFAULT
                    WRITE(F_W,01502) n,cbc(1),pbc(1)
                    WRITE  (*,01502) n,cbc(1),pbc(1)
                    STOP
                END SELECT
             CASE DEFAULT
                WRITE(F_W,01500) 6
                WRITE  (*,01500) 6
                STOP
            END SELECT 
            i=i+1             
            cnod=SOL.NOD(i)
		  IF(cnod.EQ.0)THEN
              cnod=n
		  END IF 
          END DO
          i=i+1             
        ELSE
          WRITE(F_W,01503) n,csol
          WRITE  (*,01503) n,csol
          STOP
        END IF
C
C     Fin bucle que recorre los nodos del solido
C     
      END DO
C
C     Comprobación de compatibilidad de cdc consecutivas
C                                                           
      pbc(1)=NOD(SOL.NOD(1)).CBC(1)
      DO i = 2 , NNOD
        cnod=SOL.NOD(i)
C
	  cj=NOD(cnod).CBC(1)/10
	  ci=pbc(1)-(pbc(1)/10)*10
C
        SELECT CASE(pbc(1))	    
	    CASE(46,47,48,56,57,58,64,65,66,67,68,74,75,76,77,78,84,85,
	@				86,87,88)
		  IF(ci.NE.cj)THEN
			WRITE(F_W,01502) cnod,NOD(cnod).CBC(1),pbc(1)
			WRITE  (*,01502) cnod,NOD(cnod).CBC(1),pbc(1)
			STOP
		  END IF
	    CASE(44)
		  SELECT CASE(NOD(cnod).CBC(1))	    
			CASE(44,46,47,48)
			  IF(ci.NE.cj)THEN
				WRITE(F_W,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				WRITE  (*,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				STOP
			  END IF
			CASE(55)
			  IF(ci.NE.cj-1)THEN
				WRITE(F_W,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				WRITE  (*,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				STOP
			  END IF
			CASE DEFAULT
			  WRITE(F_W,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
			  WRITE  (*,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
			  STOP
		  END SELECT
	    CASE(55)
		  SELECT CASE(NOD(cnod).CBC(1))	    
			CASE(55,56,57,58)
			  IF(ci.NE.cj)THEN
				WRITE(F_W,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				WRITE  (*,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				STOP
			  END IF
			CASE(44)
			  IF(ci.NE.cj+1)THEN
				WRITE(F_W,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				WRITE  (*,01502) cnod,NOD(cnod).CBC(1),pbc(1)
				STOP
			  END IF
			CASE DEFAULT
			  WRITE(F_W,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
			  WRITE  (*,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
			  STOP
		  END SELECT
		CASE DEFAULT
            WRITE(F_W,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
            WRITE  (*,01501) n,(cbc(j),j=1,N_MAX_CODBCPOT)
            STOP
	  END SELECT
C
	  pbc(1)=NOD(cnod).CBC(1)
C
      END DO
C
C     Comprobación CdC 77 para APOYO
C                                                           
	IF((SOL.APOPOT.APO).EQ.4)THEN
        DO i = 1 , NNOD
		cnod=SOL.NOD(i)
		SELECT CASE (NOD(cnod).CBC(1))
		  CASE(77,74,75,47,57,44,55)
			CONTINUE
		  CASE DEFAULT
              WRITE(F_W,01504) cnod,NOD(cnod).CBC(1)
              WRITE  (*,01504) cnod,NOD(cnod).CBC(1)
              STOP
		END SELECT
	  END DO
	END IF
C
      RETURN
C      
C     FORMATOS DE ESCRITURA. SUBRUTINA ENTRADA
C
01500 FORMAT(/,2x,'ERROR 01500 - LEE_CDC_POT - Error Programa (#',i1
	@			,'#)')
01501 FORMAT(/,2x,'ERROR 01501 - LEE_CDC_POT',/,'  Nodo: ',i4,
     @        '. Cond. de contorno (',2(i2,','),i2,
     @		') fuera de rango permitido.')
01502 FORMAT(/,2x,'ERROR 01502 - LEE_CDC_POT',/,'  Nodo ',i4,',',
     @         ' cdc. ',i2,' incompatible con cdc. previa (',i2,').')
01503 FORMAT(/,2x,'ERROR 01503 - LEE_CDC_POT',/,'  Nodo ',i4,
	@			' del solido '
     @         ,i2,' fuera del rango perimitido.')
01504 FORMAT(/,2x,'ERROR 01504 - LEE_CDC_POT',/,'  Nodo ',i4,',',
     @         ' cdc. ',i2,' incompatible con apoyo termico.')
C
      END
c<!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%252F01-5-Lcdc_POT.for%252F">01-5-Lcdc_POT.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>