| fe4da5cc |
1 | * |
| 2 | * $Id$ |
| 3 | * |
| 4 | * $Log$ |
| 5 | * Revision 1.1.1.1 1996/02/15 17:49:29 mclareni |
| 6 | * Kernlib |
| 7 | * |
| 8 | * |
| 9 | SUBROUTINE GETENVF (CHSYM,CHTEXT) |
| 10 | |
| 11 | C CERN PROGLIB# Z265 GETENVF .VERSION KERNVAX 2.36 910306 |
| 12 | C ORIG. 31/07/90, JZ |
| 13 | C MOD. 11/01/91, JZ, change name to GETENVF |
| 14 | |
| 15 | C- Simulate UNIX system call |
| 16 | |
| 17 | COMMON /SLATE/ NTEXT, ISTAT, ISLATE(38) |
| 18 | CHARACTER CHSYM*(*), CHTEXT*(*) |
| 19 | |
| 20 | NALL = 0 |
| 21 | NSYM = LNBLNK (CHSYM) |
| 22 | IF (NSYM.LE.0) THEN |
| 23 | ISTAT = -7 |
| 24 | NALL = 0 |
| 25 | GO TO 27 |
| 26 | ENDIF |
| 27 | |
| 28 | IF (NSYM.NE.4) GO TO 21 |
| 29 | IF (CHSYM(1:4).NE.'HOME') GO TO 21 |
| 30 | ISTAT = LIB$SYS_TRNLOG ('SYS$LOGIN',NALL,CHTEXT,,,%VAL(0)) |
| 31 | GO TO 24 |
| 32 | |
| 33 | 21 ISTAT = LIB$GET_SYMBOL (CHSYM(1:NSYM),CHTEXT,NALL) |
| 34 | 24 IF (ISTAT) THEN |
| 35 | ISTAT = 0 |
| 36 | ELSE |
| 37 | NALL = 0 |
| 38 | ENDIF |
| 39 | |
| 40 | 27 CHTEXT(NALL+1:) = ' ' |
| 41 | NTEXT = NALL |
| 42 | RETURN |
| 43 | END |
git://git.uio.no / u / mrichter / AliRoot.git / blame