IceReducematrixfromgtof

PURPOSE ^

ICEREDUCEMATRIXFROMGTOF - reduce stiffness matrix from gset to fset

SYNOPSIS ^

function [Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn)

DESCRIPTION ^

ICEREDUCEMATRIXFROMGTOF - reduce stiffness matrix from gset to fset

   Usage:
      [Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn)

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function [Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn)
0002 %ICEREDUCEMATRIXFROMGTOF - reduce stiffness matrix from gset to fset
0003 %
0004 %   Usage:
0005 %      [Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn)
0006 
0007 global gridset
0008 
0009 %Reduce matrix from g-size to n-size
0010 Knn= IceReducematrix( Kgg, Gmn, gridset.pv_m, gridset.pv_n, gridset.msize, 2 );
0011 
0012 %Reduce matrix from n-size to f-size
0013 
0014 if  gridset.ssize>0  
0015     Kff= Knn(gridset.pv_f, gridset.pv_f);
0016     Kfs= Knn(gridset.pv_f,gridset.pv_s);
0017 else
0018     Kff= Knn;
0019     Kfs=[];
0020 end

Generated on Sun 29-Mar-2009 20:22:55 by m2html © 2003