/[MITgcm]/MITgcm_contrib/high_res_cube/matlab-grid-generator/bin/xyzv.m
ViewVC logotype

Annotation of /MITgcm_contrib/high_res_cube/matlab-grid-generator/bin/xyzv.m

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Tue Nov 11 18:08:08 2003 UTC (23 years ago) by cnh
Branch point for: MAIN, initial
Initial revision

1 cnh 1.1 function [ijk] = xyzv(N,iii)
2     % Converts a vector index into an n-dimensional array index.
3     % eg. xyzv( size(a) , find(a < -1) )
4    
5     ijk=[];
6     for j=1:prod(size(iii)),
7    
8     ii=iii(j)-1;
9     ijkk=[];
10    
11     for k=1:prod(size(N)),
12     nn=N(k);
13     ij=rem( ii , nn );
14     ijkk=[ijkk ij];
15     ii=ii-ij;
16     ii=ii/nn;
17     end
18    
19     ijk=[ijk ijkk'];
20     end

  ViewVC Help
Powered by ViewVC 1.1.22