Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/fname.dc2 Дата изменения: Thu Jan 23 17:11:07 1992 Дата индексирования: Fri Jan 16 00:09:27 2009 Кодировка: Поисковые слова: ч нн

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.