All Purpose General Subroutines

Available subroutines:
          SIC_LOWER       SIC_PARSEF      SIC_UPPER       SIC_WPR
          SIC_WPRN
Available functions
          SIC_GETVM       FREE_VM         LENC

These routines are of more general use than SIC itself.

  INTEGER FUNCTION SIC_GETVM(N32,ADDR)

SIC_GETVM allocates virtual memory for N32 32-bit words, and returns the allocated address space into variable ADDR. SIC_GETVM is set to 1 in case of success, to other values otherwise.

  SUBROUTINE FREE_VM(N32,ADDR)

FREE_VM can be used to free the corresponding adress space when no longer needed.

    SUBROUTINE SIC_LOWER(LINE) - SIC_UPPER(LINE)

Converts the string LINE to lower or upper case letters respectively.

  SUBROUTINE SIC_PARSEF (NAME,FILE,DEF,EXT)

Parses the file name FILE for a default directory DEF and extension type EXT. These item are added to FILE if needed, and NAME returns the short NAME of the file, that is, the name without extension or directory. All arguments are Character*(*). This is the standard way to obtain a file name in the GILDAS environment: this routine takes care of logical names (in the SIC meaning).   SUBROUTINE SIC_WPR(PROMPT,LINE)

Reads the string LINE with the prompt PROMPT. It tries to obtain a non-blank string, prompting again if it reads a blank string. If it receives a <^Z> code, it returns the string "EXIT". The prompt is automatically disabled if the session is not interactive.

• PROMPT Character*(*), Unchanged by SIC_WPR
• LINE Character*(*), Returned line.

  SUBROUTINE SIC_WPRN(PROMPT,LINE,N)

Reads the string LINE with the prompt PROMPT. Returns N the number of characters read. Returns N=0 if it reads a blank line, or receives a <^Z> code. The prompt is automatically disabled if the session is not interactive.

• PROMPT Character*(*), Unchanged by SIC_WPRN
• LINE Character*(*), Returned line.
• N Integer, Number of characters in LINE

  INTEGER FUNCTION LENC(LINE)

Returns the ``current'' length of the string LINE, that is the position of the last significant character. It thus allows to ignore trailing blanks.