Retrieves values from IBIS file which are used to set TAE globals and to create a global parameter file.
Retrieves particular values specified by the row and column index from an IBIS tabular file and sets the indicated TAE globals with the appropriate values. The current values of the TAE globals $OFFL, $OFFS, $XNL, $XNS, and $MEANZ are also saved in a global parameter file so that, if necessary, they can be restored in a later session.
- INFILE
- Input file. The input file is an IBIS tabular file. This file should contain data for the frame number specified in the FRAMNUM parameter.
- FRAMNUM(1)
- Frame number. The frame number is used as the index for the global variable arrays.
- PARFILE
- Parameter file. The current values of the TAE globals $OFFL, $OFFS, $XNL, $XNS, and $MEANZ are saved in this file so that they can be restored later on by running the program SETGBLS. Note that if the specified file already existed on disk, its contents will be overwritten with the current values of these globals.
- PARNAME($OFFL,$OFFS,$XNL,$XNS)
- Parameter names. The name of the TAE global variables(s) to be set. These globals are multi-dimensioned arrays.
= $OFFL: Offset line number = $OFFS: Offset sample number = $XNL: Number of lines in transformed image = $XNS: Number of samples in transformed image = $MEANZ: Mean Delta Z
- ROWNUM(1,1,1,1)
- Row numbers. The row numbers used to locate the values in the IBIS tabular file. The PARNAME, ROWNUM, and COLNUM parameters work together. The first value in ROWNUM and the first value in COLNUM are used to locate the value that is used to set the global that was entered first in PARNAME and so on.
- COLNUM(4,5,8,9)
- Column numbers. The column numbers used to locate the values in the IBIS tabular file. The PARNAME, ROWNUM, and COLNUM parameters work together. The first value in ROWNUM and the first value in COLNUM are used to locate the value that is used to set the global that was entered first in PARNAME and so on.
The value from row 1, column 18 in IN;IBIS.TAB is used to update the TAE global variable $MEANZ(12). The values of $OFFL, $OFFS, $XNL, $XNS, and $MEANZ are then saved in the file GBLS;TXT.
The value from row 1, column 4 in IN;IBIS.TAB is used to update the TAE global variable $OFFL(5), while the value in row 1, column 5 is used to update $OFFS(5). The values of $OFFL, $OFFS, $XNL, $XNS, and $MEANZ are then saved in the file GBLS;TXT.
The program begins by getting the user-specified parameters and the current values of the TAE globals $OFFL, $OFFS, $XNL, $XNS, and $MEANZ. The existence of the input IBIS tabular file is checked. This file is then opened and the necessary values are retrieved from the specified locations. The values in the IBIS file are REAL*4; however, they are rounded to the nearest integer so that the indicated INTEGER*4 globals can be updated with the appropriate value. The current values of the TAE globals $OFFL, $OFFS, $XNL, $XNS, and $MEANZ are then saved in the file specified by the PARFILE parameter.
An error was encountered while closing the <XXXXX> file. The data may still be valid.
A column location was specified in COLNUM that is not in the IBIS tabular file.
A fatal error was encountered during processing. The values of the globals are not changed. The global parameter file is not valid. The description of the error encountered should be given in the preceding message.
An error was encountered while trying to open the specified file.
An error was encountered while trying to read from the specified IBIS tabular file.
A row location was specified in ROWNUM that is not in the IBIS tabular file.
The ROWNUM, COLNUM, and PARNAME parameters work together, and the same number of values must be entered for each one.