Next: Supplementary Routines Up: Dialogue/String Manipulation Routines Previous: Dialogue/String Manipulation Routines

Overview

These routines may be used with internal and external interface programs. They enable communication between the interface program and the command line area whilst running FEMGV. Some case and format conversion routines are also provided. These routines operate in the same manner on all machine types.

UA1A4SubroutineTo convert a sub-string in A1 format to A4 format.

CALL UA1A4(ISTRNG,IFIRST,ILAST,JFIRST,RSTRNG,JLAST)

$\begin{parameters} \param{ISTRNG}{Integer Array size (*)}{In}{Array with text in... ...LAST}{Integer}{Out}{Position of last word used in output string}\end{parameters}$

UA1CHASubroutineTo convert a string in A1 format to character format.

CALL UA1CHA(ISTRNG,NCONV,CSTRNG)

$\begin{parameters} \param{ISTRNG}{Integer Array size (*)}{In}{Array with text in... ...STRNG}{Character*(*)}{Out}{Array with text in character format.}\end{parameters}$

UA4A1SubroutineTo convert a sub-string in A4 format to A1 format.

CALL UA4A1(RSTRNG,IFIRST,ILAST,JFIRST,ISTRNG,JLAST)

$\begin{parameters} \param{RSTRNG}{Real Array size (*)}{In}{Array with text in A4... ...RNG}{Integer Array size (*)}{Out}{Array with text in A1 format.}\end{parameters}$

UCCONVSubroutineConvert a string from lower to upper case.

CALL UCCONV(ISTRNG,IFIRST,ILAST)

$\begin{parameters} \param{ISTRNG}{Integer Array size (*)}{In/Out}{String in A1 f... ...m{ILAST}{Integer}{In}{Position of last character of sub-string.}\end{parameters}$

UCHAA4SubroutineTo convert from character string to a4 characters.

CALL UCHAA4(CSTRNG,JFIRST,RSTRNG,JLAST)

$\begin{parameters} \param{CSTRNG}{Character Array *(*)}{In}{Character string ter... ...RSTRNG}{Real Array size (*)}{Out}{Array with text in A4 format.}\end{parameters}$

UDATESubroutineGet the date and time.

CALL UDATE(IDAY,IMONTH,IYEAR,IHOUR,IMIN,ISEC)

$\begin{parameters} \param{IDAY}{Integer}{Out}{Days(1-31)} \param{IMONTH}{Integer... ...MIN}{Integer}{Out}{Minutes} \param{ISEC}{Integer}{Out}{Seconds} \end{parameters}$

UDECODSubroutineDecode a token from a line of text.

CALL UDECOD(ISTRNG,ISTART,IEND,IWANT,ITYPE,IFIRST,ILAST,
IVALUE,RVALUE)

$\begin{parameters} \param{ISTRNG}{Integer Array size 80}{In}{Line of text in A1 ... ...value of token.} \param{RVALUE}{Real}{Out}{Real value of token.}\end{parameters}$

This routine is used to locate, identify, and decode a token from a line of text. A token is defined as any group of non blank characters. Each token is assumed to be delimited by one or more blank characters. A start and end pointer are given to define the range over which to look for a token. The routine will locate the first token which it finds in that range. A desired token type may optionally be given.

UREADSubroutineRead a line of text from the keyboard.

CALL UREAD(IPRMPT,NCHRS,IUPPER,ILOG,JSTRNG,IEXIT)

$\begin{parameters} \param{IPRMPT}{Integer Array size 80}{In}{Prompt text in A1 f... ...t 'GO'. \\ -3 & No more pre-loaded commands. \\ \end{tabular}} \end{parameters}$

USINITSubroutineInitialise an array of A1 characters to blanks.

CALL USINIT(ISTRNG,IFIRST,ILAST)

$\begin{parameters} \param{ISTRNG}{Integer array size 80}{In/Out}{Array of text i... ...ST}{Integer}{In}{Position of last character to be set to blank.}\end{parameters}$

USLCHASubroutineTo load a character string into an A1 array.

CALL USLCHA(CSTRNG,IFIRST,JSTRNG,ILAST)

$\begin{parameters} \param{CSTRNG}{Character Array *(*)}{In}{Character string ter... ...T}{Integer}{Out}{Position of last word containing A1 character.}\end{parameters}$

USLFLOSubroutineTo load a real into an A1 array.

CALL USLFLO(RVAL,NSIGDI,JFIRST,JSTRNG,JLAST)

$\begin{parameters} \param{RVAL}{Real}{In}{Real to be placed in string.} \param{N... ...AST}{Integer}{Out}{Position of last character in output string.}\end{parameters}$

USLINTSubroutineTo load an integer into an A1 array.

CALL USLINT(IVAL,JFIRST,JSTRNG,JLAST)

$\begin{parameters} \param{IVAL}{Integer}{In}{Integer to be placed in string.} \p... ...AST}{Integer}{Out}{Position of last character in output string.}\end{parameters}$

UWRITESubroutineWrite a line of text to the screen.

CALL UWRITE(ISTRNG,NCHRS)

$\begin{parameters} \param{ISTRNG}{Integer Array size 80}{In}{Output string in A1... ...nteger}{In}{Number of characters in ISTRNG or 0 for blank line.}\end{parameters}$

Next: Supplementary Routines Up: Dialogue/String Manipulation Routines Previous: Dialogue/String Manipulation Routines

Femsys Limited
8/18/1999