-+-+-+-+-+-+-+-+ START OF PART 145 -+-+-+-+-+-+-+-+
X        library/log ptk77 dbug.obj
X        library/log ptk77 view.obj
X        library/log ptk77 ftoc.obj
X        purge
X
X
Xtran.obj: $(SRCDIR)tran.for
X`09for$(FFLAGS)  $(SRCDIR)tran.for
X
Xhash.obj: $(SRCDIR)hash.for
X`09for$(FFLAGS)  $(SRCDIR)hash.for
X
Xplib.obj: $(SRCDIR)plib.for
X`09for$(FFLAGS)  $(SRCDIR)plib.for
X
Xmenu.obj: $(SRCDIR)menu.for
X`09for$(FFLAGS)  $(SRCDIR)menu.for
X
Xphin.obj: $(SRCDIR)phin.for
X`09for$(FFLAGS)  $(SRCDIR)phin.for
X
Xtsl.obj: $(SRCDIR)tsl.for
X`09for$(FFLAGS)  $(SRCDIR)tsl.for
X
Xcns.obj: $(SRCDIR)cns.for
X`09for$(FFLAGS)  $(SRCDIR)cns.for
X
Xtopo.obj: $(SRCDIR)topo.for
X`09for$(FFLAGS)  $(SRCDIR)topo.for
X
Xstct.obj: $(SRCDIR)stct.for
X`09for$(FFLAGS)  $(SRCDIR)stct.for
X
Xwind.obj: $(SRCDIR)wind.for
X`09for$(FFLAGS)  $(SRCDIR)wind.for
X
Xmisc.obj: $(SRCDIR)misc.for
X`09for$(FFLAGS)  $(SRCDIR)misc.for
X
Xdbug.obj: $(SRCDIR)dbug.for
X`09for$(FFLAGS)  $(SRCDIR)dbug.for
X
Xview.obj: $(SRCDIR)view.for
X`09for$(FFLAGS)  $(SRCDIR)view.for
X
Xftoc.obj: $(SRCDIR)ftoc.c
X`09cc$(CFLAGS) $(SRCDIR)ftoc.c
X
$ CALL UNPACK [.FORTRAN.LIBRARY]MAKEFILE.MAK;1 151529896
$ create 'f'
X
X       include 'sys$library:phigs$for_bnd_consts.for'
$ CALL UNPACK [.FORTRAN.LIBRARY]VMSPHIGS77.FOR;1 2133933384
$ create 'f'
X
X       include '`5B-.include`5Dptk77.h'
$ CALL UNPACK [.FORTRAN.LIBRARY]VMSPTK77.FOR;1 1080313580
$ create 'f'
X
X/*--------------------------------------------------------------------------
V*/
X/*---------------------- PHIGS inquire functions ---------------------------
V*/
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqelemcontent();
Xextern void pc_inqelemtypesize();
X
Xextern void pc_inqallconflictstruct(afid, num, errind, ol, ostrid)
XPint afid, num, *errind, *ol, *ostrid;
X`7B
X  Pintlst ids;
X
X  pinqallconflictstruct(afid, 0, 0, errind, &ids, ol);
X  ids.integers = (Pint *)calloc(*ol, sizeof(Pint));
X  pinqallconflictstruct(afid, *ol, 0, errind, &ids, ol);
X  *ostrid = ids.integers`5Bnum - 1`5D;
X  free(ids.integers);
X`7D  /* pc_inqallconflictstruct */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqannotationfacil(wtype, num, errind, nas, as)
XPint wtype, num;
XPint *errind, *nas, *as;
X`7B
X  Pintlst styles;
X
X  pinqannotationfacil(wtype, 0, 0, errind, &styles, nas);
X  styles.integers = (Pint *)calloc(*nas, sizeof(Pint));
X  pinqannotationfacil(wtype, *nas, 0, errind, &styles, nas);
X  *as = styles.integers`5Bnum - 1`5D;
X  free(styles.integers);
X`7D  /* pc_inqannotationfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqancestorsstruct(strid, pthord, pthdep, ipthsz, num, errind
V,
X        ol, apthsz, paths)
XPint strid, pthord, pthdep, ipthsz, num;
XPint *errind, *ol, *apthsz;
XPexecref *paths;
X`7B
X  Pchar *buffer;
X  Pexecreflstlst epaths;
X  Pint totsize, i;
X
X  pinqancestorsstruct(strid, pthord, pthdep, 0, errind, buffer, &totsize,`20
X                  &epaths);
X  buffer = (Pchar *)malloc(totsize);
X  pinqancestorsstruct(strid, pthord, pthdep, totsize, errind, buffer,`20
X        &totsize, &epaths);
X  *ol = epaths.number;
X  *apthsz = epaths.erls`5Bnum - 1`5D.number;
X  for (i = 0; i < *apthsz; i++)
X  `7B
X    paths`5Bi`5D.struct_id = epaths.erls`5Bnum - 1`5D.ers`5Bi`5D.struct_id;
X    paths`5Bi`5D.elem_num = epaths.erls`5Bnum - 1`5D.ers`5Bi`5D.elem_num;
X  `7D
X  free(buffer);
X`7D  /* pc_inqancestorsstruct */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqarchivefiles(num, errind, number, afid, arcfil, nlen)
XPint num, *errind, *number, *afid;
Xstruct dsc$descriptor_s *arcfil;
XPint *nlen;
X`7B
X  Pchar *buffer;
X  Parchivefilelst arfiles;
X  Pint totsize;
X
X  pinqarchivefiles(0, 0, errind, buffer, &arfiles, &totsize);
X  buffer = (Pchar *)malloc(totsize);
X  pinqarchivefiles(totsize, 0, errind, buffer, &arfiles, &totsize); `20
X  *number = arfiles.number;
X  *afid = arfiles.ids`5Bnum - 1`5D;
X  *nlen = strlen(arfiles.names`5Bnum - 1`5D);
X  strncpy(arcfil->dsc$a_pointer, arfiles.names`5Bnum - 1`5D, *nlen);
X  free(buffer);
X`7D  /* pc_inqarchivefiles */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqchoicest()
X`7B
X  Pint ws, dev, err, totsize;
X  Pchar *buffer;
X  Pchoicest state;
X
X  pinqchoicest(ws, dev, 0, &err, buffer, &totsize, &state);
X  buffer = (Pchar *)malloc(totsize);
X  pinqchoicest(ws, dev, totsize, &err, buffer, &totsize, &state);
X
X  free(buffer);
X`7D  /* pc_inqchoicest */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqchoicest3()
X`7B
X  Pint ws, dev, err, totsize;
X  Pchar *buffer;
X  Pchoicest3 state;
X
X  pinqchoicest(ws, dev, 0, &err, buffer, &totsize, &state);
X  buffer = (Pchar *)malloc(totsize);
X  pinqchoicest(ws, dev, totsize, &err, buffer, &totsize, &state);
X
X  free(buffer);
X`7D  /* pc_inqchoicest3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqcolourfacil(wtype, errind, ncoli, cola, npci)
XPint wtype, *errind, *ncoli, *cola, *npci;
X`7B
X  Pcofac facil;
X
X  pinqcolourfacil(wtype, errind, &facil);
X  *ncoli = facil.colours;
X  *cola = facil.coavail;
X  *npci = facil.predefined;
X`7D  /* pc_inqcolourfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqcolourmodelfacil(wtype, num, errind, ol, cmod, dfcmod)
XPint wtype, num;
XPint *errind, *ol, *cmod, *dfcmod;
X`7B
X  Pintlst models;
X
X  pinqcolourmodelfacil(wtype, 0, 0, errind, ol, &models, dfcmod);
X  models.integers = (Pint *)calloc(*ol, sizeof(Pint));
X  pinqcolourmodelfacil(wtype, *ol, 0, errind, ol, &models, dfcmod);
X  *cmod = models.integers`5Bnum - 1`5D;
X  free(models.integers);
X`7D  /* pc_inqcolourmodelfacil */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqcolourrep(wkid, coli, type, errind, c1, c2, c3)
XPint wkid, coli, type, *errind;
XPfloat *c1, *c2, *c3;
X`7B
X  Pcobundl rep;
X
X  pinqcolourrep(wkid, coli, type, errind, &rep);
X  *c1 = rep.rgb.r;
X  *c2 = rep.rgb.g;
X  *c3 = rep.rgb.b;
X`7D  /* pc_inqcolourrep */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqconflictstructinnet(afid, strid, snsrc, num, errind, ol, o
Vstrid)
XPint afid, strid, snsrc, num, *errind, *ol, *ostrid;
X`7B
X  Pstructnetsrc src;
X  Pintlst ids;
X
X  pinqconflictstructinnet(afid, strid, snsrc, 0, 0, errind, &ids, ol);
X  ids.integers = (Pint *)calloc(*ol, sizeof(Pint));
X  pinqconflictstructinnet(afid, strid, snsrc, *ol, 0, errind, &ids, ol);
X  *ostrid = ids.integers`5Bnum - 1`5D;
X  free(ids.integers); `20
X`7D  /* pc_inqconflictstructinnet */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqcurelemcontent(iil, irl, isl, errind,
X  il, ia, rl, ra, sl, lstr, str)
XPint iil, irl, isl, *errind, *il, *ia, *rl;
XPfloat *ra;
XPint *sl, *lstr;
XPchar *str;
X`7B
X  Popenstructstatus stat;
X  Pint stid, elptr;
X
X  pinqopenstruct(errind, &stat, &stid);
X  if (stat == PSTRUCT_NONE)
X    return;
X  pinqelemptr(errind, &elptr);
X  if (*errind == 0)
X    pc_inqelemcontent(stid, elptr, iil, irl, isl, errind,
X                      il, ia, rl, ra, sl, lstr, str);
X`7D  /* pc_inqcurelemcontent */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqcurelemtypesize(errind, eltype, il, rl, sl)
XPint *errind, *eltype, *il, *rl, *sl;
X`7B
X  Popenstructstatus stat;
X  Pint stid, elptr;
X
X  pinqopenstruct(errind, &stat, &stid);
X  if (stat == PSTRUCT_NONE)
X    return;
X  pinqelemptr(errind, &elptr);
X  if (*errind == 0)
X    pc_inqelemtypesize(stid, elptr, errind, eltype, il, rl, sl);
X`7D  /* pc_inqcurelemtypesize */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefchoicedata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefchoice data;
X
X  pinqdefchoicedata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefchoicedata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefchoicedata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefchoicedata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefchoice3 data;
X
X  pinqdefchoicedata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefchoicedata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefchoicedata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefdisplayupdatest(wtype, errind, defmod, modmod)
XPint wtype, *errind, *defmod, *modmod;
X`7B
X  Pdefupdatest state;
X
X  pinqdefdisplayupdatest(wtype, errind, &state);
X  *defmod = state.def_mode;
X  *modmod = state.mod_mode;
X`7D  /* pc_inqdefdisplayupdatest */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdeflocdata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefloc data;
X
X  pinqdeflocdata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdeflocdata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdeflocdata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdeflocdata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefloc3 data;
X
X  pinqdeflocdata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdeflocdata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdeflocdata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefpickdata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefpick data;
X
X  pinqdefpickdata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefpickdata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefpickdata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefpickdata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefpick3 data;
X
X  pinqdefpickdata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefpickdata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefpickdata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefstringdata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstring data;
X
X  pinqdefstringdata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefstringdata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefstringdata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefstringdata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstring3 data;
X
X  pinqdefstringdata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefstringdata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefstringdata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefstrokedata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstroke data;
X
X  pinqdefstrokedata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefstrokedata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefstrokedata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefstrokedata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefstroke3 data;
X
X  pinqdefstrokedata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)calloc(totsize, sizeof(Pchar));
X  pinqdefstrokedata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefstrokedata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefvaldata()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefval data;
X
X  pinqdefvaldata(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)calloc(totsize, sizeof(Pchar));
X  pinqdefvaldata(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefvaldata */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdefvaldata3()
X`7B
X  Pwstype wstype;
X  Pint dev, err, totsize, i;
X  Pchar *buffer;
X  Pdefval3 data;
X
X  pinqdefvaldata3(wstype, dev, 0, &err, buffer, &totsize, &data);
X  buffer = (Pchar *)malloc(totsize);
X  pinqdefvaldata3(wstype, dev, totsize, &err, buffer, &totsize, &data);
X
X  free(buffer);
X`7D  /* pc_inqdefvaldata3 */
X
X/*--------------------------------------------------------------------------
V*/
X
Xextern void pc_inqdecendentsstruct(strid, pthord, pthdep, ipthsz, num, errin
Vd,
X        ol, apthsz, paths)
XPint strid, pthord, pthdep, ipthsz, num;
XPint *errind, *ol, *apthsz;
XPexecref *paths;
X`7B
X  Pchar *buffer;
X  Pexecreflstlst epaths;
X  Pint totsize, i;
X
X  pinqdecendentsstruct(strid, pthord, pthdep, 0, errind, buffer, &totsize,`2
V0
X                  &epaths);
+-+-+-+-+-+-+-+-  END  OF PART 145 +-+-+-+-+-+-+-+-