Next: Graphics Interfaces Up: No Title Previous: Standard Interfaces

Table Interfaces

Module Version 1.0 (28-Feb-1991) Module TCA

Author: ESO-IPG, Garching

Language: C

Classification: Table (3-D) Interfaces

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tca.c

Environment:

Midas
#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <midas_def.h> /* General MIDAS Symbols */
#include <tblerr.h> /* List of Table Errors */
#include <atype.h> /* Character classification */
#include <macrogen.h> /* Classical macros */
#include <math.h> /* System Library */

Comments:

This module contains the routines to handle the access to table elements, which can be arrays . Access to elements is done by column, row and index numbers; an array of elements is specified by column, row, index and length. The length is taken as the maximum possible when this argument is zero. element arrays in the table can be integer (I*1, i*2 or I*4), float, double precision or character string data types, as defined during the creation of the columns. Implicit conversion of the element value is done automatically if the input/output is done with a routine not corresponding to the data type.

The functions provided by this module are:

Delete an array element (TCADEL),
read an extract of an array element from the table (TCARDx),
map an array element of the table (TCAMAP),
write an extract of an array element into the table (TCAWRx),
unmap an element of the table (TCAUNM),

Main arguments used by the routines are:

col: sequential column number. It is an integer number provided by the system when a new column is created, or it is defined by the user for already existing columns.
index: starting position in the element array. The first element is numbered 1.
items: How many elements of the array are concerned. The value 0 stands for all
null: null flag. This value is 1 if the element is undefined, 0 otherwise.
row: sequential row number. It is an integer defining the row number in the table or the symbols LAST, FIRST, NEXT and PREVIOUS defined in the system file 'midas_def.h' in the directory 'MID_INCLUDE'. The sequence number is the physical sequence number (by default) or the sequence corresponding to the index of the reference column.
tid: table identifier. It is an integer number provided by the system when the table is created or opened.
value: element value. The type depends on the routine name. Implicit conversion is done if this type does not correspond to the column data type.

History:

[1.0] 14-Dec-1990: Creation (Francois Ochsenbein)

Function

TCAMAP

int TCAMAP(tid, row, col, addr)

int tid IN : table id

int row IN : row number

int col IN : column number

char **addr OUT: element adress

Purpose:Return the address of the COMPLETE element array
Returns:status

Function

TCAUNM

int TCAUNM(tid, address)

int tid IN : table id

char *address IN: column address

Purpose:Unmap a part of the file that was mapped.
Returns:status (-1 if not mapped)

Function

TCAEDC

int TCAEDC(tid, abin, col, index, items, buffer)

int tid IN : table id

char *abin IN : values to edit

int col IN : column number

int index IN : index number

int items IN : how many

char *buffer OUT: edited value

Purpose:Edit the element array "abin". The function is similar to TCARDC, but has the value in memory instead of in table (typically the result of TCAMAP).
Returns:status
Remarks:No null flag here (null values have buffer[0] = 0). Output buffer assumed to be large enough (size is returned by TBFGET)

Function

TCATRC

int TCATRC(tid, abin, col, index, items, buffer)

int tid IN : table id

char *abin OUT: value to edit

int col IN : column number

int index IN : index number

int items IN : how many

char *buffer IN : edited value

Purpose:Interpret (TRanslate) the character value in buffer. This function is similar to TCAWRC, but converts the value to memory (no table access)
Returns:status
Remarks:No null flag here (null values have buffer[0] = 0).

Function

TCARDC

int TCARDC(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

char *value OUT: actual value

Purpose:Reads table element as a character string. Arrays are edited with a comma between elements.
Returns:status (error and non-selected)
Algorithm:Map first the element, then use TCAEDC to convert to char.

Function

TCARDD

int TCARDD(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

double *value OUT: actual values

Purpose:Reads table element as a double precision variable.
Returns:status

Function

TCARDI

int TCARDI(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

int *value OUT: actual value

Purpose:Reads table element as integer value.
Returns:status

Function

TCARDR

int TCARDR(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

float *value OUT: actual value

Purpose:Reads table element as float.
Returns:status

Function

TCADEL

int TCADEL(tid, row, col, index, items)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

Purpose:Deletes table elements.
Returns:status
Algorithm:Writes a NULL value in the table.

Function

TCAWRC

int TCAWRC(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

char *value IN : actual value

Purpose:Writes table element, character string format.
Returns:status

Function

TCAWRD

int TCAWRD(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

double *value IN : actual value

Purpose:Writes table element, double precision argument.
Returns:status

Function

TCAWRI

int TCAWRI(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

int *value IN : actual value

Purpose:Writes table element, integer variable as argument.
Returns:status

Function

TCAWRR

int TCAWRR(tid, row, col, index, items, value)

int tid IN : table id

int row IN : row number

int col IN : column number

int index IN : index number

int items IN : how many

float *value IN : actual value

Purpose:Writes table element, float as input argument.
Returns:status

Function

TCASRC

int TCASRC(tid, row, col, index, items, value, next)

int tid IN : table id

int row IN : starting row number

int col IN : column number

int index IN : index number

int items IN : how many items to compare

char *value IN : Comparison vector

int *next OUT: found row number

Purpose:Search the first row that matches a set of values provided in character form. Search element in character string format. Search is performed on the table tid, examining rows from row on. It compares items elements of the column col from index with the array value, and stops when a match occurs. The result next is -1 if nothing appropriate was found.
Returns:status

Function

TCASRD

int TCASRD(tid, row, col, index, items, value, next)

int tid IN : table id

int row IN : starting row number

int col IN : column number

int index IN : index number in col

int items IN : How many to compare

double *value IN : Comparison vector

int *next OUT: found row number

Purpose:Search the first row that matches a set of values provided in double precision.
Returns:status

Function

TCASRI

int TCASRI(tid, row, col, index, items, value, next)

int tid IN : table id

int row IN : starting row number

int col IN : column number

int index IN : index number in col

int items IN : How many to compare

int *value IN : Comparison vector

int *next OUT: found row number

Purpose:Search the first row that matches a set of values provided in integer.
Returns:status

Function

TCASRR

int TCASRR(tid, row, col, index, items, value, next)

int tid IN : table id

int row IN : starting row number

int col IN : column number

int index IN : index number in col

int items IN : How many to compare

float *value IN : Comparison vector

int *next OUT: found row number

Purpose:Search the first row that matches a set of values provided in double precision.
Returns:status

External references:

<tblsys.h><tbldef.h><midas_def.h><tblerr.h><atype.h><macrogen.h>
<math.h>

Module Version 3.4 (28-Feb-1991) Module TCC

Author: J.D.Ponz IPG-ESO - Garching

Language: C

Classification: table interface (Design 2.0)

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tcc.c

Environment:

#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <tblerr.h> /* List of Table Errors */
#include <atype.h> /* Character classification */
#include <macrogen.h> /* Classical macros */

Comments:

This module contains the routines to handle columns in a table. Access to the table is done through the table identifier, returned by the routines TCTOPN and TCTINI. Access to a column is done through the column number, given by the routines TCCINI, TCCSER and TCLSER.

The following main functions are defined in this module:

create a column in the table (TCCINI),
delete a column from the table (TCCDEL),
map a column (TCCMAP),
unmap a column (TCCUNM),
table sorting according to column values (TCCSRT),
search the column number (TCCSER).

Main arguments used by the routines are:

alen: array length. Integer number to define the number of items in a multiple column. In the case of character strings 'alen' defines the maximum length of the string.
colref: reference to the column by label or by number. It is a character string containing the ':label' if the column is referenced by label, or '#n' if the column is referenced by its sequential number.
column: sequential column number. It is an integer number provided by the system when a new column is created or defined by the user.
dtype: column data type. The system file 'midas_def.h' in 'MID_INCLUDE:' provides the symbols D_xx_FORMAT where 'xx' is 'I1', 'I2' or 'I4' for integer data, 'R4' for float, 'R8' for double precision and 'C' for character.
form: column format. Character string up to 6 characters. Display format associated to the column. The format is defined as in standard FORTRAN.
label: column label. Character string (up to 16 characters) provided by the use when the column is created. Valid characters are letters, digits and the underscore symbol '_'. In the current version labels are NOT case independent.
tid: table identifier. It is an integer number provided by the system when the table is created or opened.
unit: column unit. Character string (up to 16 characters) to define the units of the column.

History:

[1.0] 25-Mar-1987 Implementation JDP

[1.1] 20-Oct-1987 Modify calling sequence

[1.2] 23-Nov-1987 New SC calling sequence

[1.3] 11-Apr-1988 Include new routines without type conversion. Character string always ending with a ' 6#60'. New SC calling sequence.

[1.4] 26-Sep-1988 Modify calling sequence in TCCINI to include data types and array length.

[3.0] 01-Jul-1990 New Version with Arrays / Elementary IO Added TCCSEL routine (selection of Columns)

[3.1] 26-Sep-1990 Removed bug in TCCSRT

[3.2] 06-Dec-1990 Force New Version as soon as something modified.

[3.3] 18-Dec-1990 FO: Take into account the number of selected rows.

[3.4] 23-Feb-1991 Sort always writes NULL values at the end.

Function

TCCDEL

int TCCDEL(tid, column, ncol)

int tid IN: table id number

int column IN: column number

int *ncol OUT:actual number of columns

Purpose:Delete column in a table
Returns:status
Algorithm:Just modify Descriptors.
Remarks:This implementation FORCES the table version to TBL_VERSION.

Function

TCCINI

int TCCINI(tid, dtype, alen, form, unit, label, column)

int tid IN: table id number

int dtype IN: column data type (Midas)

int alen IN: no. of array items

char *form IN: column form

char *unit IN: column unit

char *label IN: column label

int *column OUT:column number

Purpose:Initializes table column. Elements in the column are initialized as undefined (null values).
Returns:Status
Algorithm:Check if column has been already defined, otherwise add the new column descriptors.
The routine provides an overflow mechanism when the new column exceeds the allocated space.

Function

TCCMAP

int TCCMAP(tid, column, address)

int tid IN: table id number

int column IN: column number

char **address OUT:column address

Purpose: Return the address of the column in the table.
Returns: status
Algorithm:Finds the position of the physical column and get address via the virtual memory mechanism.
Note: This routine only works on tables stored by columns (transposed format, parameter F_TRANS in TCTINI).

Function

TCCSEL

int TCCSEL(tid, text, max_cols, cols, flags, found_cols)

int tid IN : table id

char *text IN : textual designation

int max_cols IN: Size of cols & flags arrays

int *cols OUT: column numbers

int *flags OUT: column flags (in brackets)

int *found_cols OUT: How many columns were found

Purpose:Searchs a set of columns column by references (their name).
Returns:Status
Algorithm:A set of columns has the general syntax col[(flag)][,col]...
where "col" may be #number or :label. The Sequence column may be designated by # or :

Function

TCCSER

int TCCSER(tid, colref, column)

int tid IN : table id

char *colref IN : column reference

int *column OUT: column number

Purpose:Searchs column by reference (its name). The column may be designated as #number or :name or name The Sequence column may be designated by # or :
Returns:Status
Algorithm:Sequential search for the column label. The routine returns the column number as the last argument or -1 if the column is not found.

Function

TCCSRT

int TCCSRT(tid, nc, column, sortfl)

int tid IN : table id

int nc IN : number of columns

int column IN : column numbers

int sortfl IN : sort flag

Purpose:Sort table.
Returns:Status
Algorithm:Use Quick sort algorithm to sort the table data in ascending (sort flag > 0) or descending (sort flag < 0) sequence.

Function

TCCUNM

int TCCUNM(tid, address)

int tid IN: table id number

char *address IN: column address

Purpose:Unmap the part of a file that was mapped before.
Returns:status (-1 if address not found)
Algorithm:Identical to TCEUNM

External references:

<tblsys.h><tbldef.h><tblerr.h><atype.h><macrogen.h>

Module Version 3.3 (24-Feb-1991) Module TCD

Author: IPG-ESO Garching

Language: C

Classification: table interface (Design version 2.0)

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tcd.c

Environment:

#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <macrogen.h> /* Classical macros */
#include <atype.h> /* Character classification */
#include <midas_def.h> /* General MIDAS Symbols */

Comments:

This module contains the routines to handle standard table descriptors:

General table information giving the current number of rows and columns, the number of the sorted column (0 by default), the column acting as refence to access rows by value (0 by default) and the physical dimension of the table. The routine TCIGET gives this information.
Table data types. The structure of one column may be retrieved with TCBGET(data type, number of items).
Format to define the editing format. The following operations are implemented: Get (TCFGET), put (TCFPUT).
Reference column. Defines the column used as reference for accessing the table elements by value. Possible operations are define reference column (TCKPUT) and get reference column (TCKGET).
Label. Defines the name associated with the column. The label is used as a variable name associated with the column in programs and procedures. Possible operations are get label (TCLGET), put label (TCLPUT) and search column with a given label (TCLSER). The label is initialized by TCCINI.
Case sensitivity for label names may be turned on via TCOSET ("label_case", 1) or off via TCOSET ("label_case", 0).
Various options may be retrieved (TCOGET) or setup (TCOSET). TCOERR writes an error.
Unit. Defines the units associated with a column. Possible operations are get unit (TCUGET) and put unit (TCUPUT). Units are initialized by TCCINI.
Selection flag. Defines the current subset selected in the table. The functions included are: get selection (TCSGET), put selection on/off (TCSPUT), count selected items (TCSCNT) and initialize selection (TCSINI).

Main arguments used by the routines are:

column: sequential column number. It is an integer number provided by the system when a new column is created or defined by the user.
dtype: column data type. The system file midas_def.h in MID_INCLUDE provides the symbols D_xx_FORMAT where 'xx' is 'I1','I2' or 'I4' for integers, 'R4' for float, 'R8' for double precision and 'C' for characters
form: column display format. It is a character string (up to 6 characters) defining a FORTRAN compatible format.
label: column label. Character string (up to 16 characters) defined by the user when the column is created. Valid characters are letters, digits and the underscore '_'. In the current version labels are NOT case independent.
row: sequential row number. It is an integer number defining the row number. The terms row and record are equivalent in this context.
tid: table identifier. It is an integer number provided by the system when the table is created or opened.
unit: column unit. It is a character string (up to 16 characters) to define the units of the column.

History:

[1.0] 25-Mar-1987 Implementation J.D. Ponz

[1.1] 25-Aug-1987 Include TCSPUT

[1.2] 20-Oct-1987 Calling sequence

[1.3] 23-Nov-1987 New SC calling sequence

[1.4] 11-Apr-1988 New SC calling sequence

[1.5] 11-Jan-1989 Include transposed file format

[1.6] 11-Jun-1989 New routines TCSCNT, TCDGET

[1.7] 14-Oct-1989 ibase = 1 in TCFSET ( not yet implemented)

[1.8] 02-Jan-1990 TCLSER modified (null terminator)

[3.0] 01-Jul-1990 New Version with Arrays / Elementary IO New entry points TCBGET / TCOSET / TCOGET

[3.1] 28-Oct-1990 Added TCFED (Edition bin -> char) and TCFDV (Conversion char->bin)

[3.2] 07-Dec-1990 Added TCVERS (Version)

[3.3] 18-Dec-1990 Selected rows are stored in TBLCONTR descriptor. Added TCSSET routine to write the descriptor.

Function

TCBGET

TCBGET(tid, column, dtype, items, bytes)

int tid IN : table ident

int column IN : column number

int *dtype OUT: data type

int *items OUT: array size

int *bytes OUT: storage required

Purpose:Reads Binary storage characteristics of Column. The routine returns the data type (one of the D_xx_FORMAT), the number of items (arrays), and the number of bytes required for the binary storage.
Returns:status

Function

TCDGET

TCDGET(tid, store)

int tid IN : table id

int *store OUT: physical format on disk

Purpose:Reads table storage format (F_TRANS or F_RECORD)
Returns:status

Function

TCFGET

TCFGET(tid, column, form, len, dtype)

int tid IN : table ident

int column IN : column number

char *form OUT: column format

int *len OUT: field length

int *dtype OUT: data type

Purpose:Reads column format. The routine returns the column format, the length of the column field when edited (bytes), and the data type.
Returns:status

Function

TCFPUT

TCFPUT(tid, column, form)

int tid IN : table id

int column IN : column number

char *form IN : column format

Purpose:Writes column format. Defines or changes the format of the column. The format is defined in FORTRAN compatible form.
Returns:status

Function

TCIGET

TCIGET(tid, column, row, nsort, allcol, allrow)

int tid IN : table id

int *column OUT: number of column

int *row OUT: number of rows

int *nsort OUT: sorted column

int *allcol OUT: number of allocated words per record

int *allrow OUT: number of allocated rows

Purpose:Reads table size information.
Returns:status

Function

TCIPUT

TCIPUT(tid, column, row)

int tid IN : table id

int column IN: number of columns

int row IN: number of rows

Purpose:Writes number of table columns and rows. This routine has to be used in connection with mapping facility.
Returns:status
Remarks:Should this really be allowed ????

Function

TCKGET

TCKGET(tid, column)

int tid IN : table id

int *column OUT: number of column

Purpose:Gets the sequential number of the reference column.
Returns:status

Function

TCKPUT

TCKPUT(tid, column)

int tid IN : table id

int column IN : column number

Purpose:Defines the column to be used as reference to access rows by value.
Returns:status

Function

TCLGET

TCLGET(tid, column, label)

int tid IN : table id

int column IN : column number

char *label OUT: label name

Purpose:Reads column label.
Returns:status

Function

TCLPUT

TCLPUT(tid, column, label)

int tid IN : table id

int column IN : column number

char *label IN : label name

Purpose:Writes column label.
Returns:status

Function

TCLSER

TCLSER(tid, label, column)

int tid IN : table id

char *label IN : label name

int *column OUT: column number

Purpose:Searchs the sequential number of the column having the given label, case insensitive. Column is set to -1 when name is not found.
Returns:status.

Function

TCOERR

TCOERR (tid, row, col, status, text)

int tid IN : table id

int row IN: row number

int col IN: column number

int status IN: Status

char *text IN: Text to add

Purpose:Write an error
Returns:Status

Function

TCOGET

TCOGET(op_name, value)

char *op_name IN : Name of option

int *value OUT: Option's value

Purpose:Gets various options;
Returns:Status
Remarks:Valid parameters are: "label_case" sensitivity to case of labels "display_error" to display the errors

Function

TCOSET

TCOSET(op_name, value)

char *op_name IN : Name of option

int value IN : Option's value

Purpose:Set various options.
Returns:status
Remarks:See TCOGET for possible names of op_name.

Function

TCSGET

TCSGET(tid, row, value)

int tid IN : table id

int row IN : row number

int *value OUT: selection flag (TRUE if selected)

Purpose:Reads row selection flag.
Returns:status
Algorithm:Check if ALL selection flag in on. Otherwise, read selection flag.

Function

TCSPUT

TCSPUT(tid, row, value)

int tid IN : table id

int row IN : row number

int *value IN: selection flag

Purpose:Writes row selection flag: Writes the value (TRUE/FALSE) to indicate selection/not-selection of the row in the table.
Returns:status

Function

TCSCNT

TCSCNT(tid,count)

int tid IN : table id

int *count out: number of selected entries

Purpose:Count selected entries.
Returns:status
Algorithm:Sequential scan of the selection flags.

Function

TCSINI

TCSINI(tid)

int tid IN : table id

Purpose:Initializes selection flag.
Returns:status

Function

TCSINF

TCSINF(tid, line)

int tid IN : table id

char *line OUT: selection info

Purpose:Get selection information.
Returns:status

Function

TCSSET

TCSSET(tid, line)

int tid IN : table id

char *line IN : selection info

Purpose:Set selection information. Note that the number of selected rows is not modified, unless line is blank which asks for an ALL selection.
Returns:status

Function

TCUGET

TCUGET(tid, column, unit)

int tid IN : table id

int column IN : column number

char *unit OUT: unit name

Purpose:Reads column unit.
Returns:status

Function

TCUPUT

TCUPUT(tid, column, unit)

int tid IN : table id

int column IN : column number

char *unit IN : unit name

Purpose:Writes column units.
Returns:status

Function

TCVERS

int TCVERS(tid)

int tid IN : table id

Purpose:Reads table Version
Returns:ERR_NORMAL if Correct Version / -n for Obsolete Versions

External references:

<tblsys.h><tbldef.h><macrogen.h><atype.h><midas_def.h>

Module Version 3.3 (28-Feb-1991) Module TCE

Author: IPG-ESO Garching

Language: C

Classification: table interface.

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tce.c

Environment:

#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <midas_def.h> /* General MIDAS Symbols */
#include <tblerr.h> /* List of Table Errors */
#include <atype.h> /* Character classification */
#include <macrogen.h> /* Classical macros */
#include <math.h> /* System Library */

Comments:

This module contains the routines to handle table elements. Access to elements is done by column and row numbers. Elements in the table can be integer, float, double precision and character string data types, as defined during the creation of the columns. Implicit conversion of the element value is done automatically if the input/output is done with a routine not corresponding to the data type.

The functions provided by this module are:

Delete an element (TCEDEL),
read an element from the table (TCERDx),
map an element of the table (TCEMAP),
write an element into the table (TCEWRx),
search for an element value (TCESRx).
unmap an element of the table (TCEUNM),

Main arguments used by the routines are:

column: sequential column number. It is an integer number provided by the system when a new column is created, or it is defined by the user for already existing columns.
null: null flag. This value is 1 if the element is undefined, 0 otherwise.
row: sequential row number. It is an integer defining the row number in the table. The sequence number is the physical sequence number (by default) or the sequence corresponding to the index of the reference column.
tid: table identifier. It is an integer number provided by the system when the table is created or opened.
value: element value. The type depends on the routine name. Implicit conversion is done if this type does not correspond to the column data type. This variable is filled only if the value is defined.

In case of arrays, only the first element is returned for non-character data.

History:

[1.0] 25-Mar-1987 Implementation J.D. Ponz

[1.1] 21-Oct-1987 New calling sequence

[1.2] 11-Apr-1988 New calling sequence

[1.3] 26-Sep-1988 Use pointers for TCEWRx

[1.4] 16-Jan-1989 Include record file organization

[3.0] 01-Jul-1990 New Version with Arrays / Elementary IO

[3.1] 27-Sep-1990 Added TCEUNM

[3.2] 28-Oct-1990 Added TCEEDC (Edit, similar to TCERDC) and TCETRC (similar to TCEWRC)

[3.3] 18-Dec-1990 FO: Take into account the number of selected rows.

Function

TCEDEL

TCEDEL(tid, row, column)

int tid IN : table id

int row IN : row number

int column IN : column number

Purpose:Deletes table element.
Returns:status
Algorithm:Writes a NULL value in the table.

Function

TCEMAP

TCEMAP(tid, row, column, address, null)

int tid IN: table id number

int row IN: row number

int column IN: column number

char **address OUT: element adress

int *null OUT: 1 if element null

Purpose:Return the address of the element (which can be an array) in the table.
Returns:status
Remarks:The selection element cannot be mapped...

Function

TCEEDC

TCEEDC(tid, abin, column, buffer)

int tid IN : table id

char *abin IN : value to edit

int column IN : column number

char *buffer OUT: edited value

Purpose:Read an element referred by abin. The function is similar to TCERDC, but has the value in memory instead of in table.
Returns:status
Remarks:No null flag here (null values have buffer[0] = 0). Output buffer assumed to be large enough (size is returned by TBFGET)

Function

TCERDC

TCERDC(tid, row, column, value, null)

int tid IN : table id

int row IN : row number

int column IN : column number

char *value OUT: actual value

int *null OUT: null flag

Purpose:Reads table element as a character string.
Returns:status (error and non-selected)
Algorithm:Finds the element position and convert data type if required. Arrays are edited with a comma between elements.

Function

TCERDD

TCERDD(tid,row,column,value,null)

int tid IN : table id

int row IN : row number

int column IN : column number

double *value OUT: actual value

int *null OUT: null flag

Purpose:Reads table element as a double precision variable.
Returns:status (error and non-selected)
Algorithm:Finds the element position and convert data type if required. Only the FIRST value is got for arrays.

Function

TCERDI

TCERDI(tid,row,column,value,null)

int tid IN : table id

int row IN : row number

int column IN : column number

int *value OUT: actual value

int *null OUT: null flag

Purpose:Reads table element as integer value.
Returns:status (error and non-selected)
Algorithm:Finds the element position and convert data type if required. Only the FIRST value is got for arrays.

Function

TCERDR

TCERDR(tid,row,column,value,null)

int tid IN : table id

int row IN : row number

int column IN : column number

float *value OUT: actual value

int *null OUT: null flag

Purpose:Reads table element as float.
Returns:status (error and non-selected)
Algorithm:Finds the element position and convert data type if required. Only the FIRST value is got for arrays.

Function

TCETRC

TCETRC(tid, abin, column, buffer)

int tid IN : table id

char *abin OUT: value to edit

int column IN : column number

char *buffer IN : edited value

Purpose:Interpret (TRanslate) the character value in buffer. This function is similar to TCEWRC, but converts the value to memory (no table access)
Returns:status
Remarks:No null flag here (null values have buffer[0] = 0).

Function

TCEWRC

TCEWRC(tid,row,column,value)

int tid IN : table id

int row IN : row number

int column IN : column number

char *value IN : actual value

Purpose:Writes table element, caracter string format.
Returns:status
Algorithm:Finds the element position and convert data type if required. Element in an array must be separated by ,

Function

TCEWRD

TCEWRD(tid,row,column,value)

int tid IN : table id

int row IN : row number

int column IN : column number

double *value IN : actual value

Purpose:Writes table element, double precision argument.
Returns:status
Algorithm:Finds the element position and convert data type if required. Only the FIRST value is written for arrays.

Function

TCEWRI

TCEWRI(tid,row,column,value)

int tid IN : table id

int row IN : row number

int column IN : column number

int *value IN : actual value

Purpose:Writes table element, integer variable as argument.
Returns:status
Algorithm:Finds the element position and convert data type if required. Only the FIRST value is written for arrays.

Function

TCEWRR

TCEWRR(tid,row,column,value)

int tid IN : table id

int row IN : row number

int column IN : column number

float *value IN : actual value

Purpose:Writes table element, float as input argument.
Returns:status
Algorithm:Finds the element position and convert data type if required. Only the FIRST value is written for arrays.

Function

TCESRC

TCESRC(tid, column, value, start, len, first, next)

int tid IN : table id

int column IN : column number

char *value IN : value to search

int start IN : starting position in field

int len IN : how many bytes to compare

int first IN : starting row

int *next OUT: found row number, -1 if not found

Purpose:Search element in character string format.
Returns:status
Algorithm:Search element in the table, using binary or sequential search algorithm.
Note: A zero value for error is used for location on non-character columns.

Function

TCESRD

TCESRD(tid,column,value,verror,first,next)

int tid IN : table id

int column IN : column number

double value IN : value to search

double verror IN : tolerance

int first IN : starting row number

int *next OUT: found row number, -1 if not found

Purpose:Search element in double precision format.
Returns:status
Algorithm:Search element in the table, using binary or sequential search algorithm.
Note: The routine can be used only with columns containing numerical data, implicit conversion of arguments is done if required.

Function

TCESRI

TCESRI(tid, column, value, verror, first, next)

int tid IN : table id

int column IN : column number

int value IN : value to search

int verror IN : tolerance

int first IN : starting row number

int *next OUT: found row number, -1 if not found

Purpose:Search element in integer format.
Returns:status
Algorithm:Search element in the table, using binary or sequential search algorithm.
Note: The routine can be used only with columns containing numerical data, implicit conversion of arguments is done if required.

Function

TCESRR

TCESRR(tid, column, value, verror, first, next)

int tid IN : table id

int column IN : column number

float value IN : value to search

float verror IN : tolerance

int first IN : starting row number

int *next OUT: found row number, -1 if not found

Purpose:Search element, floating point format.
Returns:status
Algorithm:Since, in C, argument in float is converted to double, this routine is identical to TCESRD.

Function

TCEUNM

TCEUNM(tid, address)

int tid IN: table id number

char *address IN: column address

Purpose:Unmap a part of the file that was mapped.
Returns:status (-1 if not mapped)
Algorithm:this routine is identical to TCESRD.

External references:

<tblsys.h><tbldef.h><midas_def.h><tblerr.h><atype.h><macrogen.h>
<math.h>

Module Version 3.0 (24-Feb-1991) Module TCM

Author: J.D.Ponz IPG-ESO Garching

Language: C

Classification: table interface (Design 2.0)

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tcm.c

Environment:

#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <tblerr.h> /* List of Table Errors */

Comments:This module contains the routines handling the table structure as a matrix. The following operations can be performed:

- Allocate memory for the matrix (TCMALL)

- Release memory associated to the matrix (TCMFRE)

- Copy (selected) table entries into the matrix, with implicit type conversion (TCMGET)

- Copy the matrix into the (selected entries of the) table (TCMPUT)

- Obtain the bit pattern used for the representation of NULL values in memory (TCMNUL). History:

[1.0] 25-Mar-1988 Implementation JDP

[3.0] 01-Jul-1990 New Version with Arrays / Elementary IO

Function

TCMALL

TCMALL(type, ncol, nrow, pointer)

char *type IN: column type

int ncol IN: number of columns

int nrow IN: number of rows

int *pointer OUT: pointer to the allocated matrix

Purpose: Allocates memory for the matrix.
Returns: Status
Algorithm:The routine returns the pointer of the allocated memory for the matrix with `ncol' columns and `nrow' rows. The actual space allocated depends on the data type defined by the first argument. Up to 16 different memory areas can be allocated.

Function

TCMFRE

TCMFRE(pointer)

int *pointer IN: pointer to the allocated matrix

Purpose: Releases the memory associated to the pointer.
Returns: Status
Algorithm:The routine uses the pointer to identify the allocated memory and releases it.

Function

TCMGET

TCMGET(tid, pointer, nac, nar)

int tid IN : table id

int *pointer IN : pointer to the allocated matrix

int *nac OUT: actual number of columns

int *nar OUT: actual number of rows

Purpose: Copies the table information into the matrix.
Returns: Status
Algorithm:The information in the table is converted into the matrix internal format, only selected columns and rows are considered. NULL values are also tranfered, use TCMNUL to find out the bit pattern used to represent NULLs in memory. The routine returns the actual number of columns and rows copied. The table must be open (TCTOPN or TCTINI).

Function

TCMPUT

TCMPUT(tid, pointer, nac, nar)

int tid IN : table id

int *pointer IN : pointer to the allocated matrix

int nac IN : actual number of columns

int nar IN : actual number of rows

Purpose: Copies the matrix data into the table.
Returns: Status
Algorithm:The information in the matrix is converted into the table internal format, only selected columns and rows are considered. NULL values are also tranfered. The table must be open (TCTOPN or TCTINI).

Function

TCMCON

TCMCON(tblsel, tdtrue, tdfalse)

float *tblsel OUT: selection flag on

double *tdtrue OUT: double precision true

double *tdfalse OUT: double precision false

Purpose: Obtain the representation in memory of some system constants.
Returns: Status
Algorithm:The routine gives the selection flag and the true and false values in double precision.

Function

TCMNUL

TCMNUL(inull, rnull, dnull)

int *inull OUT: integer null value

float *rnull OUT: float null value

double *dnull OUT: double null value

Purpose: Obtain the representation in memory of NULL values.
Returns: Status
Algorithm:Depending on the system, the representation of NULL values in double and single precision are returned.

External references:

<tblsys.h><tbldef.h><tblerr.h>

Module Version 3.2 (24-Feb-1991) Module TCR

Author: IPG-ESO Garching

Language: C

Classification: table interface (old table system)

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tcr.c

Environment:

#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <tblerr.h> /* List of Table Errors */
#include <atype.h> /* Character classification */
#include <macrogen.h> /* Classical macros */
#include <math.h> /* System Library */

Comments:

This module contains the routines to handle table rows. Access to elements is done by column and row numbers. Elements in the table can be integer, float, double precision and character string data types, as defined during the creation of the columns. Implicit conversion of the element value is done automatically if the input/output is done with a routine not corresponding to the data type.

The functions provided by this module are:

Delete several elements in a row (TCRDEL),
Read several row elements from the table (TCRRDx),
Write several row elements into the table (TCRWRx).

Main arguments used by the routines are:

column: sequential column number. Integer array defining the set of columns to be considered.
null: null flag. It is an array with a value TRUE if the corresponding element is undefined, FALSE otherwise.
row: sequential row number. The sequence number is the physical sequence number (by default) or the sequence corresponding to the index of the reference column.
tid: table identifier. It is an integer number provided by the system when the table is created or opened.
value: row values. The type depends on the routine name. Implicit conversion is done if this type does not correspond to the column data type.

History:

[1.0] 25-Mar-1987 Implementation J.D. Ponz

[1.1] 21-Oct-1987 Modification of the calling sequence

[1.2] 11-Apr-1988 Modification of the calling sequence

[1.3] 11-Jan-1989 Include record file organization

[1.4] 16-Oct-1989 indexing (ifirst-1)

[3.0] 01-Jul-1990 New Version with Arrays / Elementary IO Added Routine TCRSEL

[3.1] 27-Sep-1990 Added TCRMAP TCRUMP

[3.2] 18-Dec-1990: Take into account the number of selected rows.

Function

TCRDEL

TCRDEL(tid, row)

int tid IN : table id

int row IN : row number

Purpose: Deletes all element in the row.
Returns: Status
Algorithm:uses TCEDEL.

Function

TCRRDC

TCRRDC(tid, row, nc, column, value, null)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

char *value OUT: buffer for actual value

int *null OUT: null flag

Purpose: Reads table row as a character string.
Returns: status
Algorithm:Access each single row element with implicit type conversion.

Function

TCRRDD

TCRRDD(tid, row, nc, column, value, null)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

double *value OUT: buffer for actual values

int *null OUT: buffer for null flags

Purpose: Reads table row as a double precision array.
Returns: status
Algorithm:Access each single row element with implicit type conversion.

Function

TCRRDI

TCRRDI(tid, row, nc, column, value, null)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

int *value OUT: buffer for actual values

int *null OUT: buffer for null flags

Purpose: Reads table row as in integer array.
Returns: status
Algorithm:Access each single row element with implicit type conversion.

Function

TCRRDR

TCRRDR(tid, row, nc, column, value, null)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

float value OUT: buffer for actual values

int null OUT: buffer for null flags

Purpose: Reads table row as floating point array.
Returns: status
Algorithm:Access each single row element with implicit type conversion.

Function

TCRSEL

TCRSEL(tid, text, max_ranges, lower_bounds, upper_bounds, found_ranges)

int tid IN : table id

char *text IN : textual designation

int max_ranges IN: Size of lower& upper bound arrays

int *lower_bounds OUT: lower bounds of found ranges

int *upper_bounds OUT: upper bounds of found ranges

int *found_ranges OUT: How many ranges were found

Purpose: Select Ranges defined over the rows.
Returns: Status
Algorithm:A set of rows has the general syntax range[,range]...
where "range" is @lower_row[..[upper_row]]
Example: @1..10,@20,@100.. for rows number 1 to 10, 20 and over 100

Function

TCRWRC

TCRWRC(tid, row, nc, column, value)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

char *value IN : values to write

Purpose: Writes table row
Returns: status
Algorithm:Access each row element with implicit type conversion.

Function

TCRWRD

TCRWRD(tid, row, nc, column, value)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

double *value IN : array with values

Purpose: Writes table row from a double precision array.
Returns: status
Algorithm:Access each row element with implicit type conversion.

Function

TCRWRI

TCRWRI(tid, row, nc, column, value)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

int *value IN : data array

Purpose: Writes table row from an integer array of values.
Returns: status
Algorithm:Access each row element with implicit type conversion.

Function

TCRWRR

TCRWRR(tid, row, nc, column, value)

int tid IN : table id

int row IN : row number

int nc IN : number of cols.

int *column IN : column numbers

float *value IN : data array

Purpose: Writes table row from a floating point data array.
Returns: status
Algorithm:Access each row element with implicit type conversion.

External references:

<tblsys.h><tbldef.h><tblerr.h><atype.h><macrogen.h><math.h>

Module Version 3.6 (25-Feb-1991) Module TCT

Author: IPG-ESO Garching

Language: C

Classification: table interface

Source file: $MIDASHOME/$MIDVERS/libsrc/tbl/tct.c

Environment:

#include <tblsys.h> /* Table System parameters */
#include <tbldef.h> /* Symbols used for Tables */
#include <midas_def.h> /* General MIDAS Symbols */
#include <tblerr.h> /* List of Table Errors */
#include <macrogen.h> /* Classical macros */

Comments:

This module contains the routines to handle tables as a whole. Table initialization and open table functions return the table identification tid, used by other table routines.

Tables are physically stored on disk in two different formats: by records, corresponding to the natural way of storing sequentially the rows, and transposed, where all the values of a single variable - column - are stored together. It is the responsibility of the user to decide the physical format when initializing the table file.

The functions provided by this module are:

Create or Initialize a table (TCTINI)
Open an existing table (TCTOPN)
Map an opened table to virtual memory (TCTMAP)
Unmap a mapped table (TCTUNM): write modified parts, unmap mapped pieces
Close a table (TCTCLO).

Main arguments used by the routines are:

allcol: number of words per record allocated physically in the table file.
allrow: number of records (rows) allocated physically in the table file.
mode: file opening mode. There are several modes to open a table: F_I_MODE input (TBTOPN), F_O_MODE output (TBTINI), F_IO_MODE input/output (TBTOPN), F_X_MODE scratch (TBTINI), F_D_MODE descriptors only (TBTOPN). These symbols are provided in the file 'midas_def.h' in the directory 'MID_INCLUDE'.
The access mode may be forced to mapping with the F_MAP_FORCE option, or to elementary i/o mode with the F_EIO_FORCE option. The default is EIO mode for tables larger than TBL_EIO_LIMIT bytes, a configuration parameter which may be changed with TCOSET
name: table file name. It is a character string defining the file name of the table as follows: '[path_name]table_name[.ext]', where 'path_name' is the directory path name, defaulted to the working directory, 'table_name' is the name of the file and 'ext' is the file extension, defaulted to 'tbl'.
storage: physical file format. Defined as F_RECORD if the table is stored by records, or F_TRANS for transposed format. These symbols are provided in the file 'midas_def.h' in the directory 'MID_INCLUDE'.
tid: table identifier. It is an integer number provided by the system when the table is created or opened.

History:

[1.0] 25-Mar-1987 Definition J.D. Ponz

[1.1] 21-Oct-1987 Modification of calling sequence

[1.2] 23-Nov-1987 New SC calling sequence

[1.3] 11-Apr-1988 New SC calling sequence

[3.0] 01-Jul-1990 New Version with Arrays / Elementary IO

[3.1] 27-Sep-1990 Added TCTFLU TCTMAP

[3.2] 17-Oct-1990 Added TCTID (Find ID from Name)

[3.3] 29-Oct-1990 Corrected bug in transformation old fmt=>new

[3.4] 06-Dec-1990 Keep Number identical to SC routines. Force change for new NULL values

[3.5] 18-Dec-1990: Added descriptor containaing number of selected rows.

[3.6] 24-Feb-1991: Always close the table, even in read-only mode

Function

TCTCLO

int TCTCLO(tid)

int tid IN : table id

Purpose:Closes table file .
Returns:status
Algorithm:First Unmap, then release used memory.

Function

TCTCRV

int TCTCRV(name, refer_name, mode)

char *name IN : Name of view to create

char *refer_name IN : Name of related table

int mode IN : creation mode (future)

Purpose: Create a view (a table with only a Selection Column) taking columns from another (existing!) table.
Returns: Status
Algorithm:The view is ONLY CREATED. It must later be opened ...

Function

TCTUNM

int TCTUNM(tid)

int tid IN : table id

Purpose:Unmap (Flush) table file
Returns:status
Algorithm:Writes back modified parts and releases used memory.

Function

TCTID

int TCTID(name)

char *name IN: Name to look for

Purpose:Find number from Name
Returns:Corresponding tid / -1 if not found

Function

TCTINI

int TCTINI(name, storage, mode, allcol, allrow, tid)

char *name IN : table name

int storage IN : physical structure on disk

int mode IN : openning mode

int allcol IN : number of words per record alloc.

int allrow IN : number of rows allocated

int *tid MOD: table identifier (try to keep it)

Purpose: Initializes table file on disk and in memory
Returns: Status
Algorithm:Creates output file and opens it according to the desired storage option and mode. The storage option can be by records (F_RECORD) or transposed (F_TRANS). The openning mode can be F_O_MODE for output or F_X_MODE for scratch.
The mode may include modifiers F_MAP_FORCE to force the mapping, F_EIO_FORCE to force an elementary i/o mode, F_ALL_FORCE to force exact numbers of lines / cols. In this last case (F_ALL_FORCE), the number of physical columns to allocate may be given in the 2 leftmost bytes of mode, i.e. mode = (physical_columns*2**16 + F_ALL_FORCE + mode)

Function

TCTMAP

int TCTMAP(tid, addr)

int tid IN : table id

char **addr OUT: Where table Mapped

Purpose: Maps complete Table
Returns: status
Algorithm:Use SCFMAP

Function

TCTOPN

int TCTOPN(name,mode,tid)

char *name IN : table name

int mode IN : openning mode

int *tid MOD: table identifier (try to keep it)

Purpose: Reads table file from disk.
Returns: Status
Algorithm:Opens table file according to the desired mode. The openning mode can be F_I_MODE for input, F_D_MODE for descriptors only, F_IO_MODE for update.
The mode may include modifiers F_MAP_FORCE to force the mapping, or F_EIO_FORCE to force an elementary i/o mode.

External references:

<tblsys.h><tbldef.h><midas_def.h><tblerr.h><macrogen.h>

Module Version [1.00] (26-Apr-1989) Module TBC

Author: J.D.Ponz ESO - Garching

Language: F77

Classification: table interfaces.

Source file: MID_DISK:['MIDASHOME'.'MIDVERS'.LIBSRC.FTOC]TBC.FOR

Environment:

FORTRAN 77 and C standards

Comments:Contains layer between FORTRAN TB interfaces and the TZ interfaces. Version using the length of character strings as an explicit argument. Module related to table columns. History:

[[1.00]] 880408: created

Subroutine

TBCDEL

TBCDEL(TID, COLUMN, NC, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

INTEGER NC OUT: actual number of columns

INTEGER STATUS OUT: status

Purpose: Delete column in a table

Subroutine

TBCINI

TBCINI(TID, TYP, ALEN, FORM, UNIT, LABEL, COLUMN, STATUS)

INTEGER TID IN : table identifier

INTEGER TYP IN : column type

INTEGER ALEN IN : no. of items

CHARACTER*(*) FORM IN : column format

CHARACTER*(*) UNIT IN : column unit

CHARACTER*(*) LABEL IN : column label

INTEGER COLUMN OUT: column number

INTEGER STATUS OUT: status

Purpose: Initialize a column in the table. The column type can be D_xx_FORMAT where 'xx' is 'I1', 'I2' or 'I4' for integer data, 'R4' for float, 'R8' for double precision and 'C' for character.

Subroutine

TBCMAP

TBCMAP(TID, COLUMN, ADDRES, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

INTEGER ADDRES OUT: column address

INTEGER STATUS OUT: status

Purpose: Map column in a table

Subroutine

TBCSER

TBCSER(TID, COLREF, COLUMN, STATUS)

INTEGER TID IN : table identifier

CHARACTER*(*) COLREF IN : column reference

INTEGER COLUMN OUT: column number

INTEGER STATUS OUT: status

Purpose: Search for column by reference (':label' or '#number')

Subroutine

TBCSRT

TBCSRT(TID, NC, COLUMN, SFLAG, STATUS)

INTEGER TID IN : table identifier

INTEGER NC IN : number of columns to sort

INTEGER COLUMN(NC) IN : column numbers

INTEGER SFLAG(NC) IN : sort flag (>0 asc., <0 desc.)

INTEGER STATUS OUT: status

Purpose: Sort table according to the ascending or descending order of the columns.

External references:

MID_DISK:['MIDASHOME'.'MIDVERS'.INCL]ST_DEF.INC
MID_DISK:['MIDASHOME'.'MIDVERS'.INCL]ST_DAT.INC

Module Version [1.00] (26-Apr-1989) Module TBD

Author: J.D.Ponz ESO - Garching

Language: F77

Classification: table interfaces.

Source file: MID_DISK:['MIDASHOME'.'MIDVERS'.LIBSRC.FTOC]TBD.FOR

Environment:

FORTRAN 77 and C standards

Comments:Contains layer between FORTRAN TB interfaces and the TZ interfaces. Version including the length of characters as explicit argument in the calling sequence. Module related to table descriptors. History:

[[1.00]] 880408: created

Subroutine

TBFGET

TBFGET(TID, COLUMN, FORM, LFIELD, TYP, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) FORM OUT: column format

INTEGER LFIELD OUT: field length

INTEGER TYP OUT: column type

INTEGER STATUS OUT: status

Purpose: Reads column format

Subroutine

TBFPUT

TBFPUT(TID, COLUMN, FORM, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) FORM IN : column format

INTEGER STATUS OUT: status

Purpose: Writes column format

Subroutine

TBIGET

TBIGET(TID, COLUMN, ROW, NSC, ACOL, AROW, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN OUT: number of defined columns

INTEGER ROW OUT: number of defined rows

INTEGER NSC OUT: sorted column

INTEGER ACOL OUT: number of words allocated per row

INTEGER AROW OUT: number of rows allocated

INTEGER STATUS OUT: status

Purpose: Reads size parameters

Subroutine

TBIPUT

TBIPUT(TID, COLUMN, ROW, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : number of defined columns

INTEGER ROW IN : number of defined rows

INTEGER STATUS OUT: status

Purpose: Updates size parameters. This routine is only used in connection to the mapping of columns.

Subroutine

TBKGET

TBKGET(TID, COLUMN, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN OUT: index of reference column

INTEGER STATUS OUT: status

Purpose: Get index of reference column

Subroutine

TBKPUT

TBKPUT(TID, COLUMN, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : index of reference column

INTEGER STATUS OUT: status

Purpose: Defines index of reference column

Subroutine

TBLGET

TBLGET(TID, COLUMN, LABEL, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) LABEL OUT: column label

INTEGER STATUS OUT: status

Purpose: Reads column label

Subroutine

TBLPUT

TBLPUT(TID, COLUMN, LABEL, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) LABEL IN : column label

INTEGER STATUS OUT: status

Purpose: Writes column label

Subroutine

TBLSER

TBLSER(TID, LABEL, COLUMN, STATUS)

INTEGER TID IN : table identifier

CHARACTER*(*) LABEL IN : column label

INTEGER COLUMN OUT: column number

INTEGER STATUS OUT: status

Purpose: Search for column by label. Column is set to -1 when the label is not found

Subroutine

TBSGET

TBSGET(TID, ROW, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

LOGICAL VALUE OUT: selection flag

INTEGER STATUS OUT: status

Purpose: Reads row selection flag

Subroutine

TBSPUT

TBSPUT(TID, ROW, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

LOGICAL VALUE IN : selection flag

INTEGER STATUS OUT: status

Purpose: Writes row selection flag

Subroutine

TBSINI

TBSINI(TID, STATUS)

INTEGER TID IN : table identifier

INTEGER STATUS OUT: status

Purpose: Initializes row selection flag

Subroutine

TBUGET

TBUGET(TID, COLUMN, UNIT, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) UNIT OUT: column unit

INTEGER STATUS OUT: status

Purpose: Reads column unit

Subroutine

TBUPUT

TBUPUT(TID, COLUMN, UNIT, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) UNIT IN : column unit

INTEGER STATUS OUT: status

Purpose: Writes column unit

External references:

MID_DISK:['MIDASHOME'.'MIDVERS'.INCL]ST_DEF.INC
MID_DISK:['MIDASHOME'.'MIDVERS'.INCL]ST_DAT.INC

Module Version [1.02] (26-Apr-1989) Module TBE

Author: J.D.Ponz ESO - Garching

Language: F77

Classification: table interfaces.

Source file: MID_DISK:['MIDASHOME'.'MIDVERS'.LIBSRC.FTOC]TBE.FOR

Environment:

FORTRAN 77 and C standards

[[1.00]] 880408: created

[[1.01]] 881012: temporary names for tbesrX

[[1.02]] 890112: Include routines TBESRx

Subroutine

TBEGET

TBEGET(TID, TYPE, ROW, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

CHARACTER*(*) TYPE IN : data type

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

INTEGER VALUE(1) OUT: table element

LOGICAL NULL OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table element variable type (INCLUDED FOR COMPATIBILITY)

Subroutine

TBEPUT

TBEPUT(TID, TYPE, ROW, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

CHARACTER*(*) TYPE IN : argument type

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

INTEGER VALUE(1) IN : table element

INTEGER STATUS OUT: status

Purpose: Writes table element (INCLUDED FOR COMPATIBILITY)

Subroutine

TBEDEL

TBEDEL(TID, ROW, COLUMN, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

INTEGER STATUS OUT: status

Purpose: Deletes table element (set to null)

Subroutine

TBERDC

TBERDC(TID, ROW, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

CHARACTER*(*) VALUE OUT: table element

LOGICAL NULL OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table element as a character string

Subroutine

TBERDD

TBERDD(TID, ROW, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

DOUBLE PRECISION VALUE OUT: table element

LOGICAL NULL OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table element as a double precision variable

Subroutine

TBERDI

TBERDI(TID, ROW, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

INTEGER VALUE OUT: table element

LOGICAL NULL OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table element as an integer variable

Subroutine

TBERDR

TBERDR(TID, ROW, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

REAL VALUE OUT: table element

LOGICAL NULL OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table element as a real variable

Subroutine

TBEWRC

TBEWRC(TID, ROW, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

CHARACTER*(*) VALUE IN : table element

INTEGER STATUS OUT: status

Purpose: Writes table element as a character string

Subroutine

TBEWRD

TBEWRD(TID, ROW, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

DOUBLE PRECISION VALUE IN : table element

INTEGER STATUS OUT: status

Purpose: Writes table element as a double precision variable

Subroutine

TBEWRI

TBEWRI(TID, ROW, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

INTEGER VALUE IN : table element

INTEGER STATUS OUT: status

Purpose: Writes table element as an integer variable

Subroutine

TBEWRR

TBEWRR(TID, ROW, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER COLUMN IN : column number

REAL VALUE IN : table element

INTEGER STATUS OUT: status

Purpose: Writes table element as a real variable

Subroutine

TBESRC

TBESRC(TID, COLUMN, VALUE, START, NB, FIRST, NEXT, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

CHARACTER*(*) VALUE IN : string of characters

INTEGER START IN : starting field position

INTEGER NB IN : number of bytes in the field

INTEGER FIRST IN : row number to start searching

INTEGER NEXT OUT: row number of the element found

INTEGER STATUS OUT: status

Purpose: Search character string in a column.

Subroutine

TBESRD

TBESRD(TID, COLUMN, VALUE, ERROR, FIRST, NEXT, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

DOUBLE PRECISION VALUE IN : value to search

DOUBLE PRECISION ERROR IN : tolerance in the search

INTEGER FIRST IN : row number to start searching

INTEGER NEXT OUT: row number of the element found

INTEGER STATUS OUT: status

Purpose: Search element in a column, double precision version.

Subroutine

TBESRI

TBESRI(TID, COLUMN, VALUE, ERROR, FIRST, NEXT, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

INTEGER VALUE IN : value to search

INTEGER ERROR IN : error in the search

INTEGER FIRST IN : row number to start searching

INTEGER NEXT OUT: row number of the element found

INTEGER STATUS OUT: status

Purpose: Search element in a column (integer variable)

Subroutine

TBESRR

TBESRR(TID, COLUMN, VALUE, ERROR, FIRST, NEXT, STATUS)

INTEGER TID IN : table identifier

INTEGER COLUMN IN : column number

REAL VALUE IN : value to search

REAL ERROR IN : error in the search

INTEGER FIRST IN : row number to start searching

INTEGER NEXT OUT: row number of the element found

INTEGER STATUS OUT: status

Purpose: Search element in a column, real variable

Module Version [1.00] (26-Apr-1989) Module TBM

Author: J.D.Ponz ESO - Garching

Language: F77

Classification: table interfaces.

Source file: MID_DISK:['MIDASHOME'.'MIDVERS'.LIBSRC.FTOC]TBM.FOR

Environment:

FORTRAN 77 and C standards

[[1.00]] 880408: created

Subroutine

TBMCON

TBMCON(TBLSEL, TDTRUE, TDFALS)

REAL TBLSEL OUT: selection flag

DOUBLE PRECISION TDTRUE OUT: double precision true

DOUBLE PRECISION TDFALS OUT: double precision false

Purpose: Get some constants

Subroutine

TBMNUL

TBMNUL(TINULL, TRNULL, TDNULL)

INTEGER TINULL OUT: integer null

REAL TRNULL OUT: real null

DOUBLE PRECISION TDNULL OUT: double precision null

Purpose: Get null value representation

Module Version [1.00] (26-Apr-1989) Module TBR

Author: J.D.Ponz ESO - Garching

Language: F77

Classification: table interfaces.

Source file: MID_DISK:['MIDASHOME'.'MIDVERS'.LIBSRC.FTOC]TBR.FOR

Environment:

FORTRAN 77 and C standards

[[1.00]] 880408: created

Subroutine

TBRGET

TBRGET(TID, TYPE, ROW, NC, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

CHARACTER*(*) TYPE IN : data type

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column number

INTEGER VALUE(1) OUT: table element

LOGICAL NULL(NC) OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table row variable type (Implemented for compatibility mode)

Subroutine

TBRPUT

TBRPUT(TID, TYPE, ROW, NC, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

CHARACTER*(*) TYPE IN : argument type

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column number

INTEGER VALUE(1) IN : table element

INTEGER STATUS OUT: status

Purpose: Writes table row (Implemented for compatibility mode)

Subroutine

TBRDEL

TBRDEL(TID, ROW, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER STATUS OUT: status

Purpose: Deletes table row (set to null)

Subroutine

TBRRDC

TBRRDC(TID, ROW, NC, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

CHARACTER*(*) VALUE OUT: table row

LOGICAL NULL(NC) OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table row as a character string

Subroutine

TBRRDD

TBRRDD(TID, ROW, NC, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

DOUBLE PRECISION VALUE(NC) OUT: table row

LOGICAL NULL(NC) OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table row as a double precision variable

Subroutine

TBRRDI

TBRRDI(TID, ROW, NC, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

INTEGER VALUE(NC) OUT: table row

LOGICAL NULL(NC) OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table row as an integer variable

Subroutine

TBRRDR

TBRRDR(TID, ROW, NC, COLUMN, VALUE, NULL, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

REAL VALUE(NC) OUT: table row

LOGICAL NULL(NC) OUT: null flag

INTEGER STATUS OUT: status

Purpose: Reads table row as a real variable

Subroutine

TBRWRC

TBRWRC(TID, ROW, NC, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

CHARACTER*(*) VALUE IN : table row

INTEGER STATUS OUT: status

Purpose: Writes table row as a character string

Subroutine

TBRWRD

TBRWRD(TID, ROW, NC, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

DOUBLE PRECISION VALUE(NC) IN : table row

INTEGER STATUS OUT: status

Purpose: Writes table row as a double precision variable

Subroutine

TBRWRI

TBRWRI(TID, ROW, NC, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

INTEGER VALUE(NC) IN : table row

INTEGER STATUS OUT: status

Purpose: Writes table row as an integer variable

Subroutine

TBRWRR

TBRWRR(TID, ROW, NC, COLUMN, VALUE, STATUS)

INTEGER TID IN : table identifier

INTEGER ROW IN : row number

INTEGER NC IN : number of columns

INTEGER COLUMN(NC) IN : column index

REAL VALUE(NC) IN : table row

INTEGER STATUS OUT: status

Purpose: Writes table row as a real variable

Module Version [1.00] (26-Apr-1989) Module TBT

Author: J.D.Ponz ESO - Garching

Language: F77

Classification: table interfaces.

Source file: MID_DISK:['MIDASHOME'.'MIDVERS'.LIBSRC.FTOC]TBT.FOR

Environment:

FORTRAN 77 and C standards

Comments:Contains layer between FORTRAN TB interfaces and the TZ interfaces. Version using the length of character strings as an explicit argument. Module related to the table handling. History:

[[1.00]] 880408: created

Subroutine

TBTCLO

TBTCLO(TID, STATUS)

INTEGER TID IN : table identifier

INTEGER STATUS OUT: status

Purpose: Closes table file

Subroutine

TBTINI

TBTINI(NAME, STORE, MODE, ACOL, AROW, TID, STATUS)

CHARACTER*(*) NAME IN : table name

INTEGER STORE IN : physical structure on disk (0/1)

INTEGER MODE IN : opening mode

INTEGER ACOL IN : number of words per row

INTEGER AROW IN : number of rows

INTEGER TID OUT: table identifier

INTEGER STATUS OUT: status

Purpose: Initialize and open table file. STORE defines the physical allocation on disk as : F_RECORD table stored per records, F_TRANS table stored in transposed form. MODE defines the mode of file access as : F_O_MODE for output or F_X_MODE for scratch.

Subroutine

TBTOPN

TBTOPN(NAME, MODE, TID, STATUS)

CHARACTER*(*) NAME IN : table name

INTEGER MODE IN : opening mode

INTEGER TID OUT: table identifier

INTEGER STATUS OUT: status

Purpose: Opens table file. MODE defines the mode of file access as F_I_MODE for input or F_IO_MODE for update, F_D_MODE for descriptors only. only.

External references:

MID_DISK:['MIDASHOME'.'MIDVERS'.INCL]ST_DEF.INC
MID_DISK:['MIDASHOME'.'MIDVERS'.INCL]ST_DAT.INC

Next: Graphics Interfaces Up: No Title Previous: Standard Interfaces

int tid	IN : table id
int row	IN : row number
int col	IN : column number
char **addr	OUT: element adress

int tid	IN : table id
char *abin	IN : values to edit
int col	IN : column number
int index	IN : index number
int items	IN : how many
char *buffer	OUT: edited value

int tid	IN: table id number
int column	IN: column number
int *ncol	OUT:actual number of columns

int tid	IN: table id number
int dtype	IN: column data type (Midas)
int alen	IN: no. of array items
char *form	IN: column form
char *unit	IN: column unit
char *label	IN: column label
int *column	OUT:column number

int tid	IN : table id
char *text	IN : textual designation
int max_cols	IN: Size of cols & flags arrays
int *cols	OUT: column numbers
int *flags	OUT: column flags (in brackets)
int *found_cols	OUT: How many columns were found

int tid	IN : table id
char *colref	IN : column reference
int *column	OUT: column number

int tid	IN : table id
int nc	IN : number of columns
int column	IN : column numbers
int sortfl	IN : sort flag

int tid	IN: table id number
char *address	IN: column address

int tid	IN : table ident
int column	IN : column number
int *dtype	OUT: data type
int *items	OUT: array size
int *bytes	OUT: storage required

int tid	IN : table id
int *store	OUT: physical format on disk

char *op_name	IN : Name of option
int *value	OUT: Option's value

char *op_name	IN : Name of option
int value	IN : Option's value

int tid	IN : table id
int *count	out: number of selected entries

char *type	IN: column type
int ncol	IN: number of columns
int nrow	IN: number of rows
int *pointer	OUT: pointer to the allocated matrix

float *tblsel	OUT: selection flag on
double *tdtrue	OUT: double precision true
double *tdfalse	OUT: double precision false

int *inull	OUT: integer null value
float *rnull	OUT: float null value
double *dnull	OUT: double null value

char *name	IN : Name of view to create
char *refer_name	IN : Name of related table
int mode	IN : creation mode (future)

char *name	IN : table name
int storage	IN : physical structure on disk
int mode	IN : openning mode
int allcol	IN : number of words per record alloc.
int allrow	IN : number of rows allocated
int *tid	MOD: table identifier (try to keep it)

INTEGER TID	IN : table identifier
INTEGER COLUMN	IN : column number
INTEGER NC	OUT: actual number of columns
INTEGER STATUS	OUT: status

INTEGER TID	IN : table identifier
INTEGER TYP	IN : column type
INTEGER ALEN	IN : no. of items
CHARACTER() FORM	IN : column format
CHARACTER() UNIT	IN : column unit
CHARACTER() LABEL	IN : column label
INTEGER COLUMN	OUT: column number
INTEGER STATUS	OUT: status

INTEGER TID	IN : table identifier
CHARACTER() COLREF	IN : column reference
INTEGER COLUMN	OUT: column number
INTEGER STATUS	OUT: status

INTEGER TID	IN : table identifier
INTEGER ROW	IN : row number
LOGICAL VALUE	OUT: selection flag
INTEGER STATUS	OUT: status

INTEGER TID	IN : table identifier
CHARACTER() TYPE	IN : data type
INTEGER ROW	IN : row number
INTEGER COLUMN	IN : column number
INTEGER VALUE(1)	OUT: table element
LOGICAL NULL	OUT: null flag
INTEGER STATUS	OUT: status

REAL TBLSEL	OUT: selection flag
DOUBLE PRECISION TDTRUE	OUT: double precision true
DOUBLE PRECISION TDFALS	OUT: double precision false

INTEGER TINULL	OUT: integer null
REAL TRNULL	OUT: real null
DOUBLE PRECISION TDNULL	OUT: double precision null

CHARACTER() NAME	IN : table name
INTEGER STORE	IN : physical structure on disk (0/1)
INTEGER MODE	IN : opening mode
INTEGER ACOL	IN : number of words per row
INTEGER AROW	IN : number of rows
INTEGER TID	OUT: table identifier
INTEGER STATUS	OUT: status