core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ECC-1018: simplified section4 and reduced size of sample

This commit is contained in:
Shahram Najm 2019-12-02 17:53:39 +00:00
parent 12dbf226f1
commit 321d508f45
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
definitions/diag/section.4.def
View File

@ -13,7 +13,7 @@ unsigned[1] reserved1=0 : hidden;
flags[1] missingDataFlag 'grib1/1.table'; flags[1] missingDataFlag 'grib1/1.table';
unsigned[1] numberOfBytesPerInteger ; unsigned[1] numberOfBytesPerInteger=4;
unsigned[2] reserved=0 : hidden ; unsigned[2] reserved=0 : hidden ;
@ -22,7 +22,7 @@ alias numberOfChars=numberOfCharacters ;
unsigned[3] numberOfFloats ; unsigned[3] numberOfFloats ;
unsigned[3] numberOfIntegers ; unsigned[3] numberOfIntegers=0;
alias numberOfInts=numberOfIntegers ; alias numberOfInts=numberOfIntegers ;
unsigned[3] numberOfLogicals ; unsigned[3] numberOfLogicals ;
@ -36,13 +36,18 @@ unsigned[1] reserved=0 : hidden;
ibmfloat floatValues[numberOfFloats]; ibmfloat floatValues[numberOfFloats];
alias floatVal=floatValues; alias floatVal=floatValues;
if(numberOfBytesPerInteger == 1) { signed[1] integerValues[numberOfIntegers]; } if(numberOfIntegers) {
if(numberOfBytesPerInteger == 2) { signed[2] integerValues[numberOfIntegers]; } signed[4] integerValues[numberOfIntegers];
if(numberOfBytesPerInteger == 3) { signed[3] integerValues[numberOfIntegers]; } }
if(numberOfBytesPerInteger == 4) { signed[4] integerValues[numberOfIntegers]; }
#if(numberOfBytesPerInteger == 1) { signed[1] integerValues[numberOfIntegers]; }
#if(numberOfBytesPerInteger == 2) { signed[2] integerValues[numberOfIntegers]; }
#if(numberOfBytesPerInteger == 3) { signed[3] integerValues[numberOfIntegers]; }
#if(numberOfBytesPerInteger == 4) { signed[4] integerValues[numberOfIntegers]; }
charValues list(numberOfCharacters) { charValues list(numberOfCharacters) {
ascii[1] char; ascii[1] char;
} }
alias charVal=charValues; alias charVal=charValues;
#section_padding padding;
section_padding padding;

BIN
samples/diag.tmpl
View File

Binary file not shown.