index              84 src/arpackcs.c     info,rvec=1,*select=NULL,lfin,j,lint,iout=1,nm,index,inode,id,i,idof,
index            1256 src/arpackcs.c 		  index=ipompc[i]-1;
index            1258 src/arpackcs.c 		  if(nodempc[3*index+1]==0) continue;
index            1259 src/arpackcs.c 		  coefmpcnew[index]=coefmpc[index];
index            1261 src/arpackcs.c 		      index=nodempc[3*index+2];
index            1262 src/arpackcs.c 		      if(index==0) break;
index            1263 src/arpackcs.c 		      index--;
index            1266 src/arpackcs.c 		      inode=nodempc[3*index];
index            1281 src/arpackcs.c 			  idir=nodempc[3*index+1];
index            1287 src/arpackcs.c 			      coefmpcnew[index]=coefmpc[index]*
index            1291 src/arpackcs.c 			      coefmpcnew[index]=coefmpc[index]*
index            1294 src/arpackcs.c 		      else{coefmpcnew[index]=coefmpc[index];}
index              59 src/cascade.c      ITG i,j,index,id,idof,nterm,idepend,*nodempc=NULL,
index             178 src/cascade.c  	    index=nodempc[3*ipompc[i]-1];
index             179 src/cascade.c  	    if(index==0) continue;
index             183 src/cascade.c  		    idof=(nodempc[3*index-3]-1)*8+nodempc[3*index-2];
index             185 src/cascade.c  		    if(nodempc[3*index-3]>0){
index             187 src/cascade.c  			idof=-((nodempc[3*index-3]-1)*8+nodempc[3*index-2]);
index             193 src/cascade.c  			idof=(nodeboun[-nodempc[3*index-3]-1]-1)*8+nodempc[3*index-2];
index             203 src/cascade.c  		    indexold=nodempc[3*index-1];
index             204 src/cascade.c  		    coef=coefmpc[index-1];
index             216 src/cascade.c  			    printf("       common node: %" ITGFORMAT " in direction %" ITGFORMAT "\n\n",nodempc[3*index-3],nodempc[3*index-2]);
index             219 src/cascade.c  			    index=nodempc[3*index-1];
index             220 src/cascade.c  			    if(index!=0) continue;
index             273 src/cascade.c  			coefmpc[index-1]=coef*coefmpc[indexnew-1];
index             274 src/cascade.c  			nodempc[3*index-3]=nodempc[3*indexnew-3];
index             275 src/cascade.c  			nodempc[3*index-2]=nodempc[3*indexnew-2];
index             278 src/cascade.c  			    nodempc[3*index-1]=*mpcfree;
index             279 src/cascade.c  			    index=*mpcfree;
index             283 src/cascade.c  				nodempc[3*index-1]=*mpcfree;
index             296 src/cascade.c  			    nodempc[3*index-1]=indexold;
index             303 src/cascade.c  		    index=nodempc[3*index-1];
index             304 src/cascade.c  		    if(index!=0) continue;
index             385 src/cascade.c  	    index=ipompc[i];
index             387 src/cascade.c  		idof=8*(nodempc[3*index-3]-1)+nodempc[3*index-2]-1;
index             406 src/cascade.c  		xcoef[ifree]=coefmpc[index-1];
index             408 src/cascade.c  		index=nodempc[3*index-1];
index             409 src/cascade.c  		if(index==0) break;
index             425 src/cascade.c  	    index=ipointer[idof-1];
index             427 src/cascade.c  		irow=icoef[2*index-2]-1;
index             441 src/cascade.c  		coef=xcoef[index-1];
index             443 src/cascade.c  		index=icoef[2*index-1];
index             444 src/cascade.c  		if(index==0) break;
index             587 src/cascade.c  		index=ipointer[idof];
index             589 src/cascade.c  		    irow=icoef[2*index-2]-1;
index             590 src/cascade.c  		    coef=xcoef[index-1];
index             592 src/cascade.c  		    index=icoef[2*index-1];
index             593 src/cascade.c  		    if(index==0) break;
index             711 src/cascade.c  	index=ipompc[i];
index             712 src/cascade.c  	*mpcend=max(*mpcend,index);
index             715 src/cascade.c  	    index=nodempc[3*index-1];
index             716 src/cascade.c  	    if(index==0){
index             721 src/cascade.c  	    *mpcend=max(*mpcend,index);
index              84 src/complexfreq.c     *ipneigh=NULL,*neigh=NULL,index,im,cyclicsymmetry,inode,
index            1299 src/complexfreq.c 	index=ipompc[i]-1;
index            1301 src/complexfreq.c 	if(nodempc[3*index+1]==0) continue;
index            1302 src/complexfreq.c 	coefmpcnew[index]=coefmpc[index];
index            1304 src/complexfreq.c 	  index=nodempc[3*index+2];
index            1305 src/complexfreq.c 	  if(index==0) break;
index            1306 src/complexfreq.c 	  index--;
index            1309 src/complexfreq.c 	  inode=nodempc[3*index];
index            1324 src/complexfreq.c 	    idir=nodempc[3*index+1];
index            1330 src/complexfreq.c 	      coefmpcnew[index]=coefmpc[index]*
index            1334 src/complexfreq.c               coefmpcnew[index]=coefmpc[index]*
index            1337 src/complexfreq.c 	  else{coefmpcnew[index]=coefmpc[index];}
index              35 src/dfdbj.c      ITG j,j1,jdof,kdof,k,k1,l,id,index,ist,id1,ist1,index1,id2,ist2,index2,
index             108 src/dfdbj.c    				  index=nodempc[ist*3+2];
index             109 src/dfdbj.c    				  if(index==0) continue;
index             110 src/dfdbj.c    				  index--;
index             112 src/dfdbj.c    				      kdof=nactdof[mt*(nodempc[index*3]-1)+nodempc[index*3+1]];
index             113 src/dfdbj.c    				      d1=sl*coefmpc[index]/coefmpc[ist];
index             131 src/dfdbj.c    				      index=nodempc[index*3+2];
index             132 src/dfdbj.c    				      if(index==0) break;
index             133 src/dfdbj.c    				      index--;
index              89 src/electromagnetics.c       *ieg=NULL,ntg=0,ntr,*kontri=NULL,*nloadtr=NULL,index,
index             714 src/electromagnetics.c       index=memmpc_;
index             718 src/electromagnetics.c       for(k=index;k<memmpc_;k++){
index              71 src/expand.c       ITG *inum=NULL,k,idir,lfin,j,iout=0,index,inode,id,i,idof,im,
index             474 src/expand.c   		index=ipompc[i]-1;
index             476 src/expand.c   		if(nodempc[3*index+1]==0) continue;
index             477 src/expand.c   		coefmpcnew[index]=coefmpc[index];
index             479 src/expand.c   		    index=nodempc[3*index+2];
index             480 src/expand.c   		    if(index==0) break;
index             481 src/expand.c   		    index--;
index             484 src/expand.c   		    inode=nodempc[3*index];
index             499 src/expand.c   			idir=nodempc[3*index+1];
index             505 src/expand.c   			    coefmpcnew[index]=coefmpc[index]*
index             510 src/expand.c   			    coefmpcnew[index]=coefmpc[index]*
index             514 src/expand.c   		    else{coefmpcnew[index]=coefmpc[index];}
index             706 src/expand.c   		index=ipompcold[j]-1;
index             707 src/expand.c   		nodeleft=nodempcold[3*index];
index             708 src/expand.c   		idir=nodempcold[3*index+1];
index             709 src/expand.c   		index=nodempcold[3*index+2]-1;
index             712 src/expand.c   		    node=nodempcold[3*index];
index             713 src/expand.c   		    if(nodempcold[3*index+1]==idir){
index             715 src/expand.c   			coefright[numnodes]=coefmpcold[index];
index             723 src/expand.c   		    index=nodempcold[3*index+2]-1;
index             724 src/expand.c   		    if(index==-1) break;
index             749 src/expand.c   		index=ipompcold[j]-1;
index             753 src/expand.c   		    node=nodempcold[3*index];
index             754 src/expand.c   		    idir=nodempcold[3*index+1];
index             755 src/expand.c   		    coef=coefmpcold[index];
index             826 src/expand.c   		    index=nodempcold[3*index+2]-1;
index             827 src/expand.c   		    if(index==-1) break;
index              41 src/mastruct.c   ITG i,j,k,l,jj,ll,id,index,jdof1,jdof2,idof1,idof2,mpc1,mpc2,id1,id2,
index             147 src/mastruct.c       index=ipompc[i]-1;
index             149 src/mastruct.c 	  if(nodempc[3*index+1]<4){
index             150 src/mastruct.c 	      nactdof[mt*(nodempc[3*index]-1)+nodempc[3*index+1]]=1;
index             152 src/mastruct.c 	  index=nodempc[3*index+2];
index             153 src/mastruct.c 	  if(index==0) break;
index             154 src/mastruct.c 	  index--;
index             168 src/mastruct.c       index=ipompc[i]-1;
index             169 src/mastruct.c       if(nodempc[3*index+1]>mi[1]) continue;
index             170 src/mastruct.c       nactdof[mt*(nodempc[3*index]-1)+nodempc[3*index+1]]=0;
index             288 src/mastruct.c 		index=nodempc[3*ist-1];
index             289 src/mastruct.c 		if(index==0) continue;
index             291 src/mastruct.c 		    idof2=nactdof[mt*(nodempc[3*index-3]-1)+nodempc[3*index-2]];
index             295 src/mastruct.c 		  index=nodempc[3*index-1];
index             296 src/mastruct.c 		  if(index==0) break;
index             455 src/mastruct.c 		index=nodempc[3*ist-1];
index             456 src/mastruct.c 		if(index==0) continue;
index             458 src/mastruct.c 		    idof2=nactdof[mt*(nodempc[3*index-3]-1)+nodempc[3*index-2]];
index             462 src/mastruct.c 		  index=nodempc[3*index-1];
index             463 src/mastruct.c 		  if(index==0) break;
index              41 src/mastructcs.c   ITG i,j,k,l,jj,ll,id,index,jdof1,jdof2,idof1,idof2,mpc1,mpc2,id1,id2,
index             102 src/mastructcs.c       index=ipompc[i]-1;
index             104 src/mastructcs.c 	  if((nodempc[3*index+1]!=0)&&(nodempc[3*index+1]<4)){
index             105 src/mastructcs.c 	      nactdof[mt*(nodempc[3*index]-1)+nodempc[3*index+1]]=1;}
index             106 src/mastructcs.c 	  index=nodempc[3*index+2];
index             107 src/mastructcs.c 	  if(index==0) break;
index             108 src/mastructcs.c 	  index--;
index             120 src/mastructcs.c       index=ipompc[i]-1;
index             121 src/mastructcs.c       if(nodempc[3*index+1]>mi[1]) continue;
index             122 src/mastructcs.c       nactdof[mt*(nodempc[3*index]-1)+nodempc[3*index+1]]=0;
index             219 src/mastructcs.c 	      index=nodempc[3*ist-1];
index             220 src/mastructcs.c 	      if(index==0) continue;
index             222 src/mastructcs.c 		inode=nodempc[3*index-3];
index             241 src/mastructcs.c 		idof2=nactdof[mt*(inode-1)+nodempc[3*index-2]];
index             251 src/mastructcs.c 		index=nodempc[3*index-1];
index             252 src/mastructcs.c 		if(index==0) break;
index              40 src/mastructem.c   ITG i,j,k,l,jj,ll,id,index,jdof1,jdof2,idof1,idof2,mpc1,mpc2,id1,id2,
index             149 src/mastructem.c       index=ipompc[i]-1;
index             151 src/mastructem.c 	  node=nodempc[3*index];
index             153 src/mastructem.c 	      nactdof[mt*(node-1)+nodempc[3*index+1]]=1;
index             155 src/mastructem.c 	  index=nodempc[3*index+2];
index             156 src/mastructem.c 	  if(index==0) break;
index             157 src/mastructem.c 	  index--;
index             169 src/mastructem.c     index=ipompc[i]-1;
index             170 src/mastructem.c     if(nodempc[3*index+1]>mi[1]) continue;
index             171 src/mastructem.c     nactdof[mt*(nodempc[3*index]-1)+nodempc[3*index+1]]=0;
index             273 src/mastructem.c 		index=nodempc[3*ist-1];
index             274 src/mastructem.c 		if(index==0) continue;
index             276 src/mastructem.c 		    idof2=nactdof[mt*(nodempc[3*index-3]-1)+nodempc[3*index-2]];
index             280 src/mastructem.c 		  index=nodempc[3*index-1];
index             281 src/mastructem.c 		  if(index==0) break;
index             431 src/mastructem.c 		index=nodempc[3*ist-1];
index             432 src/mastructem.c 		if(index==0) continue;
index             434 src/mastructem.c 		    idof2=nactdof[mt*(nodempc[3*index-3]-1)+nodempc[3*index-2]];
index             438 src/mastructem.c 		  index=nodempc[3*index-1];
index             439 src/mastructem.c 		  if(index==0) break;
index              32 src/mastructf.c   ITG i,j,k,l,index,idof1,idof2,node1,isubtract,nmast,ifree=0,istart,istartold,
index              57 src/mastructf.c       index=ipnei[i];
index              60 src/mastructf.c 	  neighbor=neiel[index+j];
index              35 src/matrixstorage.c     npoint_,npoint,neq3,index,i3l,i3c,i3lo,i3co,idof,n,il,
index             181 src/matrixstorage.c     index=0;
index             197 src/matrixstorage.c         ipoindex[npoint-1]=index;
index             206 src/matrixstorage.c         index+=9;
index             208 src/matrixstorage.c         ipoindex[npoint-1]=index;
index             211 src/matrixstorage.c         index=ipoindex[id-1];
index             213 src/matrixstorage.c       aa3[index+3*i3co+i3lo]=aa[i];
index             405 src/matrixstorage.c     index=0;
index             421 src/matrixstorage.c         ipoindex[npoint-1]=index;
index             430 src/matrixstorage.c         index+=9;
index             432 src/matrixstorage.c         ipoindex[npoint-1]=index;
index             435 src/matrixstorage.c         index=ipoindex[id-1];
index             437 src/matrixstorage.c       aa3[index+3*i3co+i3lo]=aa[i];
index              42 src/pardiso.c        lfortran,index,id,k2;
index              40 src/pardiso_as.c       msglvl=0,error=0,ifortran,lfortran,index,id;
index             100 src/pardiso_as.c 	  index=jq[j]+id-2;
index             101 src/pardiso_as.c 	  if(irow[index]==ifortran){
index             103 src/pardiso_as.c 	    aupardisoas[k]=au[index];
index             135 src/pardiso_as.c 	  index=jq[j]+id-2;
index             136 src/pardiso_as.c 	  if(irow[index]==ifortran){
index             138 src/pardiso_as.c 	    aupardisoas[k]=au[index]-*sigma*aub[index];
index              41 src/storecontactdof.c   ITG j,j1,jdof,id,k,l,ist,index,node,ndir,*ikactcont=*ikactcontp;
index              78 src/storecontactdof.c 		      index=nodempc[3*ist-1];
index              79 src/storecontactdof.c 		      if(index==0) continue;
index              81 src/storecontactdof.c 			  node=nodempc[3*index-3];
index              82 src/storecontactdof.c 			  ndir=nodempc[3*index-2];
index             110 src/storecontactdof.c 			      bcont[jdof]-=coefmpc[index-1]*
index             113 src/storecontactdof.c 			  index=nodempc[3*index-1];
index             114 src/storecontactdof.c 			  if(index==0) break;
index              38 src/tiedcontact.c       *iendfield=NULL,*ifield=NULL,ntrimax,index,
index             145 src/tiedcontact.c   index=*memmpc_;
index             149 src/tiedcontact.c   for(k=index;k<*memmpc_;k++){