!       call namtget(names,nums,nn)
!       readin nametable from mpm, to get list of all mnemonics
        subroutine namtget(names,nums,nn)
        implicit none
        integer,save:: nnsav,init=0,nptr
        integer:: i,nn,nums(*),temp(5),vnamptr,numsav(2050)
        character*12 namsav(2050),names(*),mnem
        equivalence(temp,mnem)
        if(init.eq.0) then
         nptr=vnamptr('NAME_TABLE  ')
         nnsav=0   ;   init=1
         do i=1,2048      !scan nametable
          call mpmgetv(nptr,temp,5)   !name,typ, # ele
          if(temp(5).lt.1) exit     !if no ele in entry, donr
          numsav(i)=temp(5)  ; namsav(i)=mnem
          nnsav=i ; nptr=nptr+128*4   !next entry
         enddo 
        endif
        nn=nnsav
        nums(1:nn)=numsav(1:nn) ; names(1:nn)=namsav(1:nn)
        return
        end subroutine