program fcontest
  	use str_find_mod
	implicit none
	character:: mnem*12, ustr*20,unitstr*10, invoke*200,string*40
	integer:: i,j,k,ele,raw
	integer:: lun,be(40),en(40),ints(40),typs(40)
        integer:: istat,mnet_disconnectf,mnet_connectf,ierr
	real:: vals(20),fin,out1,out2
	logical:: err
	mnem='CSR DT80 L0E' ; ele=1
 
        call cesr_getarg(0,invoke)     !0 => whole line, get prog invocation
	istat=mnet_connectf('TEST')      !connect to MPM/Xbus access
	if(istat.ne.1) then
	 print *,' Failed to connect to mpm hardware ' ; stop
	endif 
        call vxgetn(mnem,ele,ele,raw)
        call vmgetf(mnem,ele,ele,fin)
        call gen_conly(mnem,ele,ele,raw,out1)
        call gen_conly(mnem,ele,ele,fin,out2)
        print 16,raw,fin
16      format(2(z10))
        print *,out1,out2,fin
	istat=mnet_disconnectf()
	stop
	end program fcontest