-+-+-+-+-+-+-+-+ START OF PART 174 -+-+-+-+-+-+-+-+
X       RETURN
X       END
X
X       INTEGER*4 FUNCTION ptkf_fopen(filename, type)
X       CHARACTER*(*) filename, type
X       INTEGER*4 ptkc_fopen
X       external ptkc_fopen`20
X
X       ptkf_fopen = ptkc_fopen(filename, type)
X
X       RETURN
X       END
X
X       INTEGER FUNCTION ptkf_fclose(fileptr)
X       INTEGER fileptr
X       INTEGER ptkc_fclose
X       external ptkc_fclose`20
X
X       ptkf_fclose = ptkc_fclose(%val(fileptr))
X
X       RETURN
X       END
X
X
XC end of misc.f
$ CALL UNPACK [.FORTRAN.SOURCE.LIBRARY]MISC.FOR;2 1392850264
$ create 'f'
X
X       SUBROUTINE ptkf_phinter(input, outputscript, informscript)
X       INTEGER input, outputscript, informscript
X       external ptk_phinter`20
X
X       call ptk_phinter(%val(input), %val(outputscript),`20
X     : %val(informscript))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_strphinter(wsid, echoarea, outputterminal,`20
X     : informterminal)
X       INTEGER wsid
X       REAL echoarea(4)
X       INTEGER outputterminal, informterminal
X       external ptk_strphinter`20
X
X       call ptk_strphinter(%val(wsid), echoarea, %val(outputterminal),`20
X     : %val(informterminal))
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_readphinterscript(scriptname, output,`20
X     : inform)
X       CHARACTER*(*) scriptname
X       INTEGER output, inform
X       LOGICAL*1 ptkc_readphinterscript, ans
X       external ptkc_readphinterscript`20
X
X       ans = ptkc_readphinterscript(scriptname, %val(output),`20
X     : %val(inform))
X       if (ans .eq. 1) then
X          ptkf_readphinterscript = .TRUE.
X       else
X          ptkf_readphinterscript = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writestruct(fileptr, num, stids)
X       INTEGER fileptr, num, stids(num)
X       external ptkc_writestruct`20
X
X       call ptkc_writestruct(%val(fileptr), %val(num), stids)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writestructnet(fileptr, num, stids)
X       INTEGER fileptr, num, stids(num)
X       external ptkc_writestructnet`20
X
X       call ptkc_writestructnet(%val(fileptr), %val(num),`20
X     : stids)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_writeallstruct(fileptr)
X       INTEGER fileptr
X       external ptk_writeallstruct`20
X
X       call ptk_writeallstruct(%val(fileptr))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_readelem(ws, echoarea, eltype)
X       INTEGER ws
X       REAL echoarea(4)
X       INTEGER eltype
X       external ptk_readelem`20
X
X       call ptk_readelem(%val(ws), echoarea, %val(eltype))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_callphinter()
X       external ptk_callphinter`20
X
X       call ptk_callphinter()
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_elemcontent(stid, elemid, termid, error)
X       INTEGER stid, elemid, termid, error
X       LOGICAL*1 ptk_elemcontent, ans
X       external ptk_elemcontent`20
X
X       ans = ptk_elemcontent(%val(stid), %val(elemid), %val(termid),`20
X     : error)
X       if (ans .eq. 1) then
X          ptkf_elemcontent = .TRUE.
X       else
X          ptkf_elemcontent = .FALSE.
X       endif
X
X       RETURN
X       END
X
XC end of phin.f
$ CALL UNPACK [.FORTRAN.SOURCE.LIBRARY]PHIN.FOR;1 1283217797
$ create 'f'
X
X       INTEGER FUNCTION ptkf_readint(ws, defint, prompt, echoarea)
X       INTEGER ws, defint
X       CHARACTER*(*) prompt
X       REAL echoarea(4)
X       INTEGER ptkc_readint
X       external ptkc_readint`20
X
X       ptkf_readint = ptkc_readint(%val(ws), %val(defint), prompt,`20
X     : echoarea)
X
X       RETURN
X       END
X
X       REAL FUNCTION ptkf_readfloat(ws, defreal, prompt, echoarea)
X       INTEGER ws
X       REAL defreal
X       CHARACTER*(*) prompt
X       REAL echoarea(4)
X       REAL ptkc_readfloat
X       external ptkc_readfloat`20
X
X       ptkf_readfloat = ptkc_readfloat(%val(ws), defreal,`20
X     : prompt, echoarea)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_readstring(ws, defstring, prompt, echoarea, len,`20
X     : instr, inlen)
X       INTEGER ws
X       CHARACTER*(*) defstring, prompt
X       REAL echoarea(4)
X       INTEGER len
X       CHARACTER*(*) instr
X       INTEGER inlen
X       external ptkc_readstring`20
X
X       call ptkc_readstring(%val(ws), defstring, prompt, echoarea,`20
X     : %val(len), instr, inlen)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_stackstruct()
X       external ptk_stackstruct`20
X
X       call ptk_stackstruct()
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_unstackstruct()
X       external ptk_unstackstruct`20
X
X       call ptk_unstackstruct()
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_openstruct(structid)
X       INTEGER structid
X       external ptk_openstruct`20
X
X       call ptk_openstruct(%val(structid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_closestruct()
X       external ptk_closestruct`20
X
X       call ptk_closestruct()
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_seteditmode(editmode)
X       INTEGER editmode
X       external ptk_seteditmode`20
X
X       call ptk_seteditmode(%val(editmode))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_unseteditmode()
X       external ptk_unseteditmode`20
X
X       call ptk_unseteditmode()
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_getpickid(stid, elptr, pickid)
X       INTEGER stid, elptr, pickid
X       LOGICAL*1 ptk_getpickid, ans
X       external ptk_getpickid`20
X
X       ans = ptk_getpickid(%val(stid), %val(elptr), pickid)
X       if (ans .eq. 1) then
X          ptkf_getpickid = .TRUE.
X       else
X          ptkf_getpickid = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_getexecuteid(stid, elptr, execid)
X       INTEGER stid, elptr, execid
X       LOGICAL*1 ptk_getexecuteid, ans
X       external ptk_getexecuteid`20
X
X       ans = ptk_getexecuteid(%val(stid), %val(elptr), execid)
X       if (ans .eq. 1) then
X          ptkf_getexecuteid = .TRUE.
X       else
X          ptkf_getexecuteid = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       INTEGER FUNCTION ptkf_elemcount(stid)
X       INTEGER stid
X       external ptk_elemcount`20
X
X       ptkf_elemcount = ptk_elemcount(%val(stid))
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_structexists(stid)
X       INTEGER stid
X       LOGICAL*1 ptk_structexists, ans
X       external ptk_structexists`20
X
X       ans = ptk_structexists(stid)
X       if (ans .eq. 1) then
X          ptkf_structexists = .TRUE.
X       else
X          ptkf_structexists = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_getelemtype(elemstr, eltype)
X       CHARACTER*(*) elemstr
X       INTEGER eltype
X       external ptk_getelemtype`20
X
X       call ptk_getelemtype(elemstr, eltype)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_getelemtypename(eltype, size, elemstr, totalsize)
X       INTEGER eltype, size
X       CHARACTER*(*) elemstr
X       INTEGER totalsize
X       external ptkc_getelemtypename`20
X
X       call ptkc_getelemtypename(%val(eltype), %val(size), elemstr,
X     : totalsize)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_executeelem()
X       external ptk_executeelem`20
X
X       call ptk_executeelem(ptkselcontent *elcont)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_copyelem(structid, elemid)
X       INTEGER structid, elemid
X       external ptk_copyelem`20
X
X       call ptk_copyelem(%val(structid), %val(elemid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_copyelemrange(stid, elem1, elem2)
X       INTEGER stid, elem1, elem2
X       external ptk_copyelemrange`20
X
X       call ptk_copyelemrange(%val(stid), %val(elem1), %val(elem2))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_getprimitivetypename(attr, size, attrstr,`20
X     : totalsize)
X       INTEGER attr, size
X       CHARACTER*(*) attrstr
X       INTEGER totalsize
X       external ptkc_getprimitivetypename`20
X
X       call ptkc_getprimitivetypename(%val(attr), %val(size), attrstr,`20
X     : totalsize)
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_removestruct(stid)
X       INTEGER stid
X       LOGICAL*1 ptk_removestruct, ans
X       external ptk_removestruct`20
X
X       ans = ptk_removestruct(%val(stid))
X       if (ans .eq. 1) then
X          ptkf_removestruct = .TRUE.
X       else
X          ptkf_removestruct = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_findelemtype(eltypelst, lenlst, srchdir,`20
X     : srchstat, elptr, lstnum)
X       INTEGER eltypelst(*), lenlst, srchdir, srchstat, elptr, lstnum
X       external ptk_findelemtype`20
X
X       call ptk_findelemtype(eltypelst, %val(lenlst), %val(srchdir),`20
X     : %val(srchstat), elptr, lstnum)
X
X       RETURN
X       END
X
X       LOGICAL FUNCTION ptkf_findnextpickid(stid, srchdir, eltptr,`20
X     : pickid)
X       INTEGER stid, srchdir, eltptr, pickid
X       LOGICAL*1 ptk_findnextpickid, ans
X       external ptk_findnextpickid`20
X
X       ans = ptk_findnextpickid(%val(stid), %val(srchdir), eltptr,`20
X     : pickid)
X       if (ans .eq. 1) then
X          ptkf_findnextpickid = .TRUE.
X       else
X          ptkf_findnextpickid = .FALSE.
X       endif
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_findlabel(stid, label, srchdir, eltptr)
X       INTEGER stid, label, srchdir, eltptr
X       LOGICAL*1 ptk_findlabel, ans
X       external ptk_findlabel`20
X
X       ans = ptk_findlabel(%val(stid), %val(label), %val(srchdir),`20
X     : eltptr)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_delelemtype(stid, lenlst, eltypelst)
X       INTEGER stid, lenlst, eltypelst(*)
X       external ptk_delelemtype`20
X
X       call ptk_delelemtype(%val(stid), %val(lenlst), eltypelst)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_delelem(numelems)
X       INTEGER numelems
X       external ptk_delelem`20
X
X       call ptk_delelem(%val(numelems))
X
X       RETURN
X       END
X
X       INTEGER FUNCTION ptkf_countchildren(stid)
X       INTEGER stid
X       INTEGER ptk_countchildren
X       external ptk_countchildren`20
X
X       ptkf_countchildren = ptk_countchildren(%val(stid))
X
X       RETURN
X       END
X
X       INTEGER FUNCTION ptkf_countuniqchildren(stid)
X       INTEGER stid
X       INTEGER ptk_countuniqchildren
X       external ptk_countuniqchildren`20
X
X       ptkf_countuniqchildren = ptk_countuniqchildren(%val(stid))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqstructnetids(root, num, stids, totalnum)
X       INTEGER root, num, stids(num), totalnum
X       external ptkc_inqstructnetids`20
X
X       call ptkc_inqstructnetids(%val(root), %val(num), stids,`20
X     : totalsize)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_structsummary(fileptr)
X       INTEGER*4 fileptr
X       external ptk_structsummary`20
X
X       call ptk_structsummary(%val(fileptr))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setattrasf(numattrs, attrs, asf)
X       INTEGER numattrs, attrs(*), asf
X       external ptk_setattrasf`20
X
X       call ptk_setattrasf(%val(numattrs), attrs, %val(asf))
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setallattrasf(asf)
X       INTEGER asf
X       external ptk_setallattrasf`20
X
X       call ptk_setallattrasf(asf)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_computecharsize(wsid, str, box, font, charht,`20
X     : charexp)
X       INTEGER wsid
X       CHARACTER*(*) str
X       REAL box(2)
X       INTEGER font
X       REAL charht, charexp
X       external ptkc_computecharsize`20
X
X       call ptkc_computecharsize(%val(wsid), str, box, %val(font),`20
X     : charht, charexp)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_computecharheight(wsid, str, box, font, charht)
X       INTEGER wsid
X       CHARACTER*(*) str
X       REAL box(2)
X       INTEGER font
X       REAL charht
X       external ptkc_computecharheight`20
X
X       call ptkc_computecharheight(%val(wsid), str, box, %val(font),`20
X     : charht)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_setstandardviewport(vlimits, vwormt, vwmpmt,`20
X     : vwcplm, xyclpi, bclipi, fclipi)
X       REAL vlimits(6)
X       REAL vwormt(4, 4)
X       REAL vwmpmt(4, 4)
X       REAL vwcplm(6)
X       INTEGER xyclpi, bclipi, fclipi
X       INTEGER err
X       REAL window(4)
X
X       call ptkf_limit(0.0, 1.0, 0.0, 1.0, window)
X       call pevmm3(window, vlimits, 0, 0.5, 0.5, 2.0, 1.0, -1.0,
X     : 1.0, err, vwmpmt)
X       call ptkf_unitmatrix3(vwormt)
X       do 10, i=1,6
X 10       vwcplm(i) = vlimits(i)
X       xyclpi = PCLIP
X       bclipi = PCLIP
X       fclipi = PCLIP
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_poststruct(wsid, stid, priority)
X       INTEGER wsid, stid
X       REAL priority
X       external ptkc_poststruct`20
X
X       call ptkc_poststruct(%val(wsid), %val(stid), priority)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_postrelative(ws, structid, relpriority,`20
X     : relstruct, error)
X       INTEGER ws, structid, relpriority, relstruct, error
X       external ptk_postrelative`20
X
X       call ptk_postrelative(%val(ws), %val(structid),`20
X     : %val(relpriority), %val(relstruct), error)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_changepostpriority(ws, structid, relpriority,`20
X     : relstruct, error)
X       INTEGER ws, structid, relpriority, relstruct, error
X       external ptk_changepostpriority`20
X
X       call ptk_changepostpriority(%val(ws), %val(structid),`20
X     : %val(relpriority), %val(relstruct), error)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_inqpostpriority(wsid, structid, priority,
X     : err)
X       INTEGER wsid, structid
X       REAL priority
X       INTEGER err
X       external ptk_inqpostpriority`20
X
X       call ptk_inqpostpriority(%val(wsid), %val(structid),`20
X     : priority, err)
X
X       RETURN
X       END
X
X       SUBROUTINE ptkf_drawcolourtable(stid, llim, ulim)
+-+-+-+-+-+-+-+-  END  OF PART 174 +-+-+-+-+-+-+-+-