program creeper
        use creep_module  
  	use sim_utils
	implicit none
	character:: invoke*200
	integer:: i,j,k,ele
        integer:: orgs(100),savsam,mul,rmin=-15,rmax=15,delt
	integer:: lun,be(40),en(40),ints(40),typs(40),sval(2)
        integer:: istat,mnet_disconnectf,mnet_connectf,ierr
	logical:: err
        real:: fig,t0

	istat=mnet_connectf('TEST')      !connect to MPM/Xbus access
	if(istat.ne.1) then
	 print *,' Failed to connect to mpm hardware ' ; stop
	endif 
        fake_on=.false.   !!!ONLY TO TEST!!!
        call cesr_getarg(0,invoke)     !0 => whole line, get prog invocation
        call upcase_string(invoke)
        call init_creep(invoke)
        call bunon
        call vxgetn(sred,sr1,sr2,sval)
        print *,'before ',sval
        do i=1,nv
         call vmgcmd(mnems(i),els(i),els(i),orgs(i))
        enddo 

1       t0=secnds(0.0) 
        if(mnems(1).ne.'PFN HI VOLTS') then  !if not at start, do HV
         savsam=nsam ; nsam=1 
         wait=100 ; mul=1 ; mnem='PFN HI VOLTS' ; el=2 !always HV
         call creep(-30,30,mul)
         nsam=savsam      !reset default
        endif 
        do i=1,nv
         wait=wts(i) ; mul=muls(i)    ;mnem=mnems(i) ; el=els(i)  
!        wait ms     delt multipler                  element    #samples 
         call creep(-30,30,mul) 
        enddo
        nsam=1 ; wait=100 ; mul=1 ; mnem='PFN HI VOLTS' ; el=2 !repeat HV
        if(.not.continuous) call creep(-30,30,mul)  !last touchup 

        print *,'elapsed ',secnds(t0)
        call vxgetn(sred,sr1,sr2,sval)
        print *,'after ',sval
        if(continuous) goto 1
	istat=mnet_disconnectf()
	stop
	end program creeper