module creep_module
      character*12:: sred='SYNC CUR AVG'
      integer,parameter:: sr1=2,sr2=3   !beam readout elements
      integer,save::  d(-30:30,0:31),ns(-30:30)  !beam, lat sample/bin
      integer,save:: wts(100),wait  !wait time per mnemonic,current
      real,save::  wei(-30:30,0:31)   !weight, per sample
      integer,save:: muls(100) !step size per mnemonic
      integer:: nsam,s  !total, present sample #
      character*12:: mnem,mnems(100)  !mnemonic being adjusted, all
      integer:: el,els(100)    !ele being adjusted,all
      integer:: nv    !# vars
      logical:: fake_on=.false.,continuous=.false.
      end module