| Routine ID: Z204 | |
|---|---|
| Author(s): J. Zoll | Library: KERNLIB, Cray only |
| Submitter: | Submitted: 01.02.1979 |
| Language: Fortran | Revised: 01.12.1981 |
OBSOLETE
Please note that this routine has been obsoleted in CNL 219. Users are
advised not to use it any longer and to replace it in older programs.
No maintenance for it will take place and it will eventually disappear.
Suggested replacement: None
FNBLAN, FNZERO produce blank- or zero-fill of a word containing a Cray file name, 7 characters left-justified with zero- or blank-fill. The initial contents of characters 8-10 are ignored. Filling operates right to left, replacing zero (blank) by blank (zero) until the first non-zero (non-blank) character is found.
FNNUM acts as do-nothing if the parameter is already a file-name. If the parameter is an integer n with 0 < n < 99, the routine interpretes n as a logical unit number and converts it to the file name TAPEn with zero-fill.
Structure:
SUBROUTINE subprograms
User Entry Names: FNBLAN, FNZERO, FNNUM
Usage:
CALL FNBLAN(NAME)creates blank-fill in NAME as described above.
CALL FNZERO(NAME)creates zero-fill in NAME as described above.
CALL FNNUM(NAME)converts logical unit number NAME to a CDC file name as described above.
Notes:
For FNBLAN and FNZERO the initial content of NAME
must be a file name, not a logical unit number.