Lines Matching refs:nmpc
20 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,nodeboun,ndirboun, argument
31 integer ipompc(*),nodempc(3,*),nmpc,nmpc_,mpcfree,nk,nk_, local
53 call nident(ikmpc,idof,nmpc,id)
68 nmpc=nmpc+1
69 if(nmpc.gt.nmpc_) then
74 ipompc(nmpc)=mpcfree
75 labmpc(nmpc)=label
82 do l=nmpc,id+2,-1
87 ilmpc(id+1)=nmpc
99 if((labmpc(nmpc)(1:7).eq.'MEANROT').or.
100 & (labmpc(nmpc)(1:1).eq.'1')) then
102 labmpc(nmpc)(1:7)='MEANROT'
153 if((labmpc(nmpc)(1:7).eq.'MEANROT').or.
154 & (labmpc(nmpc)(1:1).eq.'1')) then
186 index=ipompc(nmpc)
206 index=ipompc(nmpc)
221 index=ipompc(nmpc)
267 index1=ipompc(nmpc)
295 index=ipompc(nmpc)
316 index=ipompc(nmpc)
327 index=ipompc(nmpc)
359 call nident(ikmpc,idof,nmpc-1,id)
411 index=ipompc(nmpc)
412 ipompc(nmpc)=0
431 nmpc=nmpc-1
442 index=ipompc(nmpc)
485 index=ipompc(nmpc)
507 call nident(ikmpc,idof,nmpc-1,id)
508 do l=nmpc,id+2,-1
513 ilmpc(id+1)=nmpc
515 elseif(labmpc(nmpc)(1:4).eq.'DIST') then
527 elseif(labmpc(nmpc)(1:4).eq.'USER') then
534 write(*,*) '*ERROR in usermpc: mpc of type',labmpc(nmpc)