logical indwid
	real*4 astart,astep,aend
	integer kasymm,np,no,nc,nper,nb
      common /a/astart,astep,aend,kasymm,np,no,indwid,nc,nper,nb