Routines to convert or copy files

Convert RZ file to FZ exchange format

CALL XZRTOF (CHRZ,CHFZ,LRECL,CHOPT,IRC)

CHRZ

Character string giving the name of the RZ file to be converted.

CHFZ

Character string giving the name of the output FZ file.

LRECL

Integer variable specifying the record length for the output file in bytes. If not specified, a default of 3600 bytes will be used for binary exchange format files and 80 bytes for alpha exchange format files.

CHOPT

Character variable specifying the options required

A

Output file should be in alpha exchange format (default is binary).

C

Respect case of input and output file names

R

Replace output file, if it exists

IRC

Integer variable in which the completion status is returned.

This routine will convert a ZEBRA RZ file into FZ exchange format. The resultant file may then be transferred to another system and reconverted using XZRFRF.

Example of using the XZRTOF routine

*
*     Convert an RZ file to a FZ alpha file
*
      CALL XZRTOF('NTUPLE.DAT','NTUPLE.FA',0,'A',IRC)

Convert RZ file from FZ exchange format

CALL XZRFRF (CHFZ,CHRZ,LRECL,CHOPT,IRC)

CHFZ

Character string giving the name of the FZ file to be converted.

CHRZ

Character string giving the name of the output RZ file.

LRECL

Integer variable specifying the record length for the output file in bytes. If not specified, the record length of the original RZ file is used.

CHOPT

Character variable specifying the options required

C

Respect case of input and output file names

R

Replace output file, if it exists

X

Output file should be in exchange format (default is native).

IRC

Integer variable in which the completion status is returned.

This routine will convert a ZEBRA FZ file created using the routine XZRTOF into FZ exchange format.

Example of using the XZRFRF routine

*
*     Convert an FZ exchange file back into an RZ file
*     Override the record length in the process
*
      CALL XZRTOF('NTUPLE.FX','NTUPLE.RZ',16384,'X',IRC)

CHIN

Character string giving the name of the file to be converted.

CHOUT

Character string giving the name of the output file.

LRECL

Integer variable giving the record length of the input file in bytes. In case of option X, the record length is automatically determined from the file itself.

CHOPT

Character string specifying the options required.

C

Respect case of input and output file names

R

Replace output file, if it exists

X

Input file is in ZEBRA exchange format

IRC

Integer variable in which the return code is returned.

Example of using the XZCTOF routine

*
*     Convert an FZ file for processing with FORTRAN
*
      CALL XZCTOF('FXFILE.DAT','FXFILE.OUT',0,'X',IRC)

CHIN

Character string giving the name of the file to be converted.

CHOUT

Character string giving the name of the output file.

LRECL

Integer variable giving the record length of the input file in bytes. In case of option X, the record length is automatically determined from the file itself.

CHOPT

Character string specifying the options required.

C

Respect case of input and output file names

R

Replace output file, if it exists

X

Input file is in ZEBRA exchange format

IRC

Integer variable in which the return code is returned.

Example of using the XZFTOC routine

*
*     Convert an EPIO file for ftp-ing to another system
*
      CALL XZFTOC('EPIO.DAT','EPIO.OUT',3600,' ',IRC)

CHIN

Character string giving the name of the file to be copied.

CHOUT

Character string giving the name of the output file.

IRECL

Integer variable giving the record length of the input file. The record length need only be specified in case of option Z below.

IFORM

Character variable giving the format of the output file

A

Input file is in alpha exchange format

N

Input file is in exchange file format, but native data

X

Input file is in binary exchange format

Z

Input file is in native data and file format

ORECL

Integer variable giving the record length of the output file. If not specified, the input record length will be taken, except for alpha exchange mode files, where a record length of 80 will be used.

OFORM

Character variable giving the format of the input file

A

Output file is in alpha exchange format

N

Output file is in exchange file format, but native data

X

Output file is in binary exchange format

Z

Output file is in native data and file format

CHOPT

Character string specifying the options required.

C

Respect case of input and output file names

R

Replace output file, if it exists

IRC

Integer variable in which the return code is returned.

Example of using the XZFZCP routine

*
*     Copy an alpha FZ file to a native FZ file
*
      CALL XZFZCP('fafile.dat','fzfile.dat',0,'A',32400,'Z',IRC)

CHIN

Character string giving the name of the file to be copied.

CHOUT

Character string giving the name of the output file.

LRECL

Integer variable giving the record length for the output file. The record length of the input file will be used if a value of 0 is given for LRECL.

CHOPT

Character string specifying the options required.

C

Respect case of input and output file names

N

Output file should be in native format (default)

R

Replace output file, if it exists

X

Output file should be in exchange format

IRC

Integer variable in which the return code is returned.

Example of using the XZRZCP routine

*
*     Copy an ntuple, changing the record length and
*     data representation at the same time
*
      CALL XZRZCP('HRZTEST.DAT','hrztest.rz',8192,'CX',IRC)