INTEGER pchecklevs(numpcheck)
call GETPWHERE(myid,numpcheck,pcheckpress,pchecklevs)
low_level = pchecklevs(3)
mid_level = pchecklevs(4)
nltop = pchecklevs(5)
nsubmin = pchecklevs(1)
nsubmax = pchecklevs(2)
Lup = pchecklevs(3)