* * $Id: pawcs.F,v 1.24 1999/10/29 15:09:49 couet Exp $ * * $Log: pawcs.F,v $ * Revision 1.24 1999/10/29 15:09:49 couet * - ALGAMA added * * Revision 1.23 1999/10/04 09:37:35 couet * - new routines * * Revision 1.22 1999/09/15 09:55:26 couet * - DLGAMA added * * Revision 1.21 1999/08/31 08:12:44 couet * - added VAVDEN and VAVSET * * Revision 1.20 1998/12/08 09:12:51 couet * - Some COMMON blocks were not listed in the help of the command CALL * * Revision 1.19 1998/11/30 09:28:31 couet * - MNSTAT declared callable * * Revision 1.18 1998/04/07 07:57:02 couet * - ITX3 added * * Revision 1.17 1997/11/18 13:40:15 couet * - New routine DCAUCH * * Revision 1.16 1997/10/23 13:00:20 mclareni * NT mods * * Revision 1.15 1997/09/02 15:50:57 mclareni * WINNT corrections * * Revision 1.13 1997/07/11 13:40:17 couet * - IGIWTY added * * Revision 1.12 1997/05/29 14:17:21 couet * - IFA3 added * * Revision 1.11 1997/05/13 16:03:05 couet * - CSEXT called with wrong number of parameters * * Revision 1.10 1997/05/13 16:00:00 couet * - new routines: * VMOD,VDIST,VDOTN2,VSUB,VUNIT,CHISIN,VDOT,VADD,VSCALE,CROSS * * Revision 1.9 1997/05/13 15:52:49 couet * *** empty log message *** * * Revision 1.8 1997/04/21 07:17:45 couet * Nes routine callbale frm comis: RANMAR, RANLUX, RNORML, RNORMX * * Summary: Obsolete Faster Safer * -------- ------ ----- * Uniform numbers: RNDM RANMAR RANLUX * Gaussian numbers: RANNOR RNORML RNORMX * * Revision 1.7 1997/03/17 13:24:49 couet * - HXE was not declared in the HELP * - HXE was declared as a subroutine but it is a function * - IGQ and IGQWK were missing * - HIJE was declared as a subroutine but it is a function * - Reformating to make the reading easier * * Revision 1.6 1997/03/14 14:05:24 mclareni * WNT mods * * Revision 1.5 1997/02/05 08:12:15 couet * - HXE added * * Revision 1.4 1996/10/23 14:15:53 couet * - igqwk and igq added * * Revision 1.3 1996/03/22 16:22:00 couet * add HF1E * * Revision 1.2 1996/03/04 16:42:15 couet * Character pointer used in CSOMC * * Revision 1.1.1.1 1996/03/01 11:38:42 mclareni * Paw * * #include "paw/pilot.h" #if defined(CERNLIB_COMIS) SUBROUTINE PAWCS ****************************************************************** * * * To initialize the COMIS package * * To declare addresses of FORTRAN routines and COMMONs * * which may be invoked from COMIS routines * * (one can call CSOMAP instead) * * * ****************************************************************** #include "paw/pawbgn.inc" #include "paw/pawidn.inc" #include "hbook/hcunit.inc" #include "hbook/hcntpaw.inc" #include "paw/pawchn.inc" #include "hbook/hcfits.inc" #include "hbook/hcfitd.inc" #include "hbook/hcpiaf.inc" #include "paw/pacomis.inc" #include "paw/quest.inc" common/rzcount/rzcount(2) common/rzclun/lunrz,rzcl(10) COMMON/PAWC/PAW(1) COMMON/PAWPAR/DPAR(100) COMMON/KCWORK/WORKKC(100) COMMON/HCBOOK/HCB(26) COMMON/HIGRAF/NGRAF,XGRAF(500),YGRAF(500) DOUBLE PRECISION DPAR DIMENSION P(1) CHARACTER*1 CP(1) * #ifdef CERNLIB_MSSTDCALL INTERFACE SUBROUTINE TIMED(int1) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_TIMED@4"::TIMED INTEGER int1 END SUBROUTINE KUGUID(ch1,ch2,int1,ch3) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUGUID@28"::KUGUID CHARACTER*(*) ch1,ch2,ch3 INTEGER int1 END SUBROUTINE KUPAR(ch1,ch2,ch3,ch4,ch5) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUPAR@40"::KUPAR CHARACTER*(*) ch1,ch2,ch3,ch4,ch5 END SUBROUTINE KUPVAL(ch1,ch2,int1,flt1,ch3,ch4) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUPVAL@40"::KUPVAL CHARACTER*(*) ch1,ch2,ch3,ch4 REAL flt1 INTEGER int1 END SUBROUTINE KUACT(ch1,flt1) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUACT@12"::KUACT REAL flt1 CHARACTER*(*) ch1 END SUBROUTINE KUTIME() !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUTIME@0"::KUTIME END SUBROUTINE KUEXEL(ch1) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUEXEL@8"::KUEXEL CHARACTER*(*) ch1 END SUBROUTINE KUPROS(ch1,ch2,int1) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUPROS@20"::KUPROS CHARACTER*(*) ch1,ch2 INTEGER int1 END SUBROUTINE KUNWG(int1) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUNWG@4"::KUNWG INTEGER int1 END SUBROUTINE KUCMD(ch1,ch2,ch3) !DEC$ ATTRIBUTES STDCALL,ALIAS:"_KUCMD@24"::KUCMD CHARACTER*(*) ch1,ch2,ch3 END END INTERFACE #endif EXTERNAL HBOOK1,HBOOK2,HBOOKN,HFILL,HF1,HF1E,HPRINT,HDELET,HRESET EXTERNAL HFITHN,HFITGA,HFITPO,HFITEX,HPROJ1,HPROJ2,HFN,HGFIT,HXE EXTERNAL HROPEN,PAOPEN,PACLOS,PAREAD,PAWRIT,HCDIR,HGIVEN EXTERNAL HBFUN1,HBFUN2,HRNDM1,HRNDM2,HBARX,HBARY,HBAR2 EXTERNAL HPAK,HPAKE,HUNPAK,HGIVE,HGN,HGNF,HGNPAR,HF2,HFF1,HFF2 EXTERNAL HRIN,HROUT,HI,HIE,HIX,HIJ,HIF,HIDALL,HRDIR,HNOENT,HX,HXY EXTERNAL HTITLE,HCOPY,HSTATI,HBPROF,HOPERA,HIDOPT,HDERIV EXTERNAL HMAXIM,HMINIM,HMAX,HMIN,HSUM,HNORMA,HREND,HRENID EXTERNAL HEXIST,HRGET,HRPUT,HSCR,HFIND,HCX,HCXY,HLABEL EXTERNAL HBPROX,HBPROY,HBANDX,HBANDY,HBSLIX,HBSLIY EXTERNAL HBOOKB,HBSTAT,HDIFF,HUNPKE,HREBIN,HERROR,HPROF2 EXTERNAL HOUTPU,HERMES,HISTDO,HFUNC,HXI,HIJXY,HXYIJ EXTERNAL HSPLI1,HSPLI2,HMDIR,HLDIR,HLOCAT,HFITH,HFITV,HFINAM EXTERNAL HBNT,HBNAME,HBNAMC,HFNT,HFNTB,HGNT,HGNTF,HGNTV,HBSET EXTERNAL HGNTB,HNBENT,HVXIST,HLPOS,HFC1,HSTAF,HKIND EXTERNAL HMINUT,HDIFFB,HRENAME,HNTDUP,HIJE EXTERNAL HMCINI,HMCMLL EXTERNAL MZSTOR,MZDIV,MZLINK,MZWORK,MZBOOK,MZDROP,MZPUSH,MZWIPE EXTERNAL MZGARB,MZFORM,LZFIND,LZFID EXTERNAL DZSHOW,DZVERI EXTERNAL FZIN,FZOUT,FZFILE,FZENDI,FZENDO,MZLOGL EXTERNAL HPLOT,HPLSYM,HPLERR,HPLEGO,HPLNT,HPLSUR,HPLSOF,HPLFRA EXTERNAL HPLABL,HPLSET,HPLGIV,HPLOC,HPLTOC,HPLNEW,HPLOPT EXTERNAL HPLAX,HPLFR3 EXTERNAL MNEMAT,MNERRS,MNSTAT EXTERNAL KUGETV,KUDPAR,KUVECT,KILEXP,KUNDPV #ifndef CERNLIB_MSSTDCALL EXTERNAL KUEXEL,KUPROS,KUPVAL,KUNWG,KUGUID,KUTIME EXTERNAL KUCMD,KUPAR,KUACT #endif EXTERNAL IPL,IPM,IFA,IGTEXT,IGBOX,IGAXIS,IGPIE,IGRAPH,IGHIST EXTERNAL IGARC,IGLBL,IGRNG,IGMETA,IGSA,IGSET,IRQLC,IRQST,ISCR EXTERNAL ISELNT,ISFAIS,ISFASI,ISLN,ISMK,ISVP,ISWN,ITX,ITX3,ICLRWK EXTERNAL IGPAVE,IGTERM,IPL3,IPM3,ISMKSC,ISPMCI,ISFACI,IGCOLM EXTERNAL IGHTOR,IGQ,IGQWK,IFA3,IGIWTY,ISWN3,ISVP3 EXTERNAL RZCDIR,RZLDIR,RZFILE,RZEND,RZIN,RZOUT,RZVIN,RZVOUT EXTERNAL RZOPEN,RZIODO,RZCLOS,RZQUOT EXTERNAL VZERO,UCOPY,RANNOR,LENOCC,CLTOU,CUTOL EXTERNAL RANMAR,RNORML,RANLUX,RNORMX,VAVDEN,VAVSET #ifndef CERNLIB_MSSTDCALL EXTERNAL TIMED #endif EXTERNAL SBIT0,SBIT1,SBYT,JBIT,JBYT,UCTOH,UHTOC,PROB,FREQ EXTERNAL DENLAN,DSTLAN,DIFLAN,XM1LAN,XM2LAN,RANLAN EXTERNAL RNDM,RDMIN,RDMOUT,SORTZV EXTERNAL CHISIN,VDOT,VADD,VSCALE,CROSS EXTERNAL VMOD,VDIST,VDOTN2,VSUB,VUNIT EXTERNAL BESJ0,BESJ1,BESY0,BESY1,BESI0,BESI1,BESK0,BESK1 EXTERNAL EBESI0,EBESI1,EBESK0,EBESK1,DCAUCH #if (defined(CERNLIB_UNIX))&&(!defined(CERNLIB_WINNT)) EXTERNAL CSF77,CSHEXT,CSHFAST,HKFILL,HKF1Q EXTERNAL JUMPT0,JUMPT1,JUMPT2,JUMPT3,JUMPT4,JUMPC5 #endif EXTERNAL DLGAMA,ALGAMA #if !defined(CERNLIB_IBM) EXTERNAL ERF,ERFC,GAMMA #endif #if defined(CERNLIB_IBM) INTRINSIC ERF,ERFC,GAMMA #endif * *------------------------------------------------------------------ * IF(ICOMIS.NE.0)RETURN ICOMIS=1 #if !defined(CERNLIB_NEWLIB) LUNPM =81 LUNFIL=82 LUNLOG=83 LUNMAP=84 LUNEDT=85 #endif #if defined(CERNLIB_NEWLIB) LUNPM =61 LUNFIL=62 LUNLOG=63 LUNMAP=64 LUNEDT=65 #endif * P(1) = 0. CP(1) = ' ' * CALL CSSETL(LUNPM,LUNFIL,LUNLOG,LUNMAP,LUNEDT) CALL CSINIT(NCOMIS) IF (SERVPF) CALL CSHLOPT('.', 'path') * #if (defined(CERNLIB_UNIX))&&(!defined(CERNLIB_WINNT)) CALL CSEXT( + 'JUMPT0,JUMPT1,JUMPT2,JUMPT3,JUMPT4,JUMPC5#' +, JUMPT0,JUMPT1,JUMPT2,JUMPT3,JUMPT4,JUMPC5 +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'CSF77,CSHEXT,CSHFAST,HKFILL,HKF1Q#' +, CSF77,CSHEXT,CSHFAST,HKFILL,HKF1Q +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 #endif * * Common blocks declarations * CALL CSCOM( + 'PAWC,PAWPAR,PAWIDN.W,KCWORK,QUEST ,HCBOOK,HIGRAF#' +, PAW ,DPAR ,IDNEVT ,WORKKC,IQUEST,HCB ,NGRAF +, P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSCOM( + 'PAWCHN,PAWCR8.W,PAWCR4.W#' +, CHAIN ,RVAR8 ,RVAR4 +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSCOM( + 'HCFITS,HCFITD,RZCOUNT,RZCLUN#' +, NCFITS,FITPAD,RZCOUNT,LUNRZ +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSCOMC( + 'PAWCHC,PAWC32.W#' +, CFILE ,CVAR32 +, CP,CP,CP,CP,CP,CP,CP,CP) * * Subroutines and functions declarations * *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBOOK1.S,HBOOK2.S,HBOOKN.S,HFILL.S,HF1.S,HF1E.S,HPRINT.S#' +, HBOOK1, HBOOK2, HBOOKN, HFILL, HF1, HF1E, HPRINT +, P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HDELET.S,HRESET.S#' +, HDELET, HRESET +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HFITGA.S,HFITPO.S,HFITEX.S,HPROJ1.S,HPROJ2.S,HFN.S,HGNPAR.S#' +, HFITGA, HFITPO, HFITEX, HPROJ1, HPROJ2, HFN, HGNPAR +, P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBAR2.S,HFITHN.S#' +, HBAR2, HFITHN +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HROPEN.S,PAOPEN.S,PACLOS.S,PAREAD.S,PAWRIT.S,HCDIR.S#' +, HROPEN, PAOPEN, PACLOS, PAREAD, PAWRIT, HCDIR +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HGIVEN.S#' +, HGIVEN +, P,P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HPAK.S,HPAKE.S,HUNPAK.S,HGIVE.S,HGN.S,HGNF.S,HF2.S#' +, HPAK, HPAKE, HUNPAK, HGIVE, HGN, HGNF, HF2 +, P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HFF1.S,HFF2.S#' +, HFF1, HFF2 +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HMINUT.S,HDIFFB#.S' +, HMINUT ,HDIFFB +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HMAXIM.S,HMINIM.S,HMAX.R,HMIN.R,HSUM.R,HNORMA.S#' +, HMAXIM, HMINIM, HMAX, HMIN, HSUM, HNORMA +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HREND.S#' +, HREND +, P,P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HI.R,HIE.R,HIX.S,HIJ.R,HIF.R,HIDALL.S,HNOENT.S,HX.R,HXY.R#' +, HI, HIE, HIX, HIJ, HIF, HIDALL, HNOENT, HX, HXY +, P ) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HRDIR.S#' +, HRDIR +, P,P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HRIN.S,HROUT.S,HCOPY.S,HBPROF.S,HOPERA.S,HIDOPT.S#' +, HRIN, HROUT, HCOPY, HBPROF, HOPERA, HIDOPT +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HDERIV.S,HGFIT.S,HXE.R#' +, HDERIV, HGFIT, HXE +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HEXIST.L,HRGET.S,HRPUT.S,HSCR.S,HFIND.S,HCX.R#' +, HEXIST, HRGET, HRPUT, HSCR, HFIND, HCX +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HCXY.R,HLABEL.S#' +, HCXY, HLABEL +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBPROX.S,HBPROY.S,HBANDX.S,HBANDY.S,HBSLIX.S#' +, HBPROX, HBPROY, HBANDX, HBANDY, HBSLIX +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBSLIY.S,HRENID.S#' +, HBSLIY, HRENID +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBOOKB.S,HBSTAT.S,HDIFF.S,HUNPKE.S,HREBIN.S#' +, HBOOKB, HBSTAT, HDIFF, HUNPKE, HREBIN +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HERROR.S,HPROF2.S#' +, HERROR, HPROF2 +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HRENAME.S,HNTDUP.S,HIJE.R#' +, HRENAME, HNTDUP, HIJE +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HOUTPU.S,HERMES.S,HISTDO.S,HFUNC.S,HXI.S,HIJXY.S#' +, HOUTPU, HERMES, HISTDO, HFUNC, HXI, HIJXY +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HXYIJ.S,HFINAM.S#' +, HXYIJ, HFINAM +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HSTATI.R,HLPOS.S,HFC1.S#' +, HSTATI, HLPOS, HFC1 +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HSPLI1.S,HSPLI2.S,HMDIR.S,HLDIR.S,HLOCAT.S,HFITH.S#' +, HSPLI1, HSPLI2, HMDIR, HLDIR, HLOCAT, HFITH +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HFITV.S,HKIND.S#' +, HFITV, HKIND +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'MZSTOR.S,MZDIV.S,MZLINK.S,MZWORK.S,MZBOOK.S#' +, MZSTOR, MZDIV, MZLINK, MZWORK, MZBOOK +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'MZDROP.S,MZPUSH.S#' +, MZDROP, MZPUSH +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'MZWIPE.S,MZGARB.S,MZFORM.S,LZFIND.S,LZFID.S#' +, MZWIPE ,MZGARB ,MZFORM ,LZFIND ,LZFID +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'DZSHOW.S,DZVERI.S#' +, DZSHOW ,DZVERI +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'FZIN.S,FZOUT.S,FZFILE.S,FZENDI.S,FZENDO.S,MZLOGL.S#' +, FZIN, FZOUT, FZFILE, FZENDI, FZENDO, MZLOGL +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HTITLE.S,HBFUN1.S,HBFUN2.S,HRNDM1.R,HRNDM2.S#' +, HTITLE, HBFUN1, HBFUN2, HRNDM1, HRNDM2 +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBARX.S,HBARY.S#' +, HBARX, HBARY +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HPLOT.S,HPLSYM.S,HPLERR.S,HPLEGO.S#' +, HPLOT ,HPLSYM ,HPLERR ,HPLEGO +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HPLNT.S,HPLSUR.S,HPLSOF.S,HPLFRA.S#' +, HPLNT ,HPLSUR ,HPLSOF ,HPLFRA +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HPLAX.S,HPLFR3.S#' +, HPLAX ,HPLFR3 +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HPLABL.S,HPLSET.S,HPLGIV.S,HPLOC.S,HPLTOC.S#' +, HPLABL ,HPLSET ,HPLGIV ,HPLOC ,HPLTOC +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HPLNEW.S,HPLOPT.S#' +, HPLNEW ,HPLOPT +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HBNT.S,HBNAME.S,HBNAMC.S,HFNT.S,HFNTB.S,HGNT.S#' +, HBNT, HBNAME, HBNAMC, HFNT, HFNTB, HGNT +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HGNTF.S,HGNTV.S,HBSET.S#' +, HGNTF, HGNTV, HBSET +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HGNTB.S,HNBENT.S,HVXIST.S,HSTAF.S#' +, HGNTB, HNBENT, HVXIST, HSTAF +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'HMCINI.S,HMCMLL.S#' +, HMCINI ,HMCMLL +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'MNEMAT.S,MNERRS.S,MNSTAT.S#' +, MNEMAT ,MNERRS ,MNSTAT +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'KUGETV.S,KUDPAR.S,KUVECT.S,KILEXP.S,KUTIME.S#' +, KUGETV, KUDPAR, KUVECT, KILEXP, KUTIME +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'KUEXEL.S,KUPROS.S#' +, KUEXEL, KUPROS +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'KUNWG.S,KUCMD.S,KUGUID.S,KUNDPV.S,KUPAR.S#' +, KUNWG, KUCMD, KUGUID, KUNDPV, KUPAR +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'KUPVAL.S,KUACT.S#' +, KUPVAL, KUACT +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'IPL.S,IPM.S,IFA.S,IGTEXT.S,IGBOX.S,IGAXIS.S,IGPIE.S#' +, IPL, IPM, IFA, IGTEXT, IGBOX, IGAXIS, IGPIE +, P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'IGRAPH.S,IGHIST.S#' +, IGRAPH, IGHIST +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'IGARC.S,IGLBL.S,IGRNG.S,IGMETA.S,IGSA.S,IGSET.S#' +, IGARC, IGLBL, IGRNG, IGMETA, IGSA, IGSET +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'IRQLC.S,IRQST.S,ISCR.S#' +, IRQLC, IRQST, ISCR +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'ISELNT.S,ISFAIS.S,ISFASI.S,ISLN.S,ISMK.S,ISVP.S#' +, ISELNT, ISFAIS, ISFASI, ISLN, ISMK, ISVP +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'ISWN.S,ITX.S,ITX3.S,ICLRWK.S,ISWN3.S,ISVP3.S#' +, ISWN, ITX, ITX3, ICLRWK, ISWN3, ISVP3 +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'IGPAVE.S,IGTERM.S,IPL3.S,IPM3.S,IFA3.S,ISMKSC.S#' +, IGPAVE, IGTERM, IPL3, IPM3, IFA3, ISMKSC +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'ISPMCI.S,ISFACI.S,IGCOLM.S#' +, ISPMCI, ISFACI, IGCOLM +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'IGHTOR.S,IGQ.S,IGQWK.S,IGIWTY.I#' +, IGHTOR ,IGQ ,IGQWK ,IGIWTY +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'RZCDIR.S,RZLDIR.S,RZFILE.S,RZEND.S,RZIN.S,RZOUT.S#' +, RZCDIR, RZLDIR, RZFILE, RZEND, RZIN, RZOUT +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'RZVIN.S,RZVOUT.S#' +, RZVIN, RZVOUT +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'RZIODO.S,RZOPEN.S,RZCLOS.S,RZQUOT.S#' +, RZIODO ,RZOPEN ,RZCLOS ,RZQUOT +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'VZERO.S,UCOPY.S,RNDM.R,RANNOR.S,LENOCC.I,CLTOU.S#' +, VZERO ,UCOPY ,RNDM ,RANNOR ,LENOCC ,CLTOU +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'CUTOL.S,RANMAR.S,RNORML.S,RANLUX.S,RNORMX.S,VAVDEN.R,VAVSET.S#' +, CUTOL ,RANMAR ,RNORML ,RANLUX ,RNORMX ,VAVDEN ,VAVSET +, P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'SORTZV.S,CHISIN.R,VDOT.R,VADD.S,VSCALE.S,CROSS.S#' +, SORTZV ,CHISIN ,VDOT ,VADD ,VSCALE ,CROSS +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'VMOD.R,VDIST.R,VDOTN2.R,VSUB.S,VUNIT.S#' +, VMOD ,VDIST ,VDOTN2 ,VSUB ,VUNIT +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'RDMIN.R,RDMOUT.R#' +, RDMIN ,RDMOUT +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'SBIT0.S,SBIT1.S,SBYT.S,JBIT.I,JBYT.I,UCTOH.S#' +, SBIT0 ,SBIT1 ,SBYT ,JBIT ,JBYT ,UCTOH +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'UHTOC.S,TIMED.S#' +, UHTOC ,TIMED +, P,P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'ERF.R,ERFC.R,FREQ.R,PROB.R,RANLAN.R,GAMMA.R,DLGAMA.R,ALGAMA.R#' +, ERF ,ERFC ,FREQ ,PROB ,RANLAN ,GAMMA ,DLGAMA ,ALGAMA +, P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'DENLAN.R,DSTLAN.R,DIFLAN.R,XM1LAN.R,XM2LAN.R#' +, DENLAN ,DSTLAN ,DIFLAN ,XM1LAN ,XM2LAN +, P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'BESJ0.R,BESJ1.R,BESY0.R,BESY1.R,BESI0.R,BESI1.R#' +, BESJ0 ,BESJ1 ,BESY0 ,BESY1 ,BESI0 ,BESI1 +, P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'BESK0.R,BESK1.R,EBESI0.R,EBESI1.R#' +, BESK0 ,BESK1 ,EBESI0 ,EBESI1 +, P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 CALL CSEXT( + 'EBESK0.R,EBESK1.R,DCAUCH.D#' +, EBESK0 ,EBESK1 ,DCAUCH +, P,P,P,P,P,P,P) *------- 1 2 3 4 5 6 7 8 9 RETURN * ENTRY PAWCSH WRITE(LERR,1000) WRITE(LERR,1005) WRITE(LERR,1010) WRITE(LERR,2000) WRITE(LERR,2010) WRITE(LERR,3000) RETURN 1000 FORMAT( + ' From HBOOK:',/ +,' HBOOK1,HBOOK2,HBOOKN,HFILL,HF1,HF1E,HPRINT,HDELET,HRESET',/ +,' HFITGA,HFITPO,HFITEX,HPROJ1,HPROJ2,HFN,HGFIT,HRENID',/ +,' HROPEN,PAOPEN,PACLOS,PAREAD,PAWRIT,HCDIR,HGIVEN,HKIND',/ +,' HTITLE,HBFUN1,HBFUN2,HRNDM1,HRNDM2,HBARX,HBARY,HDIFFB',/ +,' HPAK,HPAKE,HUNPAK,HGIVE,HGN,HGNF,HGNPAR,HF2,HFF1,HFF2',/ +,' HRIN,HROUT,HI,HIE,HIX,HXE,HIJ,HIF,HIDALL,HNOENT,HX,HXY',/ +,' HTITLE,HCOPY,HSTATI,HBPROF,HOPERA,HIDOPT,HDERIV,HBAR2',/ +,' HMAXIM,HMINIM,HMAX,HMIN,HSUM,HNORMA,HMCINI,HMCMLL',/ +,' HEXIST,HREND,HRGET,HRPUT,HSCR,HFIND,HCX,HCXY,HLABEL',/ +,' HBPROX,HBPROY,HBANDX,HBANDY,HBSLIX,HBSLIY,HPROF2,HRDIR',/ +,' HBOOKB,HBSTAT,HDIFF,HUNPKE,HREBIN,HERROR,HGNTB,HSTAF',/ +,' HOUTPU,HERMES,HISTDO,HFUNC,HXI,HIJXY,HXYIJ,HLPOS,HFC1',/ +,' HSPLI1,HSPLI2,HMDIR,HLDIR,HLOCAT,HFITH,HFITV,HFINAM',/ +,' HBNT,HBNAME,HBNAMC,HFNT,HFNTB,HGNT,HGNTF,HGNTV,HBSET',/ +,' HRENAME,HNTDUP,HFITHN,HIJE') 1005 FORMAT( + ' From MINUIT:',/ +,' MNEMAT,MNERRS,MNSTAT') 1010 FORMAT( + ' From HPLOT:',/ +,' HPLOT,HPLSYM,HPLERR,HPLEGO,HPLNT,HPLSUR,HPLSOF,HPLFRA',/ +,' HPLABL,HPLSET,HPLGIV,HPLOC,HPLTOC,HPLNEW,HPLOPT') 2000 FORMAT( + ' From ZEBRA:',/ +,' MZSTOR,MZDIV,MZLINK,MZWORK,MZBOOK,MZDROP,MZPUSH',/ +,' MZWIPE,MZGARB,MZFORM,LZFIND,LZFID,DZSHOW,DZVERI',/ +,' FZIN,FZOUT,FZFILE,FZENDI,FZENDO',/ +,' RZCDIR,RZLDIR,RZFILE,RZEND,RZIN,RZOUT,RZVIN,RZVOUT',/ +,' RZOPEN,RZIODO,RZCLOS,RZQUOT',/ +,' From KUIP:',/ +,' KUGETV,KUDPAR,KUVECT,KILEXP,KUTIME,KUEXEL,KUPROS',/ +,' KUNWG,KUCMD,KUGUID,KUNDPV,KUPAR,KUPVAL,KUACT') 2010 FORMAT( + ' From HIGZ:',/ +,' IPL,IPM,IFA,IGTEXT,IGBOX,IGAXIS,IGPIE,IGRAPH,IGHIST',/ +,' IGARC,IGLBL,IGRNG,IGMETA,IGSA,IGSET,IRQLC,IRQST,ISCR',/ +,' ISELNT,ISFAIS,ISFASI,ISLN,ISMK,ISVP,ISWN,ITX,ITX3,ICLRWK',/ +,' IGPAVE,IGTERM,IPL3,IPM3,IFA3,ISMKSC,ISPMCI,ISFACI',/ +,' IGCOLM,IGHTOR,IGQ,IGQWK,IGIWTY,ISWN3,ISVP3',/ +,' From KERNLIB:',/ +,' VZERO,UCOPY,RANNOR,LENOCC,SBIT0,SBIT1,SBYT',/ +,' RANMAR,RNORML,RANLUX,RNORMX,VAVDEN,VAVSET,ALGAMA',/ +,' JBIT,JBYT,UCTOH,UHTOC,CLTOU,CUTOL,ERF,ERFC,FREQ,GAMMA',/ +,' DLGAMA,PROB,DENLAN,DSTLAN,DIFLAN,XM1LAN,XM2LAN,RANLAN',/ +,' RNDM,RDMIN,RDMOUT,SORTZV,CSF77,VMOD,VDIST,VDOTN2',/ +,' VSUB,VUNIT,CHISIN,VDOT,VADD,VSCALE,CROSS') 3000 FORMAT(/' The following common blocks may be referenced:',/ +, ' /PAWC/, /QUEST/, /KCWORK/, /PAWPAR/, /PAWIDN/',/ +, ' /HCFITS/, /HCFITD/, /RZCLUN/, /HCBOOK/, /HIGRAF/',/ +, ' /PAWCHN/, /PAWCR8/, /PAWCR4/, /RZCOUNT/, /RZCLUN',/ +, ' /PAWCHC/, /PAWC32/') END #endif