rank.c
Go to the documentation of this file.
00001 #include "arith.h"
00002 
00003 int rank(n,p,s)
00004 int n,p;
00005 MATRIX s;
00006 {
00007     int i,full,rank,min0();
00008 
00009     full=min0(2,n,p);
00010     rank=0;
00011 
00012     for(i=0; i<full; i++){
00013         if(s[i][i]<NSPACE)
00014             break;
00015         else
00016             rank += 1;
00017     }
00018 
00019     return(rank);
00020 }
00021 


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Sep 3 2015 10:36:20