## All Purpose General Subroutines

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

These routines are of more general use than SIC itself.

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