X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?a=blobdiff_plain;f=octave_packages%2Foctcdf-1.1.4%2Fncchar.m;fp=octave_packages%2Foctcdf-1.1.4%2Fncchar.m;h=469e2af01db85d995dab117bc8800fe24b8bb8b7;hb=c880e8788dfc484bf23ce13fa2787f2c6bca4863;hp=0000000000000000000000000000000000000000;hpb=1705066eceaaea976f010f669ce8e972f3734b05;p=CreaPhase.git

diff --git a/octave_packages/octcdf-1.1.4/ncchar.m b/octave_packages/octcdf-1.1.4/ncchar.m
new file mode 100644
index 0000000..469e2af
--- /dev/null
+++ b/octave_packages/octcdf-1.1.4/ncchar.m
@@ -0,0 +1,40 @@
+## Copyright (C) 2005 Alexander Barth
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2 of the License, or
+## (at your option) any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program; If not, see <http://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn {Loadable Function} {@var{ncvar} = } ncchar(@var{dimname_1},...,@var{dimname_N})
+## creates a netcdf variable of type ncchar. @var{dimname_1} is the name 
+## of the 1st netcdf dimension, and so on. The return value is a netcdf
+## variable object and must be affected to a netcdf file, before its content
+## can be defined.
+## 
+## Example:
+## @example
+## nc = netcdf('test.nc','w');
+## nc('lon') = 360;
+## nc('lat') = 180;
+## nc@{'var'@} =  ncchar('lon','lat');
+## @end example
+## A new 360 by 180 netcdf variable named 'var' of type char is 
+## created in file 'test.nc'.
+## @end deftypefn
+## @seealso{netcdf}
+
+## Author: Alexander Barth <barth.alexander@gmail.com>
+
+function c = ncchar(varargin);
+
+c = {'char' varargin{:}};
+