program namtgetest
  	use str_find_mod
	implicit none
        character*200:: invoke,file
	character*12:: names(2048)
	integer i,j,k,ele,nums(2048),nn
	real:: t0,t1
        integer istat,mnet_disconnectf,mnet_connectf
	logical err,isshop

        call cesr_getarg(0,invoke)
        call upcase_string(invoke)
        call gen_connect(invoke,isshop)
        t0=secnds(0.0)
        call namtget(names,nums,nn)
        print *,' 1st ',secnds(t0)
        t0=secnds(0.0)
        call namtget(names,nums,nn)
        print *,' 2nd ',secnds(t0)
	istat=mnet_disconnectf()

        print *,nn,' mnemonics in name table'
        do i=1,nn,50       !display sample of names
         print *,names(i),nums(i)
        enddo 

        if(isshop) then
         file='$CESR_CONFIG/db/namtrans.shop'
        elseif(index(invoke,'137').gt.0) then  !CRS office new (2023) test sys
         file='$CESR_CONFIG/db/namtrans.rtos'
        else
         file='$CESR_CONFIG/db/namtrans.tab'
        endif 
        print *,' writing to ',trim(file)
        call openwr(40,trim(file),err,80)  !open for write
        do i=1,nn
         print *,names(i),nums(i)
         write (40,4040) names(i),nums(i)
        enddo 
4040    format(a,i6)
        print *,' new ',trim(file), ' written '
	stop
	end program namtgetest