C 
C-------------------------------------------------------------ESC_SAij---
C     
C     SUBRUTINA ESC_SAij
C     
C     ESCRITURA DE LA SOLUCION EN EL FICHERO DE SALIDA(POTENCIAL)
C
      SUBROUTINE ESC_SAij(PRB,SOL,NOD,SAij,SFi)
C
      IMPLICIT NONE
      INCLUDE '_param.for'
      INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRB : Variables globales del problema
      RECORD /S_problema/ PRB
C SOL : Solidos del problema
      RECORD /S_solido/ SOL(N_MAX_SOL)
C NOD : Nodos del problema
      RECORD /S_nodo/ NOD(N_MAX_NOD)
C SFi() : Vector de incógnitas.
      REAL*8 SFi(N_MAX_INC)
C SAIJ(,) : Matriz del sistema.
      REAL*8 SAij(N_MAX_INC,N_MAX_INC)
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C M,N : Contadores
      INTEGER M,N,H,K
C
C
	K=0
		DO m=1,PRB.NSOL
		DO N=SOL(M).NOD(1),SOL(M).NOD(SOL(M).NNOD)
			DO H=1,NOD(N).NINC	
				K=K+1
				WRITE(F_L,*) K,' NODO ',N,' - VARIABLE '
	@					, PRB.NDTP.VTXT(NOD(N).VAR(H))
				
			END DO
		END DO
	END DO
	WRITE (F_L,*) 'TOTAL ',K,' VARIABLES'
C     Bucle que recorre las FILAS	DE SAij
C
        WRITE(F_L,*) 
        WRITE(F_L,*) '   ++++++++'
        WRITE(F_L,*) '     SAij '
        WRITE(F_L,*) '   ++++++++'
        WRITE(F_L,*)                                              
C     
        DO m = 1 , PRB.NAP+PRB.NBIE+PRB.NCE
          WRITE(F_L,15) m,(SAij(m,n),n=1 , PRB.NINC)
C
C     Fin del bucle que recorre las FILAS	DE SAij
C     
	  END DO
C
C     Bucle que recorre las FILAS	DE SXj
C
        WRITE(F_L,*) 
        WRITE(F_L,*) '   ++++++++'
        WRITE(F_L,*) '     SFi '
        WRITE(F_L,*) '   ++++++++'
        WRITE(F_L,*)                                              
C     
        DO m = 1 , PRB.NAP+PRB.NBIE+PRB.NCE
          WRITE(F_L,10) m,SFi(m)
C
C     Fin del bucle que recorre las FILAS	DE SXj
C     
	  END DO
C
C     Fin del bucle que recorre los solidos
C     

10    FORMAT(4x,i4,4x,e22.16)
15    FORMAT(4x,i4,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
	@	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16
     @	,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16,4x,e22.16)
C
C       FIN DE LA RUTINA 
C        
      RETURN  
C
C       FORMATOS DE ESCRITURA
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%252FescribeSAij_SFi.for%252F">escribeSAij_SFi.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>