character*40 qruid
common
$/cbkinit/ tsetor,nzero,none,ntwo,nthree,qruid,systime,
$ ustime,two,pi,avognr,axiss(3),pset,rdndgr