Lines Matching refs:nmpc
21 & lakon,ne,iponor,xnor,knor,ipompc,nodempc,coefmpc,nmpc,nmpc_, argument
39 & iponor(2,*),knor(*),ipompc(*),nodempc(3,*),nmpc,nmpc_, local
125 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
177 call nident(ikmpc,idof,nmpc,id)
181 call mpcrem(impc,mpcfree,nodempc,nmpc,
209 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,nk,nk_,
459 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
490 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
518 call nident(ikmpc,idof,nmpc,id)
519 nmpc=nmpc+1
520 if(nmpc.gt.nmpc_) then
526 ipompc(nmpc)=mpcfree
527 labmpc(nmpc)=' '
529 do l=nmpc,id+2,-1
534 ilmpc(id+1)=nmpc
700 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
715 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
724 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
739 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
831 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
846 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
855 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
870 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
909 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
924 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
933 & labmpc,nmpc,nmpc_,mpcfree,ikmpc,ilmpc,
948 & nmpc,nmpc_,mpcfree,inotr,trab,ntrans,
968 call nident(ikmpc,idof,nmpc,id)
970 nmpc=nmpc+1
971 if(nmpc.gt.nmpc_) then
976 labmpc(nmpc)=' '
977 ipompc(nmpc)=mpcfree
978 do j=nmpc,id+2,-1
983 ilmpc(id+1)=nmpc
1031 call nident(ikmpc,idof,nmpc,id)
1033 nmpc=nmpc+1
1034 if(nmpc.gt.nmpc_) then
1039 labmpc(nmpc)=' '
1040 ipompc(nmpc)=mpcfree
1041 do j=nmpc,id+2,-1
1046 ilmpc(id+1)=nmpc
1082 call nident(ikmpc,idof,nmpc,id)
1084 nmpc=nmpc+1
1085 if(nmpc.gt.nmpc_) then
1090 labmpc(nmpc)=' '
1091 ipompc(nmpc)=mpcfree
1092 do j=nmpc,id+2,-1
1097 ilmpc(id+1)=nmpc
1128 call nident(ikmpc,idof,nmpc,id)
1130 nmpc=nmpc+1
1131 if(nmpc.gt.nmpc_) then
1136 labmpc(nmpc)=' '
1137 ipompc(nmpc)=mpcfree
1138 do j=nmpc,id+2,-1
1143 ilmpc(id+1)=nmpc
1176 call nident(ikmpc,idof,nmpc,id)
1178 nmpc=nmpc+1
1179 if(nmpc.gt.nmpc_) then
1184 labmpc(nmpc)=' '
1185 ipompc(nmpc)=mpcfree
1186 do j=nmpc,id+2,-1
1191 ilmpc(id+1)=nmpc
1234 call nident(ikmpc,idof,nmpc,id)
1236 nmpc=nmpc+1
1237 if(nmpc.gt.nmpc_) then
1242 labmpc(nmpc)=' '
1243 ipompc(nmpc)=mpcfree
1244 do j=nmpc,id+2,-1
1249 ilmpc(id+1)=nmpc
1280 call nident(ikmpc,idof,nmpc,id)
1283 nmpc=nmpc+1
1284 if(nmpc.gt.nmpc_) then
1289 labmpc(nmpc)=' '
1290 ipompc(nmpc)=mpcfree
1291 do j=nmpc,id+2,-1
1296 ilmpc(id+1)=nmpc