linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PSI UPDATE

Browse Source 
r1724 | ffr | 2007-03-27 07:56:13 +1000 (Tue, 27 Mar 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-03-27 07:56:13 +10:00
committed by Douglas Clowes
parent cd0de991b4
commit 6921d0426c
47 changed files with 569 additions and 648 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
napi5.c
View File

@@ -589,7 +589,7 @@ static void ignoreError(void *data, char *text){
hsize_t chunkdims[H5S_MAX_RANK];
hsize_t mydim[H5S_MAX_RANK], mydim1[H5S_MAX_RANK];
hsize_t size[2];
hsize_t maxdims[1] = {H5S_UNLIMITED};
hsize_t maxdims[H5S_MAX_RANK];
pFile = NXI5assert (fid);
@@ -651,6 +651,8 @@ static void ignoreError(void *data, char *text){
NXIReportError (NXpData, pBuffer);
return NX_ERROR;
}
mydim[i] = dimensions[i];
maxdims[i] = dimensions[i];
}
if (datatype == NX_CHAR)
{
@@ -665,7 +667,8 @@ static void ignoreError(void *data, char *text){
} else {
if (dimensions[0] == NX_UNLIMITED)
{
mydim[0]=0;
mydim[0]=1;
maxdims[0] = H5S_UNLIMITED;
dataspace=H5Screate_simple(rank, mydim, maxdims);
} else {
for(i = 0; i < rank; i++)
@@ -721,8 +724,10 @@ static void ignoreError(void *data, char *text){
}
if (dimensions[0] == NX_UNLIMITED)
{
size[0] = 1;
size[1] = 1;
for(i = 0; i < rank; i++){
size[i] = dimensions[i];
}
size[0] = 1;
iNew = H5Dextend (pFile->iCurrentD, size);
if (iNew < 0) {
sprintf (pBuffer, "ERROR: cannot create Dataset %s, check arguments",