]>
Commit | Line | Data |
---|---|---|
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 | INTEGER FUNCTION RENAMEF (FROM,TO) | |
10 | C | |
11 | C CERN PROGLIB# Z265 RENAMEF .VERSION KERNVAX 2.36 910306 | |
12 | C ORIG. 06/03/91, JZ | |
13 | C Fortran interface routine to rename | |
14 | C | |
15 | CHARACTER*(*) FROM, TO | |
16 | ||
17 | LGFR = LNBLNK (FROM) | |
18 | LGTO = LNBLNK (TO) | |
19 | ISTAT = LIB$RENAME_FILE (FROM(1:LGFR), TO(1:LGTO)) | |
20 | ||
21 | IF (ISTAT) ISTAT = 0 | |
22 | RENAMEF = ISTAT | |
23 | RETURN | |
24 | END |