Home > Src > Elliptic_2d > Schwarz > liste2.m

liste2

PURPOSE

LISTE2 Similar to ~/Lelve_2/liste.m

SYNOPSIS

function [listaint,listadir]=liste2(ifro);

DESCRIPTION

 LISTE2 Similar to ~/Lelve_2/liste.m 
 
 called by stiffq1.m

CROSS-REFERENCE INFORMATION

This function calls:

This function is called by:

stiffq1 STIFFQ1 Constructs local stiffness Q1 matrices on extended elements for Schwarz

SOURCE CODE

0001 function [listaint,listadir]=liste2(ifro);
0002 % LISTE2 Similar to ~/Lelve_2/liste.m
0003 %
0004 % called by stiffq1.m
0005 
0006 %   Written by Paola Gervasio
0007 %   $Date: 2007/04/01$
0008 
0009 
0010 noe=length(ifro);
0011 nint=0;
0012 listaint=[];listadir=[];
0013 for i=1:noe
0014 if(ifro(i)~=1)
0015 nint=nint+1;
0016 listaint=[listaint;i];
0017 else
0018 listadir=[listadir;i];
0019 end
0020 end