CALL FMNICK (LUN,CHFILE,CHNICK,CHNAME,CHDESC,CHOPT,IRC*)
The syntax for the filename is as follows:
This routine searches in the specified or default names file for the generic name and description that matches the specified nick name. If the nick name contains a slash, then the characters after the slash are treated as a range and appended to the value of the :GNAME tag. Only characters upto the character before the slash are used to find the names file entry.
A range may be given in the standard FATMEN form (mm:nn) or as mm-nn.
An example of using the FMNICK routine
character*80 chname,chdesc
call fmnick(1,'fmdelphi.names','RAWD91',chname,chdesc,' ',irc)
print *,chname(1:lenocc(chname))
print *,chdesc(1:lenocc(chdesc))
call fmnick(1,'fmdelphi.names','LEPT92/(10:20)',
+ chname,chdesc,' ',irc)
print *,chname(1:lenocc(chname))
print *,chdesc(1:lenocc(chdesc))
call fmnick(1,'fmdelphi.names','RAWD91/17-77',
+ chname,chdesc,' ',irc)
print *,chname(1:lenocc(chname))
print *,chdesc(1:lenocc(chdesc))
end
The names file used in the above example
:NICK.RAWD92 :GNAME.P01_ALLD/RAWD/NONE/Y92V00/*/R:DESC.RAW data of ALL events; 1992 data *---------------------------------------------------* :NICK.RAWD91 :GNAME.P01_ALLD/RAWD/NONE/Y91V00/*/R :DESC.RAW data of ALL events; 1991 data *---------------------------------------------------* :NICK.RAWD90 :GNAME.P01_ALLD/RAWD/NONE/Y90V00/*/R :DESC.RAW data of ALL events; 1990 data *---------------------------------------------------* :NICK.RAWD :GNAME.P01_ALLD/RAWD/NONE/Y*/*/R :DESC.RAW data of ALL events. *---------------------------------------------------* :NICK.LEPT92 :GNAME.P01_ALLD/DSTO/LEPT/Y92V>/*/R :DESC.DST data of the LEPTONIC events; 1992 data, last proc. *---------------------------------------------------* :NICK.LEPT91 :GNAME.P01_ALLD/MDST/LEPT/Y91V>/*/R :DESC.RTD data of the LEPTONIC events; 1991 data, last proc. *---------------------------------------------------* :NICK.LEPT91_D :GNAME.P01_ALLD/MDST/LEPT/Y91V05/*/R :DESC.RTD data of the LEPTONIC events; 1991 data, 5th proc. (DELANA_D) :NICK.LEPT90 *---------------------------------------------------* :GNAME.P01_ALLD/MDST/LEPT/Y90V>/*/R :DESC.RTD data of the LEPTONIC events; 1990 data, last proc . *---------------------------------------------------* :NICK.LEPT :GNAME.P01_ALLD/MDST/LEPT/Y[90:99]V>/*/R :DESC.RTD data of the LEPTONIC events; last available processings. *---------------------------------------------------* :NICK.DSTLEP92 :GNAME.P01_ALLD/DSTO/LEPT/Y92V>/*/R :DESC.DST-only data of the LEPTONIC events; 1992 data, last proc . *---------------------------------------------------* :NICK.DSTLEP91 :GNAME.P01_ALLD/DSTO/LEPT/Y91V>/*/R :DESC.DST-only data of the LEPTONIC events; 1991 data, last proc . *---------------------------------------------------* :NICK.DSTLEP90 :GNAME.P01_ALLD/DSTO/LEPT/Y90V>/*/R :DESC.DST-only data of the LEPTONIC events; 1990 data, last proc . *---------------------------------------------------* :NICK.DSTLEP :GNAME.P01_ALLD/DSTO/LEPT/Y[90:99]V>/*/R :DESC.DST-only data of the LEPTONIC events; last available processings. *---------------------------------------------------* :NICK.S2PR92 :GNAME.P01_ALLD/MDST/S2PR/Y92V>/*/R :DESC.RTD data of 2-PRONG events for calib./align.; 1992 data, last proc *---------------------------------------------------* :NICK.S2PR91 :GNAME.P01_ALLD/MDST/S2PR/Y91V>/*/R :DESC.RTD data of 2-PRONG events for calib./align.; 1991 data, last proc *---------------------------------------------------* :NICK.S2PR :GNAME.P01_ALLD/MDST/S2PR/Y[90:99]V>/*/R :DESC.RTD data of 2-PRONG events selected for calibration/alignment. *---------------------------------------------------* :NICK.DSTO92 :GNAME.P01_ALLD/DSTO/PHYS/Y92V>/*/R :DESC.DST-only of the "OR" of the physics teams, 1992 data, last proc. *---------------------------------------------------* :NICK.DSTO91 :GNAME.P01_ALLD/DSTO/PHYS/Y91V>/*/R :DESC.DST-only of the "OR" of the physics teams, 1991 data, last proc. *---------------------------------------------------* :NICK.DSTO91_D :GNAME.P01_ALLD/DSTO/PHYS/Y91V05/*/R :DESC.DST-only, "OR" of the physics teams, 91 data, 5th proc.(DELANA_D) *---------------------------------------------------* :NICK.DSTO90 :GNAME.P01_ALLD/DSTO/PHYS/Y90V>/*/R :DESC.DST-only of the "OR" of the physics teams; 1990 data, last proc. *---------------------------------------------------* :NICK.DSTO :GNAME.P01_ALLD/DSTO/PHYS/Y[90:99]V>/*/R :DESC.DST-only of the "OR" of the physics teams; all available procs. *---------------------------------------------------* :NICK.PHYS90 :GNAME.P01_ALLD/MDST/PHYS/Y90V>/*/R :DESC.RTD data of the "OR" of the physics teams; 1990 data, last proc . *---------------------------------------------------* :NICK.CRAW :GNAME.P01_ALLD/CRAW/PHYS/Y*V>/*/R :DESC.Raw data of events tagged by Delana; last proc . *---------------------------------------------------* :NICK.CRAW91 :GNAME.P01_ALLD/CRAW/PHYS/Y91V>/*/R :DESC.Raw data of events tagged by Delana; 1991 data, last proc . *---------------------------------------------------* :NICK.PHYS :GNAME.P01_ALLD/MDST/PHYS/Y90V>/*/R :DESC.RTD data of the "OR" of the physics teams (only exist for 1990) *---------------------------------------------------* :NICK.HOTP90 :GNAME.P01_ALLD/MDST/HOTP/Y90V>/*/R :DESC.RTD data of the "HOT PHYSICS" events; 1990 data, last proc . *---------------------------------------------------* :NICK.HOTP :GNAME.P01_ALLD/MDST/HOTP/Y90V>/*/R :DESC.RTD data of the "HOT PHYSICS" events (only exist for 1990). *---------------------------------------------------* :NICK.CRAWHAD90 :GNAME.P01_ALLD/CRAW/HADR/Y90V>/*/R :DESC.Raw data of events tagged by TEAM 4; 1990 data,last proc . *---------------------------------------------------* :NICK.CRAWHAD :GNAME.P01_ALLD/CRAW/HADR/Y90V>/*/R :DESC.Raw data of events tagged by TEAM 4 (only exist for 1990). *---------------------------------------------------* :NICK.CRAWHADR90 :GNAME.P01_ALLD/CRAW/HADR/Y90V>/*/R :DESC.Raw data of events tagged by TEAM 4; 1990 data, last proc . *---------------------------------------------------* :NICK.CRAWHADR :GNAME.P01_ALLD/CRAW/HADR/Y90V>/*/R :DESC.Raw data of events tagged by TEAM 4 (only exist for 1990). *---------------------------------------------------* :NICK.HADR90 :GNAME.P01_ALLD/CRAW/HADR/Y90V>/*/R :DESC.Raw data of events tagged by TEAM 4; 1990 data, last proc . *---------------------------------------------------* :NICK.HADR :GNAME.P01_ALLD/CRAW/HADR/Y90V>/*/R :DESC.Raw data of events tagged by TEAM 4 (only exist for 1990). *---------------------------------------------------* :NICK.REST90 :GNAME.P01_ALLD/MDST/REST/Y90V>/*/R :DESC.RD data of events NOT TAGGED by any team; 1990 data, last proc . *---------------------------------------------------* :NICK.REST :GNAME.P01_ALLD/MDST/REST/Y90V>/*/R :DESC.RD data of events NOT TAGGED by any team (only exist for 1990). *---------------------------------------------------* :NICK.PHDO90 :GNAME.P01_ALLD/DSTO/PHYS/Y90V>/*/R :DESC.DST-only of the "OR" of the physics teams; 1990 data, last proc . *---------------------------------------------------* :NICK.PHDO :GNAME.P01_ALLD/DSTO/PHYS/Y90V>/*/R :DESC.DST-only of the "OR" of the physics teams; 1990 data, last proc . *---------------------------------------------------* :NICK.XDST :GNAME.P01_ALLD/XDST/DETD/Y*V>/*/R :DESC.DST + RAW data of RICH & HPC *---------------------------------------------------* :NICK.XDST92 :GNAME.P01_ALLD/XDST/DETD/Y92V>/*/R :DESC.DST + RAW data of RICH & HPC (1992) *---------------------------------------------------* :NICK.ALLD92 :GNAME.P01_ALLD/*/Y92V*/*/R :DESC.All available Delphi 1992 real data. *---------------------------------------------------* :NICK.ALLD91 :GNAME.P01_ALLD/*/Y91V*/*/R :DESC.All available Delphi 1991 real data. *---------------------------------------------------* :NICK.ALLD90 :GNAME.P01_ALLD/*/Y90V*/*/R :DESC.All available Delphi 1990 real data. *---------------------------------------------------* :NICK.ALLD :GNAME.P01_ALLD/*/*/R :DESC.All available Delphi real data. *---------------------------------------------------* :NICK.* :GNAME.P01_ALLD/*/*/R :DESC.All available Delphi real data. *---------------------------------------------------* *---------- S I M U L A T I O N -----------------* *---------------------------------------------------* :NICK.BABA91 :GNAME.P01_SIMD/DSTO/BABA/*JUL91*/* :DESC.Bhabha events in barrel region, July 91 release (SIM35 ANA41). *---------------------------------------------------* :NICK.BAFO91 :GNAME.P01_SIMD/DSTO/BAFO/*JUL91*/* :DESC.Bhabha events in barrel+forward region, July 91 SIM35 ANA41. *---------------------------------------------------* :NICK.MUMU91 :GNAME.P01_SIMD/DSTO/MUMU/*JUL91*/* :DESC.Dimuon events, July 91 release (SIM35 ANA41). *---------------------------------------------------* :NICK.TAU291 :GNAME.P01_SIMD/DSTO/TAU2/*JUL91*/* :DESC.Tau tau events, July 91 release (SIM35 ANA41). *---------------------------------------------------* :NICK.QQME91 :GNAME.P01_SIMD/DSTO/QQME/*JUL91*/* :DESC.qqbar events Matrix Element, July 91 release (SIM35 ANA41). *---------------------------------------------------* :NICK.QQPS91 :GNAME.P01_SIMD/DSTO/QQPS/*JUL91*/* :DESC.qqbar events Parton Shower, July 91 release (SIM35 ANA41). *---------------------------------------------------* :NICK.QQPN91 :GNAME.P01_SIMD/DSTO/QQPN/*JUL91*/* :DESC.qqbar events Parton Shower, no B0 mixing. July 91 release. *---------------------------------------------------*
Output of the above program
P01_ALLD/RAWD/NONE/Y91V00/*/R RAW data of ALL events; 1991 data P01_ALLD/DSTO/LEPT/Y92V>/*/R(10:20)* DST data of the LEPTONIC events; 1992 data, last proc. P01_ALLD/RAWD/NONE/Y91V00/*/R(17:77)* RAW data of ALL events; 1991 data
CALL FMMODU (PATH,UFORM,UVECT,UCOMM,CHOPT,IRC*)
This routine may be used to modify any or all of the user fields associated with all files in the specified path. The path name may contain wild-cards.
Example of using the FMMODU routine
DIMENSION IVECT(10)
*
* Fill IVECT
...
*
* Now update the user words for all files in the subtree
* corresponding to the highest pass
*
CALL FMMODU('//CERN/OPAL/PROD/PASS>/*',' ',IVECT,' ','V',IRC)
).
On VAX/VMS systems, if no units have been declared or if the
list has been exhausted, the routine LIB$GET_LUN is called
to obtain a new unit.
CALL FMVERI (GENAM,LBANK,KEYS,CHOPT,IRC*)
This routine will check the contents of a FATMEN bank and the associated keys vector. FMVERI returns warnings via the IQUEST vector and error conditions via the return code IRC. Errors are generated when a value for a required field is not specified or if an invalid value is given.
Example of using the FMVERI routine
CALL FMVERI(GENAM,LBANK,KEYS,'T',IRC)
IF(IRC.NE.0) PRINT *,'Return code ',IRC,' from FMVERI
The following character options may be specified to cause FMVERI to check various parts of the FATMEN bank. See the table below for details of the formats of the various fields.
Errors and warnings returned via the IQUEST vector are given on the following page.
N.B. an error in the fields denoted by the options F,K,L,M,N,O,P or T will result in a non-zero return code. Banks containing such errors will not be added to the FATMEN catalogue.
CALL FMPKTM (IDATE,ITIME,IPACK*,IRC*)
CALL FMUPTM (IDATE*,ITIME*,IPACK,IRC*)
This routine unpacks the date and time from a 4 byte integer word. IPACK must be the result of a previous call to FMPKTM. Should IPACK be in invalid format, a non-zero return code will be returned and IDATE and ITIME will be set to zero.
CALL FMPKVX (CHDATE,IDATE*,ITIME*,IPACK*,IRC*)
This routines provides the functionality of the FMPKTM except that the input date is expected in VAX format.
CALL FMUPVX (CHDATE*,IDATE*,ITIME*,IPACK,IRC*)
This routines provides the functionality of FMUPTM for VAX date and time formats.