mirror of https://github.com/ecmwf/eccodes.git
30 lines
814 B
Modula-2
30 lines
814 B
Modula-2
# (C) Copyright 2005- ECMWF.
|
|
# Second order
|
|
|
|
ieeefloat referenceValue: no_copy;
|
|
meta referenceValueError reference_value_error(referenceValue,ieee);
|
|
|
|
signed[2] binaryScaleFactor: no_copy;
|
|
|
|
signed[2] decimalScaleFactor: no_copy;
|
|
|
|
# Try different values of binaryScaleFactor and decimalScaleFactor to reduce packing error
|
|
transient optimizeScaleFactor = 0;
|
|
|
|
unsigned[1] bitsPerValue;
|
|
alias accuracy = bitsPerValue;
|
|
if (bitsPerValue) {
|
|
unsigned[1] widthOfFirstOrderValues :no_copy ;
|
|
|
|
unsigned [4] numberOfGroups : no_copy;
|
|
unsigned [4] numberOfSecondOrderPackedValues : no_copy;
|
|
unsigned [1] widthOfWidths : no_copy;
|
|
unsigned [1] widthOfLengths : no_copy;
|
|
unsigned [1] orderOfSPD = 2 : no_copy ;
|
|
|
|
if (orderOfSPD) {
|
|
unsigned[1] widthOfSPD ;
|
|
meta SPD spd(widthOfSPD,orderOfSPD) : read_only;
|
|
}
|
|
}
|