windims
|
IN:
|
Window dimensions specifying the size of the slice to be written
|
source
|
IN:
|
Buffer for the slice
|
dims
|
IN:
|
Dimensions of the source array
|
intn rank; int SDSdims[2], sourcedims[2], windims[2]; float data[10][12]; /*code that builds the array source goes here */ ... SDSdims[0]=7; SDSdims[1]=12; sourcedims[0]=10; sourcedims[1]=12; DFSDsetdims(2, SDSdims); /*write out scientific dataset in slices */ DFSDstartslice(filename); windims[0]=2; windims[1]=12; /* {(1,1) to (2,12)} */ DFSDputslice(windims, &data[0][0], sourcedims); windims[0]=4; windims[1]=12; /* {(3,1) to (6,12)} */ DFSDputslice(windims, &data[2][0], sourcedims); windims[0]=1; windims[1]=4; /* {(7,1) to (7,4)} */ DFSDputslice(windims, &data[6][0], sourcedims); windims[0]=1; windims[1]=8; /* {(7,5) to (7,12)} */ DFSDputslice(windims, &data[6][4], sourcedims); windims[0]=3; windims[1]=12; /* {(8,1) to (10,12)} */ DFSDputslice(windims, &data[7][0], sourcedims); DFSDendslice();
FORTRAN
|
integer function dspslc(windims, source, dims)
|
|
integer windims(*), dims(*), source(*)
|