Function:     FNAME

Purpose:      Translates GIPSY filenames to legal filenames
              (if necessary).

Category:     FILES

File:         fname.c

Author:       K.G. Begeman

Use:          INTEGER FNAME( INFILE  ,      Input    CHARACTER*(*)
                             OUTFILE )      Output   CHARACTER*(*)

              FNAME      Returns -1 on error, otherwise 0.
              INFILE     File name to be translated.
              OUTFILE    Translated file name. If not translatable,
                         contents of INFILE are copied to OUTFILE.

Example:      INTEGER       FNAME
              CHARACTER*80  FILENAME

              ...
              IF (FNAME( 'DB1:ROTCUR.DAT', FILENAME ) .EQ. 0)
              THEN
                 OPEN(UNIT=LUN,FILE=FILENAME,...)
                 ...
                 CLOSE(UNIT=LUN)
              ENDIF

Action:       FNAME converts the input Gipsy filename to a legal
              filename which is understood by the Fortran open
              or C fopen statement. A Gipsy filename has the
              following syntax:
              filename   : device + separator + name
                           name
              device     : string of legal chars
              separator  : {':'}
              name       : string of legal chars
              legal chars: one of {'0' '1' '2' '3' '4' '5' '6' '7'
                                   '8' '9' 'A' 'B' 'C' 'D' 'E' 'F'
                                   'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N'
                                   'O' 'P' 'Q' 'R' 'S' 'T' 'U' 'V'
                                   'W' 'X' 'Y' 'Z' 'a' 'b' 'c' 'd'
                                   'e' 'f' 'g' 'h' 'i' 'j' 'k' 'l'
                                   'm' 'n' 'o' 'p' 'q' 'r' 's' 't'
                                   'u' 'v' 'w' 'x' 'y' 'z' '_' '.'}

Warning:      System dependent!

Updates:      Oct 17, 1988: KGB Document created.
              Aug 17, 1990: KGB Migrated to portable GIPSY.