Commit bbec24d0 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Replace vlistDefVarTypeOfGeneratingProcess() by cdiDefKeyInt().

parent 4a333b09
...@@ -665,9 +665,6 @@ int vlistInqVarTimave(int vlistID, int varID); ...@@ -665,9 +665,6 @@ int vlistInqVarTimave(int vlistID, int varID);
void vlistDefVarTimaccu(int vlistID, int varID, int timaccu); void vlistDefVarTimaccu(int vlistID, int varID, int timaccu);
int vlistInqVarTimaccu(int vlistID, int varID); int vlistInqVarTimaccu(int vlistID, int varID);
void vlistDefVarTypeOfGeneratingProcess(int vlistID, int varID, int typeOfGeneratingProcess);
int vlistInqVarTypeOfGeneratingProcess(int vlistID, int varID);
void vlistDefVarProductDefinitionTemplate(int vlistID, int varID, int productDefinitionTemplate); void vlistDefVarProductDefinitionTemplate(int vlistID, int varID, int productDefinitionTemplate);
int vlistInqVarProductDefinitionTemplate(int vlistID, int varID); int vlistInqVarProductDefinitionTemplate(int vlistID, int varID);
...@@ -810,8 +807,9 @@ int gridInqYIsc(int gridID); ...@@ -810,8 +807,9 @@ int gridInqYIsc(int gridID);
size_t gridInqYCvals(int gridID, char *ycvals[]); size_t gridInqYCvals(int gridID, char *ycvals[]);
// CDI var key values // CDI var key values
#define CDI_KEY_TABLESVERSION 801 // GRIB2 tablesVersion #define CDI_KEY_TABLESVERSION 801 // GRIB2 tablesVersion
#define CDI_KEY_LOCALTABLESVERSION 802 // GRIB2 localTablesVersion #define CDI_KEY_LOCALTABLESVERSION 802 // GRIB2 localTablesVersion
#define CDI_KEY_TYPEOFGENERATINGPROCESS 803 // GRIB2 typeOfGeneratingProcess
// cdiDefKeyInt: Define a CDI varianble integer value from a key // cdiDefKeyInt: Define a CDI varianble integer value from a key
int cdiDefKeyInt(int cdiID, int varID, int key, int value); int cdiDefKeyInt(int cdiID, int varID, int key, int value);
......
! This file was automatically generated, don't edit! ! This file was automatically generated, don't edit!
! !
! Fortran interface for CDI library version 1.9.2 ! Fortran interface for CDI library version 1.9.3
! !
! Author: ! Author:
! ------- ! -------
! Uwe Schulzweida, MPI-MET, Hamburg, November 2017 ! Uwe Schulzweida, MPI-MET, Hamburg, January 2018
! !
INTEGER CDI_MAX_NAME INTEGER CDI_MAX_NAME
...@@ -1259,17 +1259,6 @@ ...@@ -1259,17 +1259,6 @@
! INTEGER varID) ! INTEGER varID)
EXTERNAL vlistInqVarTimaccu EXTERNAL vlistInqVarTimaccu
! vlistDefVarTypeOfGeneratingProcess
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER typeOfGeneratingProcess)
EXTERNAL vlistDefVarTypeOfGeneratingProcess
INTEGER vlistInqVarTypeOfGeneratingProcess
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistInqVarTypeOfGeneratingProcess
! vlistDefVarProductDefinitionTemplate ! vlistDefVarProductDefinitionTemplate
! (INTEGER vlistID, ! (INTEGER vlistID,
! INTEGER varID, ! INTEGER varID,
...@@ -1603,9 +1592,26 @@ ...@@ -1603,9 +1592,26 @@
! (INTEGER gridID) ! (INTEGER gridID)
EXTERNAL gridInqYIsc EXTERNAL gridInqYIsc
! INTEGER CDI_KEY_TABLESVERSION
! CDI grid string key values PARAMETER (CDI_KEY_TABLESVERSION = 801)
! INTEGER CDI_KEY_LOCALTABLESVERSION
PARAMETER (CDI_KEY_LOCALTABLESVERSION = 802)
INTEGER CDI_KEY_TYPEOFGENERATINGPROCESS
PARAMETER (CDI_KEY_TYPEOFGENERATINGPROCESS = 803)
INTEGER cdiDefKeyInt
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! INTEGER value)
EXTERNAL cdiDefKeyInt
INTEGER cdiInqKeyInt
! (INTEGER cdiID,
! INTEGER varID,
! INTEGER key,
! INTEGER value)
EXTERNAL cdiInqKeyInt
INTEGER CDI_KEY_XNAME INTEGER CDI_KEY_XNAME
PARAMETER (CDI_KEY_XNAME = 901) PARAMETER (CDI_KEY_XNAME = 901)
INTEGER CDI_KEY_XDIMNAME INTEGER CDI_KEY_XDIMNAME
...@@ -1628,9 +1634,6 @@ ...@@ -1628,9 +1634,6 @@
PARAMETER (CDI_KEY_MAPPING = 921) PARAMETER (CDI_KEY_MAPPING = 921)
INTEGER CDI_KEY_MAPNAME INTEGER CDI_KEY_MAPNAME
PARAMETER (CDI_KEY_MAPNAME = 922) PARAMETER (CDI_KEY_MAPNAME = 922)
!
! CDI zaxis string key values
!
INTEGER CDI_KEY_NAME INTEGER CDI_KEY_NAME
PARAMETER (CDI_KEY_NAME = 941) PARAMETER (CDI_KEY_NAME = 941)
INTEGER CDI_KEY_DIMNAME INTEGER CDI_KEY_DIMNAME
...@@ -1659,6 +1662,20 @@ ...@@ -1659,6 +1662,20 @@
! CHARACTER*(*) mesg) ! CHARACTER*(*) mesg)
EXTERNAL cdiGridInqKeyStr EXTERNAL cdiGridInqKeyStr
INTEGER cdiZaxisDefKeyStr
! (INTEGER zaxisID,
! INTEGER key,
! INTEGER size,
! CHARACTER*(*) mesg)
EXTERNAL cdiZaxisDefKeyStr
INTEGER cdiZaxisInqKeyStr
! (INTEGER zaxisID,
! INTEGER key,
! INTEGER size,
! CHARACTER*(*) mesg)
EXTERNAL cdiZaxisInqKeyStr
INTEGER cdiZaxisDefKeyFlt INTEGER cdiZaxisDefKeyFlt
! (INTEGER zaxisID, ! (INTEGER zaxisID,
! INTEGER key, ! INTEGER key,
...@@ -2067,20 +2084,6 @@ ...@@ -2067,20 +2084,6 @@
! INTEGER*1(16) uuid) ! INTEGER*1(16) uuid)
EXTERNAL zaxisInqUUID EXTERNAL zaxisInqUUID
INTEGER cdiZaxisDefKeyStr
! (INTEGER zaxisID,
! INTEGER key,
! INTEGER size,
! CHARACTER*(*) mesg)
EXTERNAL cdiZaxisDefKeyStr
INTEGER cdiZaxisInqKeyStr
! (INTEGER zaxisID,
! INTEGER key,
! INTEGER size,
! CHARACTER*(*) mesg)
EXTERNAL cdiZaxisInqKeyStr
! zaxisDefName ! zaxisDefName
! (INTEGER zaxisID, ! (INTEGER zaxisID,
! CHARACTER*(*) name_optional) ! CHARACTER*(*) name_optional)
......
...@@ -362,8 +362,6 @@ FCALLSCSUB3 (vlistDefVarTimave, VLISTDEFVARTIMAVE, vlistdefvartimave, INT, INT, ...@@ -362,8 +362,6 @@ FCALLSCSUB3 (vlistDefVarTimave, VLISTDEFVARTIMAVE, vlistdefvartimave, INT, INT,
FCALLSCFUN2 (INT, vlistInqVarTimave, VLISTINQVARTIMAVE, vlistinqvartimave, INT, INT) FCALLSCFUN2 (INT, vlistInqVarTimave, VLISTINQVARTIMAVE, vlistinqvartimave, INT, INT)
FCALLSCSUB3 (vlistDefVarTimaccu, VLISTDEFVARTIMACCU, vlistdefvartimaccu, INT, INT, INT) FCALLSCSUB3 (vlistDefVarTimaccu, VLISTDEFVARTIMACCU, vlistdefvartimaccu, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTimaccu, VLISTINQVARTIMACCU, vlistinqvartimaccu, INT, INT) FCALLSCFUN2 (INT, vlistInqVarTimaccu, VLISTINQVARTIMACCU, vlistinqvartimaccu, INT, INT)
FCALLSCSUB3 (vlistDefVarTypeOfGeneratingProcess, VLISTDEFVARTYPEOFGENERATINGPROCESS, vlistdefvartypeofgeneratingprocess, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarTypeOfGeneratingProcess, VLISTINQVARTYPEOFGENERATINGPROCESS, vlistinqvartypeofgeneratingprocess, INT, INT)
FCALLSCSUB3 (vlistDefVarProductDefinitionTemplate, VLISTDEFVARPRODUCTDEFINITIONTEMPLATE, vlistdefvarproductdefinitiontemplate, INT, INT, INT) FCALLSCSUB3 (vlistDefVarProductDefinitionTemplate, VLISTDEFVARPRODUCTDEFINITIONTEMPLATE, vlistdefvarproductdefinitiontemplate, INT, INT, INT)
FCALLSCFUN2 (INT, vlistInqVarProductDefinitionTemplate, VLISTINQVARPRODUCTDEFINITIONTEMPLATE, vlistinqvarproductdefinitiontemplate, INT, INT) FCALLSCFUN2 (INT, vlistInqVarProductDefinitionTemplate, VLISTINQVARPRODUCTDEFINITIONTEMPLATE, vlistinqvarproductdefinitiontemplate, INT, INT)
static int vlistInqVarSize_fwrap(int vlistID, int varID) static int vlistInqVarSize_fwrap(int vlistID, int varID)
...@@ -481,14 +479,12 @@ static int gridInqYvals_fwrap(int gridID, double yvals[]) ...@@ -481,14 +479,12 @@ static int gridInqYvals_fwrap(int gridID, double yvals[])
} }
FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV) FCALLSCFUN2 (INT, gridInqYvals_fwrap, GRIDINQYVALS, gridinqyvals, INT, DOUBLEV)
FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT) FCALLSCFUN1 (INT, gridInqYIsc, GRIDINQYISC, gridinqyisc, INT)
FCALLSCFUN4 (INT, cdiDefKeyInt, CDIDEFKEYINT, cdidefkeyint, INT, INT, INT, INT)
/* CDI grid string key values */ FCALLSCFUN4 (INT, cdiInqKeyInt, CDIINQKEYINT, cdiinqkeyint, INT, INT, INT, PINT)
/* CDI zaxis string key values */
FCALLSCFUN4 (INT, cdiGridDefKeyStr, CDIGRIDDEFKEYSTR, cdigriddefkeystr, INT, INT, INT, STRING) FCALLSCFUN4 (INT, cdiGridDefKeyStr, CDIGRIDDEFKEYSTR, cdigriddefkeystr, INT, INT, INT, STRING)
FCALLSCFUN4 (INT, cdiGridInqKeyStr, CDIGRIDINQKEYSTR, cdigridinqkeystr, INT, INT, INT, PSTRING) FCALLSCFUN4 (INT, cdiGridInqKeyStr, CDIGRIDINQKEYSTR, cdigridinqkeystr, INT, INT, INT, PSTRING)
FCALLSCFUN4 (INT, cdiZaxisDefKeyStr, CDIZAXISDEFKEYSTR, cdizaxisdefkeystr, INT, INT, INT, STRING)
FCALLSCFUN4 (INT, cdiZaxisInqKeyStr, CDIZAXISINQKEYSTR, cdizaxisinqkeystr, INT, INT, INT, PSTRING)
FCALLSCFUN3 (INT, cdiZaxisDefKeyFlt, CDIZAXISDEFKEYFLT, cdizaxisdefkeyflt, INT, INT, DOUBLE) FCALLSCFUN3 (INT, cdiZaxisDefKeyFlt, CDIZAXISDEFKEYFLT, cdizaxisdefkeyflt, INT, INT, DOUBLE)
FCALLSCFUN3 (INT, cdiZaxisInqKeyFlt, CDIZAXISINQKEYFLT, cdizaxisinqkeyflt, INT, INT, PDOUBLE) FCALLSCFUN3 (INT, cdiZaxisInqKeyFlt, CDIZAXISINQKEYFLT, cdizaxisinqkeyflt, INT, INT, PDOUBLE)
FCALLSCSUB2 (gridDefXname, GRIDDEFXNAME, griddefxname, INT, STRING) FCALLSCSUB2 (gridDefXname, GRIDDEFXNAME, griddefxname, INT, STRING)
...@@ -604,8 +600,6 @@ FCALLSCSUB2 (zaxisDefNumber, ZAXISDEFNUMBER, zaxisdefnumber, INT, INT) ...@@ -604,8 +600,6 @@ FCALLSCSUB2 (zaxisDefNumber, ZAXISDEFNUMBER, zaxisdefnumber, INT, INT)
FCALLSCFUN1 (INT, zaxisInqNumber, ZAXISINQNUMBER, zaxisinqnumber, INT) FCALLSCFUN1 (INT, zaxisInqNumber, ZAXISINQNUMBER, zaxisinqnumber, INT)
FCALLSCSUB2 (zaxisDefUUID, ZAXISDEFUUID, zaxisdefuuid, INT, PVOID) FCALLSCSUB2 (zaxisDefUUID, ZAXISDEFUUID, zaxisdefuuid, INT, PVOID)
FCALLSCSUB2 (zaxisInqUUID, ZAXISINQUUID, zaxisinquuid, INT, PVOID) FCALLSCSUB2 (zaxisInqUUID, ZAXISINQUUID, zaxisinquuid, INT, PVOID)
FCALLSCFUN4 (INT, cdiZaxisDefKeyStr, CDIZAXISDEFKEYSTR, cdizaxisdefkeystr, INT, INT, INT, STRING)
FCALLSCFUN4 (INT, cdiZaxisInqKeyStr, CDIZAXISINQKEYSTR, cdizaxisinqkeystr, INT, INT, INT, PSTRING)
FCALLSCSUB2 (zaxisDefName, ZAXISDEFNAME, zaxisdefname, INT, STRING) FCALLSCSUB2 (zaxisDefName, ZAXISDEFNAME, zaxisdefname, INT, STRING)
FCALLSCSUB2 (zaxisInqName, ZAXISINQNAME, zaxisinqname, INT, PSTRING) FCALLSCSUB2 (zaxisInqName, ZAXISINQNAME, zaxisinqname, INT, PSTRING)
FCALLSCSUB2 (zaxisDefLongname, ZAXISDEFLONGNAME, zaxisdeflongname, INT, STRING) FCALLSCSUB2 (zaxisDefLongname, ZAXISDEFLONGNAME, zaxisdeflongname, INT, STRING)
......
#ifndef _GRID_H #ifndef GRID_H
#define _GRID_H #define GRID_H
#include "cdi.h" #include "cdi.h"
#include <stdbool.h> #include <stdbool.h>
......
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
#endif #endif
//#include "config.h" //#include "config.h"
#define VERSION "1.9.2" #define VERSION "1.9.3"
typedef struct typedef struct
{ {
size_t naline; size_t naline;
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
#include "config.h" #include "config.h"
#endif #endif
#ifdef HAVE_LIBGRIB_API #ifdef HAVE_LIBGRIB_API
#include "dmemory.h" #include "dmemory.h"
#include "cdi.h" #include "cdi.h"
#include "cdi_int.h" #include "cdi_int.h"
...@@ -584,7 +584,7 @@ void gribapiAddRecord(stream_t *streamptr, int param, grib_handle *gh, ...@@ -584,7 +584,7 @@ void gribapiAddRecord(stream_t *streamptr, int param, grib_handle *gh,
long typeOfGeneratingProcess = 0; long typeOfGeneratingProcess = 0;
if ( grib_get_long(gh, "typeOfGeneratingProcess", &typeOfGeneratingProcess) == 0 ) if ( grib_get_long(gh, "typeOfGeneratingProcess", &typeOfGeneratingProcess) == 0 )
varDefTypeOfGeneratingProcess(varID, (int) typeOfGeneratingProcess); varDefKeyInt(varID, CDI_KEY_TYPEOFGENERATINGPROCESS, (int) typeOfGeneratingProcess);
long productDefinitionTemplate = 0; long productDefinitionTemplate = 0;
if ( grib_get_long(gh, "productDefinitionTemplateNumber", &productDefinitionTemplate) == 0 ) if ( grib_get_long(gh, "productDefinitionTemplateNumber", &productDefinitionTemplate) == 0 )
...@@ -2999,7 +2999,8 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI ...@@ -2999,7 +2999,8 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI
int param = vlistInqVarParam(vlistID, varID); int param = vlistInqVarParam(vlistID, varID);
int datatype = vlistInqVarDatatype(vlistID, varID); int datatype = vlistInqVarDatatype(vlistID, varID);
int typeOfGeneratingProcess = vlistInqVarTypeOfGeneratingProcess(vlistID, varID); int typeOfGeneratingProcess = 0;
cdiInqKeyInt(vlistID, varID, CDI_KEY_TYPEOFGENERATINGPROCESS, &typeOfGeneratingProcess);
int productDefinitionTemplate = vlistInqVarProductDefinitionTemplate(vlistID, varID); int productDefinitionTemplate = vlistInqVarProductDefinitionTemplate(vlistID, varID);
char name[256]; char name[256];
...@@ -3019,7 +3020,6 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI ...@@ -3019,7 +3020,6 @@ size_t gribapiEncode(int varID, int levelID, int vlistID, int gridID, int zaxisI
if ( editionNumber == 2 ) if ( editionNumber == 2 )
{ {
if ( typeOfGeneratingProcess == -1 ) typeOfGeneratingProcess = 0;
if ( ! gc->init ) if ( ! gc->init )
{ {
GRIB_CHECK(my_grib_set_long(gh, "typeOfGeneratingProcess", typeOfGeneratingProcess), 0); GRIB_CHECK(my_grib_set_long(gh, "typeOfGeneratingProcess", typeOfGeneratingProcess), 0);
......
...@@ -76,7 +76,6 @@ typedef struct ...@@ -76,7 +76,6 @@ typedef struct
char *longname; char *longname;
char *units; char *units;
ensinfo_t *ensdata; ensinfo_t *ensdata;
int typeOfGeneratingProcess;
int productDefinitionTemplate; int productDefinitionTemplate;
/* meta-data for specification of tiles (currently only GRIB-API: */ /* meta-data for specification of tiles (currently only GRIB-API: */
...@@ -123,7 +122,6 @@ void paramInitEntry(unsigned varID, int param) ...@@ -123,7 +122,6 @@ void paramInitEntry(unsigned varID, int param)
vartable[varID].instID = CDI_UNDEFID; vartable[varID].instID = CDI_UNDEFID;
vartable[varID].modelID = CDI_UNDEFID; vartable[varID].modelID = CDI_UNDEFID;
vartable[varID].tableID = CDI_UNDEFID; vartable[varID].tableID = CDI_UNDEFID;
vartable[varID].typeOfGeneratingProcess = CDI_UNDEFID;
vartable[varID].productDefinitionTemplate = CDI_UNDEFID; vartable[varID].productDefinitionTemplate = CDI_UNDEFID;
vartable[varID].nikeys = 0; vartable[varID].nikeys = 0;
for ( int i = 0; i < MAX_KEYS; ++i ) vartable[varID].ikeyvalues[i].value = 0; for ( int i = 0; i < MAX_KEYS; ++i ) vartable[varID].ikeyvalues[i].value = 0;
...@@ -783,9 +781,6 @@ void cdi_generate_vars(stream_t *streamptr) ...@@ -783,9 +781,6 @@ void cdi_generate_vars(stream_t *streamptr)
vlistDefVarTimaccu(vlistID, varID, timaccu); vlistDefVarTimaccu(vlistID, varID, timaccu);
vlistDefVarCompType(vlistID, varID, comptype); vlistDefVarCompType(vlistID, varID, comptype);
if ( vartable[varid].typeOfGeneratingProcess != CDI_UNDEFID )
vlistDefVarTypeOfGeneratingProcess(vlistID, varID, vartable[varid].typeOfGeneratingProcess);
varCopyKeys(vlistID, varID); varCopyKeys(vlistID, varID);
if ( vartable[varid].lmissval ) vlistDefVarMissval(vlistID, varID, vartable[varid].missval); if ( vartable[varid].lmissval ) vlistDefVarMissval(vlistID, varID, vartable[varid].missval);
...@@ -1118,12 +1113,6 @@ void varDefEnsembleInfo(int varID, int ens_idx, int ens_count, int forecast_type ...@@ -1118,12 +1113,6 @@ void varDefEnsembleInfo(int varID, int ens_idx, int ens_count, int forecast_type
} }
void varDefTypeOfGeneratingProcess(int varID, int typeOfGeneratingProcess)
{
vartable[varID].typeOfGeneratingProcess = typeOfGeneratingProcess;
}
void varDefProductDefinitionTemplate(int varID, int productDefinitionTemplate) void varDefProductDefinitionTemplate(int varID, int productDefinitionTemplate)
{ {
vartable[varID].productDefinitionTemplate = productDefinitionTemplate; vartable[varID].productDefinitionTemplate = productDefinitionTemplate;
......
#ifndef _VARSCAN_H #ifndef VARSCAN_H
#define _VARSCAN_H #define VARSCAN_H
#ifndef _GRID_H #ifndef GRID_H
# include "grid.h" #include "grid.h"
#endif #endif
...@@ -30,7 +30,6 @@ void varDefTable(int varID, int tableID); ...@@ -30,7 +30,6 @@ void varDefTable(int varID, int tableID);
int varInqTable(int varID); int varInqTable(int varID);
void varDefEnsembleInfo(int varID, int ens_idx, int ens_count, int forecast_type); void varDefEnsembleInfo(int varID, int ens_idx, int ens_count, int forecast_type);
void varDefTypeOfGeneratingProcess(int varID, int typeOfGeneratingProcess);
void varDefProductDefinitionTemplate(int varID, int productDefinitionTemplate); void varDefProductDefinitionTemplate(int varID, int productDefinitionTemplate);
void varDefKeyInt(int varID, int key, int value); void varDefKeyInt(int varID, int key, int value);
......
...@@ -63,7 +63,6 @@ typedef struct ...@@ -63,7 +63,6 @@ typedef struct
int tableID; int tableID;
int timave; int timave;
int timaccu; int timaccu;
int typeOfGeneratingProcess;
int productDefinitionTemplate; int productDefinitionTemplate;
int chunktype; int chunktype;
int xyz; int xyz;
......
...@@ -34,7 +34,6 @@ void vlistvarInitEntry(int vlistID, int varID) ...@@ -34,7 +34,6 @@ void vlistvarInitEntry(int vlistID, int varID)
vlistptr->vars[varID].tsteptype = TSTEP_INSTANT; vlistptr->vars[varID].tsteptype = TSTEP_INSTANT;
vlistptr->vars[varID].timave = 0; vlistptr->vars[varID].timave = 0;
vlistptr->vars[varID].timaccu = 0; vlistptr->vars[varID].timaccu = 0;
vlistptr->vars[varID].typeOfGeneratingProcess = 0;
vlistptr->vars[varID].productDefinitionTemplate = -1; vlistptr->vars[varID].productDefinitionTemplate = -1;
vlistptr->vars[varID].chunktype = cdiChunkType; vlistptr->vars[varID].chunktype = cdiChunkType;
vlistptr->vars[varID].xyz = 321; vlistptr->vars[varID].xyz = 321;
...@@ -1283,28 +1282,9 @@ int vlistInqVarTimaccu(int vlistID, int varID) ...@@ -1283,28 +1282,9 @@ int vlistInqVarTimaccu(int vlistID, int varID)
} }
void vlistDefVarTypeOfGeneratingProcess(int vlistID, int varID, int typeOfGeneratingProcess)
{
vlist_t *vlistptr = vlist_to_pointer(vlistID);
if (vlistptr->vars[varID].typeOfGeneratingProcess != typeOfGeneratingProcess)
{
vlistptr->vars[varID].typeOfGeneratingProcess = typeOfGeneratingProcess;
reshSetStatus(vlistID, &vlistOps, RESH_DESYNC_IN_USE);
}
}
int vlistInqVarTypeOfGeneratingProcess(int vlistID, int varID)
{
vlist_t *vlistptr = vlist_to_pointer(vlistID);
return vlistptr->vars[varID].typeOfGeneratingProcess;
}
void vlistDefVarProductDefinitionTemplate(int vlistID, int varID, int productDefinitionTemplate) void vlistDefVarProductDefinitionTemplate(int vlistID, int varID, int productDefinitionTemplate)
{ {
vlist_t *vlistptr = vlist_to_pointer(vlistID); vlist_t *vlistptr = vlist_to_pointer(vlistID);
if (vlistptr->vars[varID].productDefinitionTemplate != productDefinitionTemplate) if (vlistptr->vars[varID].productDefinitionTemplate != productDefinitionTemplate)
{ {
vlistptr->vars[varID].productDefinitionTemplate = productDefinitionTemplate; vlistptr->vars[varID].productDefinitionTemplate = productDefinitionTemplate;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment