Update of /cvsroot/monetdb/MonetDB4/src/modules/mnetcdf/Tests
In directory
sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv4702/src/modules/mnetcdf/Tests
Added Files:
Tag: GDK-2
mnetcdf.milS
Removed Files:
Tag: GDK-2
mnetcdf.milM
Log Message:
propagated changes of Monday Sep 10 2007 - Tuesday Sep 18 2007
from the development trunk to the GDK-2 branch
--- NEW FILE: mnetcdf.milS ---
PROC test_mnetcdf() : void := {
var data,idx1,idx2,ncid,variables,vinfo,input;
data := new(void,int);
data.insert(nil,rand());
data.insert(nil,rand());
data.insert(nil,rand());
data.insert(nil,rand());
seqbase(data,[EMAIL PROTECTED]);
data := [flt](data);
idx1 := new(void,int);
idx1.insert(nil,0);
idx1.insert(nil,0);
idx1.insert(nil,1);
idx1.insert(nil,1);
seqbase(idx1,[EMAIL PROTECTED]);
idx2 := new(void,int);
idx2.insert(nil,0);
idx2.insert(nil,1);
idx2.insert(nil,0);
idx2.insert(nil,1);
seqbase(idx2,[EMAIL PROTECTED]);
print(data,idx1,idx2);
ncid := nc_create(TSTTRGDIR + "/testdata.nc");
nc_export(ncid,"TEST_DATA",data,idx1,idx2);
nc_export_fast(ncid,"TEST_DATA_fast",data,2,2);
nc_close(ncid);
ncid := nc_open(TSTTRGDIR + "/testdata.nc");
variables := nc_list(ncid);
print(variables);
vinfo := nc_describe(ncid,"TEST_DATA");
print(vinfo);
input := nc_import(ncid,"TEST_DATA");
print(input);
vinfo := nc_describe(ncid,"TEST_DATA_fast");
print(vinfo);
input := nc_import(ncid,"TEST_DATA_fast");
print(input);
nc_close(ncid);
}
test_mnetcdf();
quit();
--- mnetcdf.milM DELETED ---
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
