Function:     TRALOG

Purpose:      Translates logical name to equivalence name.

File:         tralog.c

Author:       K.G. Begeman

Use:          INTEGER TRALOG( LOGNAME,     Input      CHARACTER*(*)
                              EQUNAME )    Output     CHARACTER*(*)

              TRALOG        Returns:
                            >0     success, length of equivalence string
                            -1     logical name does not translate
                            -2     output buffer to small to contain
                                   equivalence name
                            other  unidentified error
              LOGNAME       Logical name to be translated.
              EQUNAME       Equivalence name after successful
                            translation.

Notes:        TRALOG translates on VMS systems first logical names
              in the LNM$JOB table (i.e. those created with
              DEFINE/JOB), and second in the LNM$PROCESS table (i.e.
              those created with DEFINE/PROCESS). On UNIX systems it
              translates the names created with setenv.

Updates:      Jul 18, 1989: KGB, Document created.