Routine ID: Z034 | |
---|---|
Author(s): SW group | Library: KERNLIB |
Submitter: F. James | Submitted: 04.02.1986 |
Language: Fortran and Assembler | Revised: |
OBSOLETE
Please note that this routine has been obsoleted in CNL 219. Users are
advised not to use it any longer.
No maintenance for it will take place and it will eventually disappear.
Suggested replacement: None
Subroutine subprogram WHICH can be used to determine on which computer a job is executing.
Structure:
SUBROUTINE subprograms
User Entry Names: WHICH
Usage:
CALL WHICH(ISIT,VAL)
2-31c| | ISIT | 1c|VAL |
Unknown | 0 | 4H |
VAX 8600 (VMS4) | 1 | 4H8600 |
CDC 7600 (SCOPE 2.1) | 2 | 4H7600 |
CDC frontends | 3 | 4H6400 |
IBM 370/168 (MVS) | 4 | 4H/168 |
IBM 3032 (MVS) | 5 | 4H3032 |
IBM 3081 (MVS) | 6 | 4H3081 |
SIEMENS 7890 (MVS) | 7 | 4H7890 |
IBM 3090 (MVS) | 8 | 4H3090 |
Apollo | 9 | 4HAPO |
Siemens 7890 (VM/CMS) | 10 | 4H7890 |
IBM 3090 (VM/CMS) | 11 | 4H3090 |