!       call nodedump(mnem)   !write db node data for one node to terminal
        subroutine nodedump(mnemo)
	implicit none
        character*12:: mnem,mnemo
	integer:: i,ntab(256),htab(128),ntadr,vnamptr

        mnem=mnemo ; call upcase_string(mnem)
        ntadr=vnamptr(mnem)
        
        call mpmgetv(ntadr,ntab,128)      !get nam tab entry, inc all prop ptrs
        print 1006,' NameTab Addr ',ntadr
        print 1010,' # ele=  ',ntab(5)
        print 1006,' XB Mask  ',ntab(6)
        print 1010,' IRP Instructions ',ntab(12:15)
        print 1006,' Property Masks ',ntab(7:9)
        print 1006,' Header Tab Addr ',ntab(11)
        if(ntab(11).ne.0) then
         call mpmgetv(ntab(11),htab,128)      !get header tab
         print 1600,(i,htab(1+i),htab(19+i),i=10,14)
        else
         print *,' no header data '
        endif 
1600    format(' XB ',z1,' Start stop ele ',2i5)
1006    format(a,6z10)
1010    format(a,10i6)
        return
        end subroutine