j                2314 src/CalculiX.h void FORTRAN(writesummary,(ITG *istep,ITG *j,ITG *icutb,ITG *l,double *ttime,
j                2317 src/CalculiX.h void FORTRAN(writesummarydiv,(ITG *istep,ITG *j,ITG *icutb,ITG *l,double *ttime,
j                  83 src/arpack.c       info,rvec=1,*select=NULL,lfin,j,lint,iout,ielas=0,icmd=0,mt=mi[1]+1,
j                 502 src/arpack.c   	    nstate_,istep,&iinc,ithermal,qfn,&j,&noddiam,trab,inotr,
j                 725 src/arpack.c         for(j=0;j<nev;j++){
j                 726 src/arpack.c   	  dc[2*j]=sqrt(sqrt(d[j]*d[j]+di[j]*di[j])+d[j])/sqrt(2.);
j                 727 src/arpack.c   	  dc[2*j+1]=sqrt(sqrt(d[j]*d[j]+di[j]*di[j])-d[j])/sqrt(2.);
j                 728 src/arpack.c   	  if(di[j]<0.) dc[2*j+1]=-dc[2*j+1];
j                 835 src/arpack.c     for(j=0;j<nev;++j){
j                 865 src/arpack.c   	if(fmin*fmin>d[j]) continue;
j                 868 src/arpack.c   	if(fmax*fmax<d[j]) continue;
j                 871 src/arpack.c       if(*nprint>0) FORTRAN(writehe,(&j));
j                 925 src/arpack.c       if(d[j]>=0.){
j                 926 src/arpack.c   	freq=sqrt(d[j])/6.283185308;
j                 938 src/arpack.c   	    nstate_,istep,&iinc,ithermal,qfn,&j,&noddiam,trab,inotr,
j                  73 src/arpackbu.c     info,rvec=1,*select=NULL,lfin,j,lint,iout,iconverged=0,ielas,icmd=0,
j                 249 src/arpackbu.c 	    nstate_,&istep,&iinc,ithermal,qfn,&j,&noddiam,trab,inotr,
j                 369 src/arpackbu.c 	    nstate_,&istep,&iinc,ithermal,qfn,&j,&noddiam,trab,inotr,
j                 642 src/arpackbu.c   for(j=0;j<nev;++j){
j                 649 src/arpackbu.c     if(*nprint>0) FORTRAN(writehe,(&j));
j                 700 src/arpackbu.c 	    kode,filab,een,t1,fn,&d[j],epn,ielmat,matname,enern,xstaten,
j                 701 src/arpackbu.c 	    nstate_,&istep,&iinc,ithermal,qfn,&j,&noddiam,trab,inotr,
j                  84 src/arpackcs.c     info,rvec=1,*select=NULL,lfin,j,lint,iout=1,nm,index,inode,id,i,idof,
j                 417 src/arpackcs.c   for(j=0;j<*mcs;j++){
j                 418 src/arpackcs.c       if(cs[17*j+4]>ngraph) ngraph=cs[17*j+4];
j                 566 src/arpackcs.c 	      nstate_,istep,&iinc,ithermal,qfn,&j,&nm,trab,inotr,
j                 858 src/arpackcs.c 	  for(j=0;j<nev;j++){
j                 859 src/arpackcs.c 	      dc[2*j]=sqrt(sqrt(d[j]*d[j]+di[j]*di[j])+d[j])/sqrt(2.);
j                 860 src/arpackcs.c 	      dc[2*j+1]=sqrt(sqrt(d[j]*d[j]+di[j]*di[j])-d[j])/sqrt(2.);
j                 861 src/arpackcs.c 	      if(di[j]<0.) dc[2*j+1]=-dc[2*j+1];
j                 862 src/arpackcs.c 	      nmc[j]=nm;
j                 918 src/arpackcs.c       for (j=0;j<nev;j+=2){
j                 922 src/arpackcs.c 	      amp=z[2*j*neq[1]+k]*z[2*j*neq[1]+k]+
j                 923 src/arpackcs.c 		  z[2*j*neq[1]+neq2+k]*z[2*j*neq[1]+neq2+k];
j                 929 src/arpackcs.c 	      amp=z[(2*j+1)*neq[1]+k]*z[(2*j+1)*neq[1]+k]+
j                 930 src/arpackcs.c 		  z[(2*j+1)*neq[1]+neq2+k]*z[(2*j+1)*neq[1]+neq2+k];
j                 937 src/arpackcs.c 	      memcpy(zstorage,&z[2*j*neq[1]],sizeof(double)*neq[1]);
j                 938 src/arpackcs.c 	      memcpy(&z[2*j*neq[1]],&z[(2*j+1)*neq[1]],sizeof(double)*neq[1]);
j                 939 src/arpackcs.c 	      memcpy(&z[(2*j+1)*neq[1]],zstorage,sizeof(double)*neq[1]);
j                1213 src/arpackcs.c       for(j=0;j<nev;++j){
j                1228 src/arpackcs.c 	      if(fmin*fmin>d[j]) continue;
j                1231 src/arpackcs.c 	      if(fmax*fmax<d[j]) continue;
j                1234 src/arpackcs.c 	  if(*nprint>0)FORTRAN(writehe,(&j));
j                2213 src/arpackcs.c     if(d[j]>=0.){
j                2214 src/arpackcs.c 	freq=sqrt(d[j])/6.283185308;
j                2226 src/arpackcs.c 	    nstate_,istep,&iinc,ithermal,qfn,&j,&nm,trab,inotrt,
j                  34 src/biosav.c       ITG i,j,*ithread=NULL,nkphi,idelta,isum;
j                 119 src/biosav.c       j=0;
j                 123 src/biosav.c   	if(j==num_cpus) break;
j                 125 src/biosav.c   	    if(nkapar[j]==nkphi){
j                 126 src/biosav.c   		nkapar[j]=i;
j                 140 src/biosav.c   	    if(nkepar[j]==nkphi){
j                 141 src/biosav.c   		nkepar[j]=i;
j                 142 src/biosav.c   		j++;
j                  42 src/calcresidual.c     ITG j,k,mt=mi[1]+1;
j                  59 src/calcresidual.c 	    for(j=1;j<mt;++j){
j                  60 src/calcresidual.c 		if(nactdof[mt*k+j]!=0){aux2[nactdof[mt*k+j]-1]=accold[mt*k+j];}
j                  81 src/calcresidual.c 		for(j=1;j<mt;++j){
j                  82 src/calcresidual.c 		    if(nactdof[mt*k+j]!=0){
j                  83 src/calcresidual.c 			aux2[nactdof[mt*k+j]-1]=veold[mt*k+j];}
j                 103 src/calcresidual.c 	    for(j=1;j<mt;++j){
j                 104 src/calcresidual.c 		if(nactdof[mt*k+j]!=0){aux2[nactdof[mt*k+j]-1]=accold[mt*k+j];}
j                  41 src/calcresidual_em.c     ITG j,k,mt=mi[1]+1,jstart;
j                  64 src/calcresidual_em.c 	    for(j=jstart;j<mt;++j){
j                  65 src/calcresidual_em.c 		if(nactdof[mt*k+j]!=0){aux2[nactdof[mt*k+j]-1]=(vold[mt*k+j]-vini[mt*k+j])/(*dtime);}
j                  59 src/cascade.c      ITG i,j,index,id,idof,nterm,idepend,*nodempc=NULL,
j                 288 src/cascade.c  				for(j=*mpcfree;j<*memmpc_;j++){
j                 289 src/cascade.c  				    nodempc[3*j-1]=j+1;
j                 396 src/cascade.c  			for(j=nindep;j>id;j--){
j                 397 src/cascade.c  			    indepdof[j]=indepdof[j-1];
j                 568 src/cascade.c  	for(j=0;j<*nmpc;j++){
j                 569 src/cascade.c  	    ipompc[j]=0;}
j                 642 src/cascade.c  		for(j=0;j<*nmpc;j++){
j                 643 src/cascade.c  		    b=DenseMtx_entries(mtxX)[j];
j                 645 src/cascade.c  			nodempc[3**mpcfree-1]=ipompc[j];
j                 651 src/cascade.c  			ipompc[j]=(*mpcfree)++;
j                 681 src/cascade.c  	    j=ilmpc[i]-1;
j                 685 src/cascade.c  	    nodempc[3**mpcfree-1]=ipompc[j];
j                 689 src/cascade.c  	    ipompc[j]=(*mpcfree)++;
j                  77 src/ccx_2.8.c    nmethod,neq[3]={0,0,0},i,mpcfree=1,mei[4],j,nzl,nam,nbounold=0,
j                 617 src/ccx_2.8.c  	    for(j=0;j<mi[0];j++){
j                 619 src/ccx_2.8.c  		    sti[6*mi[0]*i+6*j+k]=prestr[6*mi[0]*i+6*j+k];
j                 627 src/ccx_2.8.c  	    for(j=0;j<mi[0];j++){
j                 629 src/ccx_2.8.c  		    eme[6*mi[0]*i+6*j+k]=prestr[6*mi[0]*i+6*j+k];
j                  57 src/checkconvergence.c         i,j,mt=mi[1]+1,iexceed;
j                 189 src/checkconvergence.c 		for(j=1;j<mt;j++){
j                 190 src/checkconvergence.c 		    veold[mt*i+j]=(vold[mt*i+j]-vini[mt*i+j])/(*dtime);
j                  77 src/complexfreq.c   ITG nev,i,j,k,idof,*inum=NULL,*ipobody=NULL,inewton=0,id,
j                 341 src/complexfreq.c       j=-1;
j                 344 src/complexfreq.c 	      j++;
j                 346 src/complexfreq.c 		  d[j]=d[i];
j                 348 src/complexfreq.c 		  d[2*j]=d[2*i];d[2*j+1]=d[2*i+1];
j                 350 src/complexfreq.c 	      nm[j]=nm[i];
j                 352 src/complexfreq.c 		  z[j*neq[1]+k]=z[i*neq[1]+k];
j                 356 src/complexfreq.c       nev=j+1;
j                 369 src/complexfreq.c       for(j=0;j<*mcs;j++){
j                 370 src/complexfreq.c 	  if(cs[17*j+4]>ngraph) ngraph=(ITG)cs[17*j+4];
j                 530 src/complexfreq.c 	  for(j=0;j<=i;j++){
j                 532 src/complexfreq.c 		  cc[i*nev+j]+=z[j*neq[1]+k]*zc[i*neq[1]+k];
j                 540 src/complexfreq.c 	  for(j=i+1;j<nev;j++){
j                 541 src/complexfreq.c 	      cc[i*nev+j]=-cc[j*nev+i];
j                 770 src/complexfreq.c 	  for(j=0;j<2;j++){
j                 773 src/complexfreq.c 		      zz[(2*l+j)*neq[1]+i]+=xx[2*l*nev+2*k+j]*
j                 974 src/complexfreq.c 	  for(j=0;j<nev;++j){
j                1057 src/complexfreq.c 	  for(j=0;j<nev;++j){
j                1266 src/complexfreq.c   for(j=0;j<nev;++j){
j                1273 src/complexfreq.c 	theta=nm[j]*2.*pi/cs[17*k];
j                1278 src/complexfreq.c     if(*nprint>0)FORTRAN(writehe,(&j));
j                1434 src/complexfreq.c 	  theta=i*nm[j]*2.*pi/cs[17*jj];
j                1775 src/complexfreq.c     freq=eigxx[2*j]/6.283185308;
j                1782 src/complexfreq.c 	    nstate_,istep,&iinc,ithermal,qfn,&j,&nm[j],trab,inotrt,
j                  35 src/dfdbj.c      ITG j,j1,jdof,kdof,k,k1,l,id,index,ist,id1,ist1,index1,id2,ist2,index2,
j                  41 src/dfdbj.c      for(j=0; j<*nope; j++){
j                  42 src/dfdbj.c          i1=mt*(konl[j]-1)+1;
j                  75 src/dfdbj.c    	      bcont[jdof]-=fnl[j*3+j1];
j                  77 src/dfdbj.c    	      i3=(3*j+j1);
j                 142 src/dfdbj.c    	      jdof=8*(konl[j]-1)+j1+1;
j                 184 src/dfdbj.c    			      bcont[jdof]+=coefmpc[index1]*fnl[j*3+j1]/coefmpc[ist1];
j                 186 src/dfdbj.c    			      i3=(3*j+j1);
j                  77 src/dyna.c       ITG nev,i,j,k,idof,*inum=NULL,*ipobody=NULL,inewton=0,id,
j                 427 src/dyna.c           for(j=0;j<*mcs;j++){
j                 428 src/dyna.c     	  if(cs[17*j+4]>ngraph) ngraph=(ITG)cs[17*j+4];
j                 504 src/dyna.c     	  for(j=0; j<*nset; j++){
j                 505 src/dyna.c     	    memcpy(tchar1,&set[j*81],81);
j                 511 src/dyna.c     	      (*nalset)+=(iendset[j]-istartset[j]+1)*(nsectors);
j                 517 src/dyna.c     	      (*nalset)+=(iendset[j]-istartset[j]+1)*(nsectors);
j                 532 src/dyna.c           for(j=0; j<*nset; j++){
j                 533 src/dyna.c     	istartset_[j]=istartset[j];
j                 534 src/dyna.c     	iendset_[j]=iendset[j];
j                 678 src/dyna.c     	  for(j=0;j<=i;j++){
j                 680 src/dyna.c     		  cc[i*nev+j]+=z[j*neq[1]+k]*zc[i*neq[1]+k];
j                 688 src/dyna.c     	  for(j=i;j<nev;j++){
j                 689 src/dyna.c     	      cc[i*nev+j]=cc[j*nev+i];
j                 816 src/dyna.c           for(j=0;j<mt;j++){
j                 817 src/dyna.c     	if(nactdof[mt*i+j]!=0){
j                 818 src/dyna.c     	  idof=nactdof[mt*i+j]-1;
j                 819 src/dyna.c     	  temp_array1[idof]=vold[mt*i+j];
j                 836 src/dyna.c           for(j=0;j<mt;j++){
j                 837 src/dyna.c     	if(nactdof[mt*i+j]!=0){
j                 838 src/dyna.c     	  idof=nactdof[mt*i+j]-1;
j                 839 src/dyna.c     	  temp_array1[idof]=veold[mt*i+j];
j                1063 src/dyna.c     	  for(j=0;j<8;j++){lakonl[j]=lakon[8*i+j];}
j                1065 src/dyna.c     	  for(j=0;j<nope;j++){
j                1066 src/dyna.c     	      konl[j]=kon[indexe+j];
j                1068 src/dyna.c     		  xl[j*3+j1]=co[3*(konl[j]-1)+j1];
j                1069 src/dyna.c     		  voldl[mt*j+j1+1]=vold[mt*(konl[j]-1)+j1+1];
j                1070 src/dyna.c     		  veoldl[mt*j+j1+1]=veold[mt*(konl[j]-1)+j1+1];
j                1101 src/dyna.c     	      for(j=0;j<nactmech;j++){
j                1102 src/dyna.c     		  aamech[i]+=z[i2+ikactmech[j]]*b[ikactmech[j]];
j                1105 src/dyna.c     	      for(j=0;j<neq[1];j++){
j                1106 src/dyna.c     		  aamech[i]+=z[i2+j]*b[j];
j                1111 src/dyna.c     	      for(j=0;j<nactcont;j++){
j                1112 src/dyna.c     		  aanew[i]+=z[i2+ikactcont[j]]*bcont[ikactcont[j]];
j                1118 src/dyna.c           for(j=0;j<nactmech;j++){
j                1119 src/dyna.c     	  FORTRAN(nident,(izdof,&ikactmech[j],&nzdof,&id));
j                1121 src/dyna.c     	      if(izdof[id-1]==ikactmech[j]){
j                1123 src/dyna.c     		      aamech[i]+=z[(long long)i*nzdof+id-1]*b[ikactmech[j]];
j                1130 src/dyna.c     	  for(j=0;j<nactcont;j++){
j                1131 src/dyna.c     	      FORTRAN(nident,(izdof,&ikactcont[j],&nzdof,&id));
j                1133 src/dyna.c     		  if(izdof[id-1]==ikactcont[j]){
j                1135 src/dyna.c     			  aanew[i]+=z[(long long)i*nzdof+id-1]*bcont[ikactcont[j]];
j                1210 src/dyna.c     		for(j=kmin;j<=kmax;j++){
j                1211 src/dyna.c     		    vini[i1+j]=vold[i1+j];
j                1456 src/dyna.c     		  for(j=0;j<nactmech;j++){
j                1457 src/dyna.c     		      aamech[i]+=z[i2+ikactmech[j]]*b[ikactmech[j]];
j                1460 src/dyna.c     		  for(j=0;j<neq[1];j++){
j                1461 src/dyna.c     		      aamech[i]+=z[i2+j]*b[j];
j                1467 src/dyna.c     		  for(j=0;j<nactcont;j++){
j                1468 src/dyna.c     		      aanew[i]+=z[i2+ikactcont[j]]*bcont[ikactcont[j]];
j                1480 src/dyna.c     	  for(j=0;j<nactmech;j++){
j                1481 src/dyna.c     	      FORTRAN(nident,(izdof,&ikactmech[j],&nzdof,&id));
j                1483 src/dyna.c     		  if(izdof[id-1]==ikactmech[j]){
j                1485 src/dyna.c     			  aamech[i]+=z[(long long)i*nzdof+id-1]*b[ikactmech[j]];
j                1492 src/dyna.c     	      for(j=0;j<nactcont;j++){
j                1493 src/dyna.c     		  FORTRAN(nident,(izdof,&ikactcont[j],&nzdof,&id));
j                1495 src/dyna.c     		      if(izdof[id-1]==ikactcont[j]){
j                1497 src/dyna.c     			      aanew[i]+=z[(long long)i*nzdof+id-1]*bcont[ikactcont[j]];
j                1654 src/dyna.c     		  for(j=0;j<nev;j++){
j                1655 src/dyna.c     		      b[i]+=bj[j]*z[(long long)j*neq[1]+i];
j                1656 src/dyna.c     		      bp[i]+=bjp[j]*z[(long long)j*neq[1]+i];
j                1661 src/dyna.c     		  for(j=0;j<nev;j++){
j                1662 src/dyna.c     		      b[imddof[i]]+=bj[j]*z[(long long)j*neq[1]+imddof[i]];
j                1663 src/dyna.c     		      bp[imddof[i]]+=bjp[j]*z[(long long)j*neq[1]+imddof[i]];
j                1672 src/dyna.c     		      for(j=0;j<nev;j++){
j                1673 src/dyna.c     			  b[imddof[i]]+=bj[j]*z[(long long)j*nzdof+id-1];
j                1674 src/dyna.c     			  bp[imddof[i]]+=bjp[j]*z[(long long)j*nzdof+id-1];
j                1873 src/dyna.c     	  for(j=0;j<nev;j++){
j                1874 src/dyna.c     	      b[i]+=bj[j]*z[(long long)j*neq[1]+i];
j                1875 src/dyna.c     	      bp[i]+=bjp[j]*z[(long long)j*neq[1]+i];
j                2001 src/dyna.c           for(j=0; j<*nset; j++){
j                2002 src/dyna.c     	istartset[j]=istartset_[j];
j                2003 src/dyna.c     	iendset[j]=iendset_[j];
j                 100 src/dynacont.c   ITG i,j,k,l,init,*itg=NULL,ntg=0,maxlenmpc,icascade=0,loop,
j                 153 src/dynacont.c   for(j=0;j<*nactcont;j++){bcont[ikactcont[j]]=0.;}
j                 174 src/dynacont.c       for(j=0;j<8;j++){lakonl[j]=lakon[8*i+j];}
j                 176 src/dynacont.c       for(j=0;j<nope;j++){
j                 177 src/dynacont.c 	  konl[j]=kon[indexe+j];
j                 179 src/dynacont.c 	      xl[j*3+j1]=co[3*(konl[j]-1)+j1];
j                 180 src/dynacont.c 	      voldl[mt*j+j1+1]=vold[mt*(konl[j]-1)+j1+1];
j                 181 src/dynacont.c 	      veoldl[mt*j+j1+1]=veold[mt*(konl[j]-1)+j1+1];
j                 241 src/dynacont.c   for(j=0;j<nactcont1;j++){bcont[ikactcont1[j]]=0.;}
j                 259 src/dynacont.c 	      for(j=kmin;j<=kmax;j++){
j                 260 src/dynacont.c 		  vold[i1+j]=vini[i1+j];
j                 372 src/dynacont.c 		  for(j=0;j<*nactmech;j++){
j                 373 src/dynacont.c 		      aamech[i]+=z[i2+ikactmech[j]]*b[ikactmech[j]];
j                 376 src/dynacont.c 		  for(j=0;j<neq[1];j++){
j                 377 src/dynacont.c 		      aamech[i]+=z[i2+j]*b[j];
j                 385 src/dynacont.c 	  for(j=0;j<*nactmech;j++){
j                 386 src/dynacont.c 	      FORTRAN(nident,(izdof,&ikactmech[j],nzdof,&id));
j                 388 src/dynacont.c 		  if(izdof[id-1]==ikactmech[j]){
j                 390 src/dynacont.c 			  aamech[i]+=z[i**nzdof+id-1]*b[ikactmech[j]];
j                 647 src/dynacont.c 		  for(j=0;j<*nev;j++){
j                 648 src/dynacont.c 		      b[i]+=bj[j]*z[(long long)j*neq[1]+i];
j                 649 src/dynacont.c 		      bp[i]+=bjp[j]*z[(long long)j*neq[1]+i];
j                 654 src/dynacont.c 		  for(j=0;j<*nev;j++){
j                 655 src/dynacont.c 		      b[imddof[i]]+=bj[j]*z[(long long)j*neq[1]+imddof[i]];
j                 656 src/dynacont.c 		      bp[imddof[i]]+=bjp[j]*z[(long long)j*neq[1]+imddof[i]];
j                 665 src/dynacont.c 		      for(j=0;j<*nev;j++){
j                 666 src/dynacont.c 			  b[imddof[i]]+=bj[j]*z[j**nzdof+id-1];
j                 667 src/dynacont.c 			  bp[imddof[i]]+=bjp[j]*z[j**nzdof+id-1];
j                 699 src/dynacont.c 	  for(j=0;j<*nactcont;j++){bcont[ikactcont[j]]=0.;}
j                 725 src/dynacont.c 	for(j=0;j<8;j++){lakonl[j]=lakon[8*i+j];}
j                 727 src/dynacont.c 	for(j=0;j<nope;j++){
j                 728 src/dynacont.c 	  konl[j]=kon[indexe+j];
j                 730 src/dynacont.c 	    xl[j*3+j1]=co[3*(konl[j]-1)+j1];
j                 731 src/dynacont.c 	    voldl[mt*j+j1+1]=vold[mt*(konl[j]-1)+j1+1];
j                 732 src/dynacont.c 	    veoldl[mt*j+j1+1]=veold[mt*(konl[j]-1)+j1+1];
j                 772 src/dynacont.c 	      for(j=0; j<*nev; j++){
j                 773 src/dynacont.c 		  zl=z[(long long)j*neq[1]+i1];
j                 774 src/dynacont.c 		  aaa[j]+=zl*bcont[i1];
j                 776 src/dynacont.c 		      bbb[l**nev+j]+=zl*dbcont[i2+l];
j                 787 src/dynacont.c 		      for(j=0; j<*nev; j++){
j                 788 src/dynacont.c 			  zl=z[j**nzdof+id-1];
j                 789 src/dynacont.c 			  aaa[j]+=zl*bcont[i1];
j                 791 src/dynacont.c 			      bbb[l**nev+j]+=zl*dbcont[i2+l];
j                 801 src/dynacont.c 	for(j=0;j<*nev;j++){
j                 802 src/dynacont.c 	  if(j==l){lhs[i1+j]=1.;}else{lhs[i1+j]=0.;}
j                 803 src/dynacont.c 	  lhs[i1+j]-=bjinc[j]*bbb[i1+j];
j                 830 src/dynacont.c 	for(j=0; j<*nev; j++){
j                 831 src/dynacont.c 	  bjp[j]=bjbasp[j]+bjincp[j]*aaa[j];
j                 864 src/dynacont.c       for(j=0;j<*nev;j++){
j                 865 src/dynacont.c 	bj[j]+=dbj[j];
j                 895 src/dynacont.c 	  for(j=0;j<*nactcont;j++){
j                 896 src/dynacont.c 	      aanew[i]+=z[i2+ikactcont[j]]*bcont[ikactcont[j]];
j                 904 src/dynacont.c       for(j=0;j<*nactcont;j++){
j                 905 src/dynacont.c 	  FORTRAN(nident,(izdof,&ikactcont[j],nzdof,&id));
j                 907 src/dynacont.c 	      if(izdof[id-1]==ikactcont[j]){
j                 909 src/dynacont.c 		      aanew[i]+=z[i**nzdof+id-1]*bcont[ikactcont[j]];
j                  48 src/dynboun.c      ITG idiff[3],i,j,ic,ir,im,symmetryflag=0;
j                 108 src/dynboun.c  	  for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                 109 src/dynboun.c  	      ir=irow[j]-1;
j                 110 src/dynboun.c  	      bmin[ir]=bmin[ir]-au[j]*xbounmin[i];
j                 148 src/dynboun.c  	  for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                 149 src/dynboun.c  	      ir=irow[j]-1;
j                 150 src/dynboun.c  	      bact[ir]=bact[ir]-au[j]*xbounact[i];
j                 188 src/dynboun.c  	  for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                 189 src/dynboun.c  	      ir=irow[j]-1;
j                 190 src/dynboun.c  	      bplus[ir]=bplus[ir]-au[j]*xbounplus[i];
j                  86 src/electromagnetics.c       iperturb_sav[2],*icol=NULL,*irow=NULL,ielas=0,icmd=0,j,
j                 561 src/electromagnetics.c 	  for(j=0;j<nope;j++){
j                 562 src/electromagnetics.c 	      node=kon[indexe+j];
j                  19 src/elemChecker.c   ITG i, j;
j                  43 src/elemChecker.c         for (j=0; j<8; j++)
j                  45 src/elemChecker.c           epuf[j] = elem[i].nod[j];
j                  58 src/elemChecker.c           for (j=0; j<4; j++)
j                  60 src/elemChecker.c             epuf[j] = elem[i].nod[j+8];
j                  61 src/elemChecker.c             epuf[j+4] = elem[i].nod[j+16];
j                  92 src/elemChecker.c         for (j=0; j<6; j++)
j                  94 src/elemChecker.c           epuf[j] = elem[i].nod[j];
j                 105 src/elemChecker.c           for (j=0; j<3; j++)
j                 107 src/elemChecker.c             epuf[j] = elem[i].nod[j+6];
j                 108 src/elemChecker.c             epuf[j+3] = elem[i].nod[j+12];
j                 137 src/elemChecker.c         for (j=0; j<4; j++) epuf[j] = elem[i].nod[j];
j                 145 src/elemChecker.c           for (j=4; j<10; j++) epuf[j] = elem[i].nod[j];
j                  63 src/exo.c        ITG i,j,k,l,m,n,o,indexe,nemax,nlayer,noutloc,iset,iselect,ncomp,nope,
j                 114 src/exo.c        j = 0; // Counter for the exo order of the nodes
j                 124 src/exo.c            node_map[j] = i+1;
j                 125 src/exo.c            node_map_inv[i] = j+1;
j                 126 src/exo.c            x[j]   = co[3*i];
j                 127 src/exo.c            y[j]   = co[3*i+1];
j                 128 src/exo.c            z[j++] = co[3*i+2];
j                 132 src/exo.c            node_map[j] = i+1;
j                 133 src/exo.c            node_map_inv[i] = j+1;
j                 134 src/exo.c            x[j]   = co[3*i];
j                 135 src/exo.c            y[j]   = co[3*i+1];
j                 136 src/exo.c            z[j++] = co[3*i+2];
j                 358 src/exo.c          j=0;
j                 359 src/exo.c          num_nodes_per_elem[j]=1;   blknames[j++]="PNT";
j                 360 src/exo.c          num_nodes_per_elem[j]=20;  blknames[j++]="C3D20 or C3D20R or S8R";
j                 361 src/exo.c          num_nodes_per_elem[j]=20;  blknames[j++]="COMPOSITE LAYER C3D20";
j                 362 src/exo.c          num_nodes_per_elem[j]=3;   blknames[j++]="Beam B32 or B32R";
j                 363 src/exo.c          num_nodes_per_elem[j]=8;   blknames[j++]="CPS8 or CPE8 or CAX8";
j                 364 src/exo.c          num_nodes_per_elem[j]=8;   blknames[j++]="C3D8 or C3D8R";
j                 365 src/exo.c          num_nodes_per_elem[j]=2;   blknames[j++]="TRUSS2";
j                 366 src/exo.c          num_nodes_per_elem[j]=2;   blknames[j++]="TRUSS2";
j                 367 src/exo.c          num_nodes_per_elem[j]=4;   blknames[j++]="CPS4R or CPE4R";
j                 368 src/exo.c          num_nodes_per_elem[j]=4;   blknames[j++]="CPS4I or CPE4I";
j                 369 src/exo.c          num_nodes_per_elem[j]=10;  blknames[j++]="C3D10";
j                 370 src/exo.c          num_nodes_per_elem[j]=4;   blknames[j++]="C3D4";
j                 371 src/exo.c          num_nodes_per_elem[j]=15;  blknames[j++]="C3D15";
j                 372 src/exo.c          num_nodes_per_elem[j]=6;   blknames[j++]="CPS6 or CPE6";
j                 373 src/exo.c          num_nodes_per_elem[j]=6;   blknames[j++]="C3D6";
j                 374 src/exo.c          num_nodes_per_elem[j]=3;   blknames[j++]="CPS3 or CPE3";
j                 375 src/exo.c          num_nodes_per_elem[j]=2;   blknames[j++]="2-node 1d network entry elem";
j                 376 src/exo.c          num_nodes_per_elem[j]=2;   blknames[j++]="2-node 1d network exit elem";
j                 377 src/exo.c          num_nodes_per_elem[j]=3;   blknames[j++]="2-node 1d genuine network elem";
j                 378 src/exo.c          num_nodes_per_elem[j]=2;   blknames[j++]="2-node 1d spring elem";
j                 391 src/exo.c            j=0;
j                 399 src/exo.c      	      j++;
j                 402 src/exo.c      	    j++;
j                 408 src/exo.c            blksize[l]=j;
j                 440 src/exo.c      	    for (j = 0; j <num_nodes_per_elem[l]; j++){
j                 441 src/exo.c      	      connect[k++] = node_map_inv[kon[indexe+20+j]-1];
j                 444 src/exo.c      	    for (j = 0; j <num_nodes_per_elem[l]; j++){
j                 445 src/exo.c      	      connect[k++] = node_map_inv[kon[indexe+j]-1];
j                 931 src/exo.c      	for(j=0;j<6;j++){
j                 938 src/exo.c      	    nodal_var_vals[nodes]=stx[6*mi[0]*i+j]; 
j                 984 src/exo.c      	for(j=1;j<=*nstate_;j++){
j                 985 src/exo.c      	  sprintf(var_names[countvars++],"SDV%" ITGFORMAT,j);
j                  47 src/exoselect.c   ITG i,j,k,l,m,o,nksegment;
j                  65 src/exoselect.c   for(j=0;j<*ncomp;j++){
j                  81 src/exoselect.c 	if(ifield[j]==1){
j                  82 src/exoselect.c 	  nodal_var_vals[m]=field1[i*nfield[0]+icomp[j]];
j                  84 src/exoselect.c 	  nodal_var_vals[m]=field2[i*nfield[1]+icomp[j]];
j                 109 src/exoselect.c 	    if(ifield[j]==1){
j                 110 src/exoselect.c 	      nodal_var_vals[m]=field1[i*nfield[0]+icomp[j]];
j                 112 src/exoselect.c 	      nodal_var_vals[m]=field2[i*nfield[1]+icomp[j]];
j                 137 src/exoselect.c 	      if(ifield[j]==1){
j                 138 src/exoselect.c 		nodal_var_vals[o]=field1[i*nfield[0]+icomp[j]];
j                 140 src/exoselect.c 		nodal_var_vals[o]=field2[i*nfield[1]+icomp[j]];
j                 152 src/exoselect.c       k=j;
j                 153 src/exoselect.c     }else if (j==4){
j                 155 src/exoselect.c     }else if(j==5){
j                 157 src/exoselect.c     }else{k=j;}
j                 160 src/exoselect.c     if (errr) printf ("ERROR exoselect data for dim %i record %i.\n", j, countvar+j);
j                  32 src/exosetfind.c   ITG i,j,k,l,n,s,e,gen;
j                  54 src/exosetfind.c       for (j=s; j<=e; j++){
j                  55 src/exosetfind.c 	if (ialset[j]<0) {
j                  56 src/exosetfind.c 	  gen+=(ialset[j-1]-ialset[j-2])/(-ialset[j])+1;
j                  67 src/exosetfind.c       n=0; j=s;
j                  69 src/exosetfind.c 	while (j<=e-2){
j                  71 src/exosetfind.c 	  if (ialset[j+2]<0) {
j                  72 src/exosetfind.c 	    for (k=ialset[j]; k<=ialset[j+1]; k-=ialset[j+2]){
j                  75 src/exosetfind.c 	    j+=3;
j                  78 src/exosetfind.c 	    gen=ialset[j++]-1;
j                  35 src/exovector.c   ITG i,j,k,l,m,n,ii,jj,kk;
j                  59 src/exovector.c   for (j=1; j<=num_nod_vars; j++){ // For each direction
j                  65 src/exovector.c 	  nodal_var_vals[m++]=v[(mi[1]+1)*i+j];
j                  72 src/exovector.c 	    nodal_var_vals[m++]=v[(mi[1]+1)*i+j];
j                  78 src/exovector.c 	    nodal_var_vals[m++]=v[ii]*a[0+(j-1)*3]+v[jj]*a[1+(j-1)*3]+v[kk]*a[2+(j-1)*3];
j                  91 src/exovector.c 	      nodal_var_vals[m++]=v[(mi[1]+1)*i+j];
j                  97 src/exovector.c 	      nodal_var_vals[m++]=v[ii]*a[0+(j-1)*3]+v[jj]*a[1+(j-1)*3]+v[kk]*a[2+(j-1)*3];
j                 110 src/exovector.c 		nodal_var_vals[n++]=v[(mi[1]+1)*i+j];
j                 116 src/exovector.c 		nodal_var_vals[n++]=v[ii]*a[0+(j-1)*3]+v[jj]*a[1+(j-1)*3]+v[kk]*a[2+(j-1)*3];
j                 125 src/exovector.c     errr = ex_put_nodal_var (exoid, time_step, j+countvar, nout, nodal_var_vals);
j                  71 src/expand.c       ITG *inum=NULL,k,idir,lfin,j,iout=0,index,inode,id,i,idof,im,
j                 205 src/expand.c       for(j=0;j<*nmdnode;j++){iznode[j]=imdnode[j];}
j                 211 src/expand.c   	for(j=0;j<*nmddof;j++){
j                 212 src/expand.c   	    imddof[i**nmddof+j]=imddof[j]+i*neqh;
j                 214 src/expand.c   	for(j=0;j<*nmdnode;j++){
j                 215 src/expand.c   	    imdnode[i**nmdnode+j]=imdnode[j]+i**nk;
j                 217 src/expand.c   	for(j=0;j<*nmdboun;j++){
j                 218 src/expand.c   	    imdboun[i**nmdboun+j]=imdboun[j]+i**nboun;
j                 220 src/expand.c   	for(j=0;j<*nmdmpc;j++){
j                 221 src/expand.c   	    imdmpc[i**nmdmpc+j]=imdmpc[j]+i**nmpc;
j                 236 src/expand.c       for(j=0;j<*nmddof;j++){izdof[j]=imddof[j];}
j                 286 src/expand.c   	for(j=0;j<mt**nk;j++){
j                 287 src/expand.c   	    if(nactdof[j]!=0){
j                 288 src/expand.c   		nactdof[lint+j]=nactdof[j]+i*neqh;
j                 290 src/expand.c   		nactdof[lint+j]=0;
j                 299 src/expand.c   	for(j=0;j<*nboun;j++){
j                 300 src/expand.c   	    nodeboun[i**nboun+j]=nodeboun[j]+i**nk;
j                 301 src/expand.c   	    ndirboun[i**nboun+j]=ndirboun[j];
j                 302 src/expand.c   	    xboun[i**nboun+j]=xboun[j];
j                 303 src/expand.c   	    xbounold[i**nboun+j]=xbounold[j];
j                 304 src/expand.c   	    if(*nam>0) iamboun[i**nboun+j]=iamboun[j];
j                 305 src/expand.c   	    ikboun[i**nboun+j]=ikboun[j]+8*i**nk;
j                 306 src/expand.c   	    ilboun[i**nboun+j]=ilboun[j]+i**nboun;
j                 381 src/expand.c   	    diff=0.; for(j=0;j<9;j++) diff+=(atrab[j]-acs[j])*(atrab[j]-acs[j]);
j                 428 src/expand.c   	    for(j=0;j<3;j++){
j                 449 src/expand.c       for(j=*nev-1;j>-1;--j){
j                 450 src/expand.c   	lint=2*j*neqh;
j                 455 src/expand.c   	    theta=nm[j]*2.*pi/cs[17*jj];
j                 567 src/expand.c   		theta=i*nm[j]*2.*pi/cs[17*jj];
j                 619 src/expand.c   				    zdof[(long long)j**nzdof+id-1]=vt[k*mt**nk+mt*i+j1];
j                 621 src/expand.c   				    zdof[(long long)2*j**nzdof+id-1]=vt[k*mt**nk+mt*i+j1];
j                 622 src/expand.c   				    zdof[(long long)(2*j+1)**nzdof+id-1]=vti[k*mt**nk+mt*i+j1];
j                 642 src/expand.c   	  if (nm[j]==0||(nm[j]==(ITG)((cs[17*i]/2))&&(fmod(cs[17*i],2.)==0.))){
j                 659 src/expand.c   	    for(i=0;i<*nzdof;i++){zdof[(long long)j**nzdof+i]/=sum;}
j                 661 src/expand.c   	    for(i=0;i<*nzdof;i++){zdof[(long long)(2*j)**nzdof+i]/=sum;}
j                 662 src/expand.c   	    for(i=0;i<*nzdof;i++){zdof[(long long)(2*j+1)**nzdof+i]/=sum;}
j                 663 src/expand.c   	    sumi[j]=sqrt(sum);
j                 676 src/expand.c   	    for(j=0;j<*nev;j++){
j                 677 src/expand.c   		xmr[i**nev+j]/=(sumi[i]*sumi[j]);
j                 678 src/expand.c   		xmi[i**nev+j]/=(sumi[i]*sumi[j]);
j                 695 src/expand.c   	for(j=0;j<*nmpcold;j++){
j                 702 src/expand.c   	    ikmpc[*nmpc]=ikmpc[j]+8*i**nk;
j                 703 src/expand.c   	    ilmpc[*nmpc]=ilmpc[j]+i**nmpcold;
j                 704 src/expand.c   	    strcpy1(&labmpc[20**nmpc],&labmpcold[20*j],20);
j                 705 src/expand.c   	    if(strcmp1(&labmpcold[20*j],"CYCLIC")==0){
j                 706 src/expand.c   		index=ipompcold[j]-1;
j                 749 src/expand.c   		index=ipompcold[j]-1;
j                 763 src/expand.c   		    if(strcmp1(&labmpcold[20*j],"SUBCYCLIC")==0){
j                 843 src/expand.c   	    for(j=0;j<*nk;j++){
j                 844 src/expand.c   		t0[lint+j]=t0[j];
j                 845 src/expand.c   		t1old[lint+j]=t1old[j];
j                 846 src/expand.c   		t1[lint+j]=t1[j];
j                 852 src/expand.c   		for(j=0;j<*nk;j++){
j                 853 src/expand.c   		    iamt1[lint+j]=iamt1[j];
j                 865 src/expand.c         for(j=0; j<*nset; j++){
j                 866 src/expand.c   	if(iendset[j]>tint){
j                 867 src/expand.c   	  tint=iendset[j];
j                 882 src/expand.c   	  for(j=0; j<*nset; j++){
j                 883 src/expand.c   	    memcpy(tchar1,&set[j*81],81);
j                 888 src/expand.c   	      for(k=0; k<iendset[j]-istartset[j]+1; k++){
j                 889 src/expand.c   		ialset[tint-1]=ialset[istartset[j]-1+k];
j                 894 src/expand.c   		for(k=0; k<iendset[j]-istartset[j]+1; k++){
j                 895 src/expand.c   		  ialset[tint-1]=(ialset[istartset[j]-1+k]!=-1)?ialset[istartset[j]-1+k]+*nk*l:-1;
j                 901 src/expand.c   	      istartset[j]=tnstart;
j                 902 src/expand.c   	      iendset[j]=tnend;
j                 907 src/expand.c   	      for(k=0; k<iendset[j]-istartset[j]+1; k++){
j                 908 src/expand.c   		ialset[tint-1]=ialset[istartset[j]-1+k];
j                 913 src/expand.c   		for(k=0; k<iendset[j]-istartset[j]+1; k++){
j                 914 src/expand.c   		  tint2=((ITG)(ialset[istartset[j]-1+k]))/10;
j                 915 src/expand.c   		  ialset[tint-1]=(ialset[istartset[j]-1+k]!=-1)?(tint2+*ne*l)*10+(ialset[istartset[j]-1+k]-(tint2*10)):-1;
j                 921 src/expand.c   	      istartset[j]=tnstart;
j                 922 src/expand.c   	      iendset[j]=tnend;
j                  64 src/frd.c        ITG null,one,i,j,k,indexe,nemax,nlayer,noutloc,iset,iselect,ncomp,nope,
j                 309 src/frd.c      	    for(j=0;j<10;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 311 src/frd.c      	    for(j=10;j<12;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 312 src/frd.c      	    for(j=16;j<19;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 313 src/frd.c      	    for(j=19;j<20;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 314 src/frd.c      	    for(j=12;j<16;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 321 src/frd.c      	    for(j=0;j<10;j++){iw=(int)kon[indexe+j];
j                 323 src/frd.c      	    for(j=10;j<12;j++){iw=(int)kon[indexe+j];
j                 325 src/frd.c      	    for(j=16;j<19;j++){iw=(int)kon[indexe+j];
j                 327 src/frd.c      	    for(j=19;j<20;j++){iw=(int)kon[indexe+j];
j                 329 src/frd.c      	    for(j=12;j<16;j++){iw=(int)kon[indexe+j];
j                 348 src/frd.c      	      for(j=0;j<10;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
j                 350 src/frd.c      	      for(j=10;j<12;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
j                 351 src/frd.c      	      for(j=16;j<19;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
j                 352 src/frd.c      	      for(j=19;j<20;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
j                 353 src/frd.c      	      for(j=12;j<16;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+28+20*k+j]);
j                 360 src/frd.c      	      for(j=0;j<10;j++){iw=(int)kon[indexe+28+20*k+j];
j                 362 src/frd.c      	      for(j=10;j<12;j++){iw=(int)kon[indexe+28+20*k+j];
j                 364 src/frd.c      	      for(j=16;j<19;j++){iw=(int)kon[indexe+28+20*k+j];
j                 366 src/frd.c      	      for(j=19;j<20;j++){iw=(int)kon[indexe+28+20*k+j];
j                 368 src/frd.c      	      for(j=12;j<16;j++){iw=(int)kon[indexe+28+20*k+j];
j                 397 src/frd.c      	    for(j=0;j<8;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+20+j]);
j                 404 src/frd.c      	    for(j=0;j<8;j++){iw=(int)kon[indexe+20+j];
j                 417 src/frd.c      		  for(j=0;j<8;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 424 src/frd.c      		  for(j=0;j<8;j++){iw=(int)kon[indexe+j];
j                 468 src/frd.c      		      for(j=0;j<4;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+8+j]);
j                 475 src/frd.c      		      for(j=0;j<4;j++){iw=(int)kon[indexe+8+j];
j                 482 src/frd.c      		      for(j=0;j<4;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+11+j]);
j                 489 src/frd.c      		      for(j=0;j<4;j++){iw=(int)kon[indexe+11+j];
j                 502 src/frd.c      	  for(j=0;j<10;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 509 src/frd.c      	  for(j=0;j<10;j++){iw=(int)kon[indexe+j];
j                 519 src/frd.c      	  for(j=0;j<4;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 526 src/frd.c      	  for(j=0;j<4;j++){iw=(int)kon[indexe+j];
j                 538 src/frd.c      	    for(j=0;j<9;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 539 src/frd.c      	    for(j=12;j<13;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 541 src/frd.c      	    for(j=13;j<15;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 542 src/frd.c      	    for(j=9;j<12;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 549 src/frd.c      	    for(j=0;j<9;j++){iw=(int)kon[indexe+j];
j                 551 src/frd.c      	    for(j=12;j<13;j++){iw=(int)kon[indexe+j];
j                 553 src/frd.c      	    for(j=13;j<15;j++){iw=(int)kon[indexe+j];
j                 555 src/frd.c      	    for(j=9;j<12;j++){iw=(int)kon[indexe+j];
j                 566 src/frd.c      	    for(j=0;j<6;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+15+j]);
j                 573 src/frd.c      	    for(j=0;j<6;j++){iw=(int)kon[indexe+15+j];
j                 586 src/frd.c      		  for(j=0;j<6;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+j]);
j                 593 src/frd.c      		  for(j=0;j<6;j++){iw=(int)kon[indexe+j];
j                 604 src/frd.c      		  for(j=0;j<3;j++)fprintf(f1,"%10" ITGFORMAT "",kon[indexe+6+j]);
j                 611 src/frd.c      		  for(j=0;j<3;j++){iw=(int)kon[indexe+6+j];
j                1120 src/frd.c      	  for(j=0;j<6;j++)fprintf(f1,"%12.5E",(float)stx[6*mi[0]*i+j]);
j                1123 src/frd.c      	  for(j=0;j<6;j++){
j                1124 src/frd.c      	      ifl=(float)stx[6*mi[0]*i+j];
j                1229 src/frd.c          for(j=1;j<=*nstate_;j++){
j                1230 src/frd.c            fprintf(f1," -5  SDV%2" ITGFORMAT "       1    1    0    0\n",j);
j                  42 src/frdcyc.c         jj,node,i1,i2,nope,iel,indexe,j,ielset,*inotrt=NULL,mt=mi[1]+1,
j                  56 src/frdcyc.c     for(j=0;j<*mcs;j++){
j                  57 src/frdcyc.c       if(cs[17*j+4]>ngraph) ngraph=cs[17*j+4];
j                  43 src/frdselect.c   ITG i,j,k,l,m,n,nksegment;
j                  72 src/frdselect.c 	    for(j=0;j<min(6,*ncomp);j++){
j                  73 src/frdselect.c 	      if(ifield[j]==1){
j                  75 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
j                  77 src/frdselect.c 		  ifl=(float)field1[i*nfield[0]+icomp[j]];
j                  82 src/frdselect.c 		  fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
j                  84 src/frdselect.c 		  ifl=(float)field2[i*nfield[1]+icomp[j]];
j                  92 src/frdselect.c 	    for(j=(n-1)*6;j<min(n*6,*ncomp);j++){
j                  93 src/frdselect.c 	      if(ifield[j]==1){
j                  95 src/frdselect.c 		  fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
j                  97 src/frdselect.c 		  ifl=(float)field1[i*nfield[0]+icomp[j]];
j                 102 src/frdselect.c 		  fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
j                 104 src/frdselect.c 		  ifl=(float)field2[i*nfield[1]+icomp[j]];
j                 141 src/frdselect.c 	      for(j=0;j<min(6,*ncomp);j++){
j                 142 src/frdselect.c 		if(ifield[j]==1){
j                 144 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
j                 146 src/frdselect.c 		    ifl=(float)field1[i*nfield[0]+icomp[j]];
j                 151 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
j                 153 src/frdselect.c 		    ifl=(float)field2[i*nfield[1]+icomp[j]];
j                 161 src/frdselect.c 	      for(j=(n-1)*6;j<min(n*6,*ncomp);j++){
j                 162 src/frdselect.c 		if(ifield[j]==1){
j                 164 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+j]);
j                 166 src/frdselect.c 		    ifl=(float)field1[i*nfield[0]+icomp[j]];
j                 171 src/frdselect.c 		    fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+j]);
j                 173 src/frdselect.c 		    ifl=(float)field2[i*nfield[1]+icomp[j]];
j                 211 src/frdselect.c 		for(j=0;j<min(6,*ncomp);j++){
j                 212 src/frdselect.c 		  if(ifield[j]==1){
j                 214 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+icomp[j]]);
j                 216 src/frdselect.c 		      ifl=(float)field1[i*nfield[0]+icomp[j]];
j                 221 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+icomp[j]]);
j                 223 src/frdselect.c 		      ifl=(float)field2[i*nfield[1]+icomp[j]];
j                 231 src/frdselect.c 		for(j=(n-1)*6;j<min(n*6,*ncomp);j++){
j                 232 src/frdselect.c 		  if(ifield[j]==1){
j                 234 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field1[i*nfield[0]+j]);
j                 236 src/frdselect.c 		      ifl=(float)field1[i*nfield[0]+icomp[j]];
j                 241 src/frdselect.c 		      fprintf(f1,"%12.5E",(float)field2[i*nfield[1]+j]);
j                 243 src/frdselect.c 		      ifl=(float)field2[i*nfield[1]+icomp[j]];
j                  28 src/frdset.c     ITG j,k;
j                  63 src/frdset.c       for(j=istartset[*iset-1]-1;j<iendset[*iset-1];j++){
j                  64 src/frdset.c         if(ialset[j]>0){
j                  66 src/frdset.c   	  if(inum[ialset[j]-1]<0) (*noutloc)++;
j                  68 src/frdset.c   	  if(inum[ialset[j]-1]>0) (*noutloc)++;
j                  70 src/frdset.c   	  if(inum[ialset[j]-1]!=0) (*noutloc)++;
j                  73 src/frdset.c   	k=ialset[j-2];
j                  75 src/frdset.c   	  k=k-ialset[j];
j                  76 src/frdset.c   	  if(k>=ialset[j-1]) break;
j                  45 src/getglobalresults.c 	indexe,istep,loadcase,nfaces,netet_,nktet=0,nfield,j,nodes[4],i,
j                 165 src/getglobalresults.c 	j=nodenr-1;
j                 166 src/getglobalresults.c 	cotet[3*j]=node[nodenr].nx;
j                 167 src/getglobalresults.c 	cotet[3*j+1]=node[nodenr].ny;
j                 168 src/getglobalresults.c 	cotet[3*j+2]=node[nodenr].nz;
j                 204 src/getglobalresults.c 	for(j=0;j<numnodes;j++){
j                 205 src/getglobalresults.c 	    kon[indexe++]=elem[i].nod[j];
j                 234 src/getglobalresults.c 	    for(j=0;j<6;j++){
j                 235 src/getglobalresults.c 		nodes[0]=kon[indexe+i1[4*j]];
j                 236 src/getglobalresults.c 		nodes[1]=kon[indexe+i1[4*j+1]];
j                 237 src/getglobalresults.c 		nodes[2]=kon[indexe+i1[4*j+2]];
j                 238 src/getglobalresults.c 		nodes[3]=kon[indexe+i1[4*j+3]];
j                 249 src/getglobalresults.c 	    for(j=0;j<3;j++){
j                 250 src/getglobalresults.c 		nodes[0]=kon[indexe+i2[4*j]];
j                 251 src/getglobalresults.c 		nodes[1]=kon[indexe+i2[4*j+1]];
j                 252 src/getglobalresults.c 		nodes[2]=kon[indexe+i2[4*j+2]];
j                 253 src/getglobalresults.c 		nodes[3]=kon[indexe+i2[4*j+3]];
j                 277 src/getglobalresults.c 	    for(j=0;j<22;j++){
j                 278 src/getglobalresults.c 		nodes[0]=kon[indexe+i4[4*j]];
j                 279 src/getglobalresults.c 		nodes[1]=kon[indexe+i4[4*j+1]];
j                 280 src/getglobalresults.c 		nodes[2]=kon[indexe+i4[4*j+2]];
j                 281 src/getglobalresults.c 		nodes[3]=kon[indexe+i4[4*j+3]];
j                 292 src/getglobalresults.c 	    for(j=0;j<14;j++){
j                 293 src/getglobalresults.c 		nodes[0]=kon[indexe+i5[4*j]];
j                 294 src/getglobalresults.c 		nodes[1]=kon[indexe+i5[4*j+1]];
j                 295 src/getglobalresults.c 		nodes[2]=kon[indexe+i5[4*j+2]];
j                 296 src/getglobalresults.c 		nodes[3]=kon[indexe+i5[4*j+3]];
j                 307 src/getglobalresults.c 	    for(j=0;j<8;j++){
j                 308 src/getglobalresults.c 		nodes[0]=kon[indexe+i6[4*j]];
j                 309 src/getglobalresults.c 		nodes[1]=kon[indexe+i6[4*j+1]];
j                 310 src/getglobalresults.c 		nodes[2]=kon[indexe+i6[4*j+2]];
j                 311 src/getglobalresults.c 		nodes[3]=kon[indexe+i6[4*j+3]];
j                 381 src/getglobalresults.c 	for(j=0;j<lcase[i].npheader;j++){
j                 382 src/getglobalresults.c 	    if(strcmp1(&lcase[i].pheader[j][5],"PSTEP")==0){
j                 383 src/getglobalresults.c 		strcpy1(text,&lcase[i].pheader[j][48],12);
j                 419 src/getglobalresults.c 	for(j=0;j<lcase[i].npheader;j++){
j                 420 src/getglobalresults.c 	    if(strcmp1(&lcase[i].pheader[j][5],"PSTEP")==0){
j                 421 src/getglobalresults.c 		strcpy1(text,&lcase[i].pheader[j][48],12);
j                 460 src/getglobalresults.c 	for(j=0;j<lcase[i].npheader;j++){
j                 461 src/getglobalresults.c 	    if(strcmp1(&lcase[i].pheader[j][5],"PSTEP")==0){
j                 462 src/getglobalresults.c 		strcpy1(text,&lcase[i].pheader[j][48],12);
j                 503 src/getglobalresults.c 	for(j=0;j<lcase[i].npheader;j++){
j                 504 src/getglobalresults.c 	    if(strcmp1(&lcase[i].pheader[j][5],"PSTEP")==0){
j                 505 src/getglobalresults.c 		strcpy1(text,&lcase[i].pheader[j][48],12);
j                 539 src/getglobalresults.c     for(j=0;j<anz->l;j++){
j                 540 src/getglobalresults.c       freeDatasets(lcase,j);
j                  45 src/inicont.c        *ilmpc=NULL,*nodempc=NULL,nmpc_,i,j,k,ncone;
j                  72 src/linstatic.c   ITG *inum=NULL,k,*icol=NULL,*irow=NULL,ielas,icmd=0,iinc=1,nasym=0,i,j,ic,ir,
j                 287 src/linstatic.c 	for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                 288 src/linstatic.c 	    ir=irow[j]-1;
j                 289 src/linstatic.c 	    b[ir]-=au[j];
j                 359 src/linstatic.c 	  for(j=0;j<nretain;j++){
j                 360 src/linstatic.c 	      submatrix[i*nretain+j]=fn[mt*(noderetain[j]-1)+ndirretain[j]];
j                  41 src/mastruct.c   ITG i,j,k,l,jj,ll,id,index,jdof1,jdof2,idof1,idof2,mpc1,mpc2,id1,id2,
j                  89 src/mastruct.c 	  for(j=0;j<nope;++j){
j                  90 src/mastruct.c 	      node=kon[indexe+j]-1;
j                 129 src/mastruct.c 	      for(j=0;j<3;j=j+2){
j                 130 src/mastruct.c 		  node=kon[indexe+j]-1;
j                 136 src/mastruct.c 	  for(j=0;j<nope;++j){
j                 137 src/mastruct.c 	      node=kon[indexe+j]-1;
j                 177 src/mastruct.c     for(j=1;j<mt;++j){
j                 178 src/mastruct.c 	if(nactdof[mt*i+j]!=0){
j                 181 src/mastruct.c           nactdof[mt*i+j]=neq[0];
j                 184 src/mastruct.c 	    nactdof[mt*i+j]=0;
j                 248 src/mastruct.c 	j=jj/mi[1];
j                 249 src/mastruct.c 	k=jj-mi[1]*j;
j                 251 src/mastruct.c 	node1=kon[indexe+j];
j                 417 src/mastruct.c 	j=jj;
j                 419 src/mastruct.c 	node1=kon[indexe+j];
j                 559 src/mastruct.c 	    for(j=0;j<*nk;j++){
j                 561 src/mastruct.c 		    if(nactdof[mt*j+k]==i+1){
j                 562 src/mastruct.c 			node1=j+1;
j                  41 src/mastructcs.c   ITG i,j,k,l,jj,ll,id,index,jdof1,jdof2,idof1,idof2,mpc1,mpc2,id1,id2,
j                  91 src/mastructcs.c     for(j=0;j<nope;++j){
j                  92 src/mastructcs.c       node=kon[indexe+j]-1;
j                 129 src/mastructcs.c     for(j=1;j<4;++j){
j                 130 src/mastructcs.c 	if(nactdof[mt*i+j]!=0){
j                 132 src/mastructcs.c 	nactdof[mt*i+j]=neq[0];
j                 177 src/mastructcs.c       j=jj/3;
j                 178 src/mastructcs.c       k=jj-3*j;
j                 180 src/mastructcs.c       node1=kon[indexe+j];
j                  40 src/mastructem.c   ITG i,j,k,l,jj,ll,id,index,jdof1,jdof2,idof1,idof2,mpc1,mpc2,id1,id2,
j                  91 src/mastructem.c 	  for(j=0;j<nope;++j){
j                  92 src/mastructem.c 	      node=kon[indexe+j]-1;
j                 132 src/mastructem.c 	      for(j=0;j<3;j=j+2){
j                 133 src/mastructem.c 		  node=kon[indexe+j]-1;
j                 139 src/mastructem.c 	  for(j=0;j<nope;++j){
j                 140 src/mastructem.c 	      node=kon[indexe+j]-1;
j                 178 src/mastructem.c     for(j=1;j<mt;++j){
j                 179 src/mastructem.c 	if(nactdof[mt*i+j]!=0){
j                 182 src/mastructem.c           nactdof[mt*i+j]=neq[0];
j                 185 src/mastructem.c 	    nactdof[mt*i+j]=0;
j                 233 src/mastructem.c 	j=jj/mi[1];
j                 234 src/mastructem.c 	k=jj-mi[1]*j;
j                 236 src/mastructem.c 	node1=kon[indexe+j];
j                 393 src/mastructem.c 	j=jj;
j                 395 src/mastructem.c 	node1=kon[indexe+j];
j                 525 src/mastructem.c 	    for(j=0;j<*nk;j++){
j                 527 src/mastructem.c 		    if(nactdof[mt*j+k]==i+1){
j                 528 src/mastructem.c 			node1=j+1;
j                  32 src/mastructf.c   ITG i,j,k,l,index,idof1,idof2,node1,isubtract,nmast,ifree=0,istart,istartold,
j                  59 src/mastructf.c       for(j=0;j<numfaces;j++){
j                  60 src/mastructf.c 	  neighbor=neiel[index+j];
j                  35 src/mastructrad.c   ITG three=3,i,j,k,l,ii,jj,icav,jcav,*mast1rad=NULL,*irowrad=NULL,
j                  54 src/mastructrad.c 	  j=nloadtr[jj-1]-1;
j                  55 src/mastructrad.c 	  strcpy1(crcav,&sideload[20*j+17],three);
j                  34 src/matrixstorage.c   ITG i,j,l,*irow=NULL,*ai=NULL,*aj=NULL,kflag=2,ndim,jref,kstart,klen,
j                 100 src/matrixstorage.c       for(j=0;j<icol[i];j++){
j                 141 src/matrixstorage.c       for(j=0;j<icol[i];j++){
j                 225 src/matrixstorage.c         for(j=0;j<9;j++){
j                 226 src/matrixstorage.c           trans[3*(idof-1)+j]=0.;
j                 234 src/matrixstorage.c         for(j=0;j<9;j++){
j                 235 src/matrixstorage.c           trans[3*(idof-1)+j]=a[j];
j                 264 src/matrixstorage.c       for(j=0;j<9;j++){
j                 265 src/matrixstorage.c         i3lo=j%3;
j                 266 src/matrixstorage.c         i3co=(j-i3lo)/3;
j                 273 src/matrixstorage.c         aa[k]=aa3[9*i+j];
j                 330 src/matrixstorage.c       for(j=0;j<icol[i];j++){
j                 365 src/matrixstorage.c       for(j=0;j<icol[i];j++){
j                 449 src/matrixstorage.c         for(j=0;j<9;j++){
j                 450 src/matrixstorage.c           trans[3*(idof-1)+j]=0.;
j                 458 src/matrixstorage.c         for(j=0;j<9;j++){
j                 459 src/matrixstorage.c           trans[3*(idof-1)+j]=a[j];
j                 488 src/matrixstorage.c       for(j=0;j<9;j++){
j                 489 src/matrixstorage.c         i3lo=j%3;
j                 490 src/matrixstorage.c         i3co=(j-i3lo)/3;
j                 497 src/matrixstorage.c         aa[k]=aa3[9*i+j];
j                  40 src/pardiso.c    ITG i,j,k,l,maxfct=1,mnum=1,phase=12,nrhs=1,*perm=NULL,mtype,
j                  99 src/pardiso.c  	      for(j=0;j<icol[i];++j){
j                 111 src/pardiso.c  	      for(j=0;j<icol[i];++j){
j                 138 src/pardiso.c  	      for(j=0;j<icol[i];j++){
j                 169 src/pardiso.c  	      j=i+1;
j                 172 src/pardiso.c  		  if(irowpardiso[k]!=j ){
j                 209 src/pardiso.c  	      for(j=0;j<icol[i];j++){
j                 229 src/pardiso.c  	      j=i+1;
j                 235 src/pardiso.c  		  if(irowpardiso[k]!=j){
j                 270 src/pardiso.c  	      for(j=jq[i+1]-1;j>=jq[i];j--){
j                 271 src/pardiso.c  		  icolpardiso[--k]=irow[j-1];
j                 272 src/pardiso.c  		  aupardiso[k]=au[j+*nzs3-1];
j                 276 src/pardiso.c  	      for(j=pointers[i+1]-1;j>=pointers[i];j--){
j                 277 src/pardiso.c  		  icolpardiso[--k]=icolpardiso[j-1];
j                 278 src/pardiso.c  		  aupardiso[k]=aupardiso[j-1];
j                  39 src/pardiso_as.c   ITG i,j,k,maxfct=1,mnum=1,mtype=11,phase=12,nrhs=1,*perm=NULL,
j                  95 src/pardiso_as.c       for(j=0;j<i;j++){
j                  97 src/pardiso_as.c 	lfortran=jq[j+1]-jq[j];
j                  98 src/pardiso_as.c 	FORTRAN(nident,(&irow[jq[j]-1],&ifortran,&lfortran,&id));
j                 100 src/pardiso_as.c 	  index=jq[j]+id-2;
j                 102 src/pardiso_as.c 	    irowpardisoas[k]=j+1;
j                 117 src/pardiso_as.c       for(j=jq[i];j<jq[i+1];j++){
j                 118 src/pardiso_as.c 	irowpardisoas[k]=irow[j-1];
j                 119 src/pardiso_as.c 	aupardisoas[k]=au[j+*nzs-1];
j                 130 src/pardiso_as.c       for(j=0;j<i;j++){
j                 132 src/pardiso_as.c 	lfortran=jq[j+1]-jq[j];
j                 133 src/pardiso_as.c 	FORTRAN(nident,(&irow[jq[j]-1],&ifortran,&lfortran,&id));
j                 135 src/pardiso_as.c 	  index=jq[j]+id-2;
j                 137 src/pardiso_as.c 	    irowpardisoas[k]=j+1;
j                 152 src/pardiso_as.c       for(j=jq[i];j<jq[i+1];j++){
j                 153 src/pardiso_as.c 	irowpardisoas[k]=irow[j-1];
j                 154 src/pardiso_as.c 	aupardisoas[k]=au[j+*nzs-1]-*sigma*aub[j+*nzs-1];
j                 283 src/pcgsolver.c   ITG			i=0, j=0, jlo=0, jup=0;
j                 300 src/pcgsolver.c       for (j=jlo; j<=jup; j++)	A[j] *= d[i]*d[ia[j]];
j                 326 src/pcgsolver.c   ITG				i=0, j=0, jlo=0, jup=0, k=0;
j                 342 src/pcgsolver.c       for (j=jlo; j<=jup; j++)
j                 344 src/pcgsolver.c 	  k = ia[j];
j                 345 src/pcgsolver.c 	  z[i] += A[j]*p[k];
j                 346 src/pcgsolver.c 	  z[k] += A[j]*p[i];
j                 377 src/pcgsolver.c 	ITG				i=0, j=0, jlo=0, jup=0, k=0, klo=0, kup=0, l=0, llo=0, lup=0;
j                 388 src/pcgsolver.c 		for (j=jlo; j<jup; j++)		/*..all non-zero off-diagonal elements.........	*/
j                 389 src/pcgsolver.c 			C[j] = A[j]*factor;
j                 397 src/pcgsolver.c 		for (j=jlo; j<jup; j++)		/*..all non-zero off-diagonal elements.........	*/
j                 399 src/pcgsolver.c 			C[j] /= C[iz[ia[j]]];
j                 400 src/pcgsolver.c 			klo = j+1;				/*..next non-zero element in current row.......	*/
j                 409 src/pcgsolver.c 					if (ia[l]>ia[j])	break;
j                 410 src/pcgsolver.c 					if (ia[l]<ia[j])	continue;
j                 411 src/pcgsolver.c 					C[k] -= C[j]*C[l];
j                 447 src/pcgsolver.c 	ITG				i=0, j=0, jlo=0, jup=0;
j                 456 src/pcgsolver.c 		for (j=jlo; j<jup; j++)		/*..all non-zero off-diagonal element..........	*/
j                 457 src/pcgsolver.c 			s += C[j]*rho[ia[j]];
j                 465 src/pcgsolver.c 		for (j=jlo; j<=jup; j++)	/*..all non-zero off-diagonal element..........	*/
j                 466 src/pcgsolver.c 			rho[ia[j]] -= C[j]*rho[i];
j                  37 src/precontact.c     ITG i,j,ntrimax,*nx=NULL,*ny=NULL,*nz=NULL,im,
j                 122 src/precontact.c 	    for(j=0;j<ntri;j++){		    
j                 123 src/precontact.c 		xo[j]=cg[(nstart+j)*3];		    
j                 124 src/precontact.c 		x[j]=xo[j];		   
j                 125 src/precontact.c 		nx[j]=j+1;		    
j                 126 src/precontact.c 		yo[j]=cg[(nstart+j)*3+1];		    
j                 127 src/precontact.c 		y[j]=yo[j];		    
j                 128 src/precontact.c 		ny[j]=j+1;		    
j                 129 src/precontact.c 		zo[j]=cg[(nstart+j)*3+2];		    
j                 130 src/precontact.c 		z[j]=zo[j];		    
j                 131 src/precontact.c 		nz[j]=j+1;		
j                  38 src/prediction.c     ITG j,k,mt=mi[1]+1;
j                  50 src/prediction.c 		for(j=0;j<mt;j++){
j                  51 src/prediction.c 		    dextrapol=*dtime*veold[mt*k+j]+scal1*accold[mt*k+j];
j                  52 src/prediction.c 		    if((fabs(dextrapol)>uam[0])&&(nactdof[mt*k+j]>0)) {uam[0]=fabs(dextrapol);}
j                  53 src/prediction.c 		    v[mt*k+j]=vold[mt*k+j]+dextrapol;
j                  54 src/prediction.c 		    veold[mt*k+j]=veold[mt*k+j]+scal2*accold[mt*k+j];
j                  55 src/prediction.c 		    accold[mt*k+j]=0.;
j                  60 src/prediction.c 		for(j=0;j<mt;j++){
j                  61 src/prediction.c 		    v[mt*k+j]=vold[mt*k+j];
j                  72 src/prediction.c 		for(j=0;j<mt;++j){
j                  73 src/prediction.c 		    dextrapol=*dtime*veold[mt*k+j]+scal1*accold[mt*k+j];
j                  74 src/prediction.c 		    if((j==0)&&fabs(dextrapol)>100.) dextrapol=100.*dextrapol/fabs(dextrapol);
j                  75 src/prediction.c 		    if(j==0){
j                  78 src/prediction.c 			if((fabs(dextrapol)>uam[0])&&(nactdof[mt*k+j]>0)) {uam[0]=fabs(dextrapol);}
j                  80 src/prediction.c 		    v[mt*k+j]=vold[mt*k+j]+dextrapol;
j                  81 src/prediction.c 		    veold[mt*k+j]=veold[mt*k+j]+scal2*accold[mt*k+j];
j                  82 src/prediction.c 		    accold[mt*k+j]=0.;
j                  95 src/prediction.c 		    for(j=0;j<mt;++j){
j                  97 src/prediction.c 			    dextrapol=*dtime*veold[mt*k+j];
j                  98 src/prediction.c 			    if((fabs(dextrapol)>uam[0])&&(nactdof[mt*k+j]>0)) {uam[0]=fabs(dextrapol);}	
j                  99 src/prediction.c 			    v[mt*k+j]=vold[mt*k+j]+dextrapol;
j                 101 src/prediction.c 			    v[mt*k+j]=vold[mt*k+j];
j                 107 src/prediction.c 		    for(j=0;j<mt;++j){
j                 108 src/prediction.c 			v[mt*k+j]=vold[mt*k+j];
j                 121 src/prediction.c 		    for(j=0;j<mt;++j){
j                 123 src/prediction.c 			    dextrapol=*dtime*veold[mt*k+j];
j                 124 src/prediction.c 			    if((j==0)&&fabs(dextrapol)>100.) dextrapol=100.*dextrapol/fabs(dextrapol);
j                 125 src/prediction.c 			    if(j==0){
j                 126 src/prediction.c 				if((fabs(dextrapol)>uam[1])&&(nactdof[mt*k+j]>0)) {uam[1]=fabs(dextrapol);}
j                 128 src/prediction.c 				if((fabs(dextrapol)>uam[0])&&(nactdof[mt*k+j]>0)) {uam[0]=fabs(dextrapol);}
j                 130 src/prediction.c 			    v[mt*k+j]=vold[mt*k+j]+dextrapol;
j                 132 src/prediction.c 			    v[mt*k+j]=vold[mt*k+j];
j                 140 src/prediction.c 		for(j=0;j<mt;++j){
j                 141 src/prediction.c 		    v[mt*k+j]=vold[mt*k+j];
j                  38 src/prediction_em.c     ITG j,k,mt=mi[1]+1,jstart;
j                  52 src/prediction_em.c 	    for(j=jstart;j<mt;j++){
j                  53 src/prediction_em.c 		dextrapol=*dtime*veold[mt*k+j];
j                  55 src/prediction_em.c 		if(j==0){
j                  58 src/prediction_em.c 		v[mt*k+j]=vold[mt*k+j]+dextrapol;
j                  69 src/prediction_em.c 		for(j=jstart;j<mt;j++){
j                  71 src/prediction_em.c 			dextrapol=*dtime*veold[mt*k+j];
j                  73 src/prediction_em.c 			if(j==0){
j                  76 src/prediction_em.c 			v[mt*k+j]=vold[mt*k+j]+dextrapol;
j                  78 src/prediction_em.c 			v[mt*k+j]=vold[mt*k+j];
j                  85 src/prediction_em.c 		for(j=jstart;j<mt;j++){
j                  86 src/prediction_em.c 		    v[mt*k+j]=vold[mt*k+j];
j                  26 src/preiter.c    ITG precFlg,niter=5000000,ndim,i,j,k,ier,*icol=NULL,*irow=NULL,
j                  64 src/preiter.c      for(j=0;j<icol[i];++j){
j                  70 src/preiter.c    j=0;
j                  73 src/preiter.c      irow[k]=++j;
j                  74 src/preiter.c      icol[k]=j;
j                  35 src/radcyc.c        node,i1,i2,nope,iel,indexe,j,k,ielset,node1,node2,node3,l,jj;
j                  48 src/radcyc.c     for(j=0;j<*mcs;j++){
j                  49 src/radcyc.c         if(cs[17*j]>nsegments) nsegments=(ITG)(cs[17*j]);
j                 121 src/radcyc.c         j=i+k**ntri;
j                 122 src/radcyc.c         kontri[4*j]=node1+k**nk;
j                 123 src/radcyc.c         kontri[4*j+1]=node2+k**nk;
j                 124 src/radcyc.c         kontri[4*j+2]=node3+k**nk;
j                 125 src/radcyc.c         kontri[4*j+3]=kontri[4*i+3];
j                  77 src/radflowload.c   ITG nhrs=1,info=0,i,j,iin=0,icntrl,icutb=0,iin_abs=0,mt=mi[1]+1,im,
j                 427 src/radflowload.c 		  for(j=1;j<num_cpus;j++){
j                 428 src/radflowload.c 		      adview[i]+=adview[i+j**ntr];
j                 434 src/radflowload.c 		  for(j=1;j<num_cpus;j++){
j                 435 src/radflowload.c 		      auview[i]+=auview[i+j*2**nzsrad];
j                  90 src/readfrd.c    register ITG i=0, j=0;
j                 492 src/readfrd.c                j=0;
j                 495 src/readfrd.c  		elem[anz->e].nod[i] = stoi(&rec_str[3+j*5], 1, 5);
j                 496 src/readfrd.c                  if (j<14) j++;
j                 499 src/readfrd.c                    if (i<ipuf-1) length = frecord( handle, rec_str ); j=0;
j                 505 src/readfrd.c                j=0;
j                 508 src/readfrd.c                  elem[anz->e].nod[i] = stoi(&rec_str[3+j*10], 1, 10);
j                 509 src/readfrd.c                  if (j<9) j++;
j                 512 src/readfrd.c                    if (i<ipuf-1) length = frecord( handle, rec_str ); j=0;
j                 725 src/readfrd.c            j=0;
j                 732 src/readfrd.c                lcase[anz->l].dat[i][nodenr]= stof(&rec_str[n+j*12], 1, 12);
j                 733 src/readfrd.c                i++;j++;
j                 734 src/readfrd.c              }while((j<6)&&(i<lcase[anz->l].ncomps));
j                 858 src/readfrd.c                  for(j=0; j<=anz->nmax; j++) lcase[anz->l].dat[i][j]=0.;
j                 914 src/readfrd.c         for(j=0; j<anz->n; j++)
j                 918 src/readfrd.c            if(lcase[anz->l].dat[i][node[j].nr] > lcase[anz->l].max[i])
j                 920 src/readfrd.c              lcase[anz->l].max[i]=lcase[anz->l].dat[i][node[j].nr];
j                 921 src/readfrd.c              lcase[anz->l].nmax[i]=node[j].nr;
j                 923 src/readfrd.c            if(lcase[anz->l].dat[i][node[j].nr] < lcase[anz->l].min[i])
j                 925 src/readfrd.c              lcase[anz->l].min[i]=lcase[anz->l].dat[i][node[j].nr];
j                 926 src/readfrd.c              lcase[anz->l].nmin[i]=node[j].nr;
j                 971 src/readfrd.c          for(j=0; j<=anz->nmax; j++) lcase[anz->l].dat[i][j]=0.;
j                1079 src/readfrd.c          for(j=0; j<=anz->nmax; j++) lcase[anz->l].dat[i][j]=0.;
j                1206 src/readfrd.c          for(j=0; j<=anz->nmax; j++) lcase[anz->l].dat[i][j]=0.;
j                1325 src/readfrd.c    register ITG i,j, n;
j                1363 src/readfrd.c      for(j=0; j<=anz->nmax; j++) lcase[lc].dat[i][j]=0.;
j                1448 src/readfrd.c          j=0;
j                1451 src/readfrd.c            lcase[lc].dat[i][nodenr]= stof(&rec_str[n+j*12], 1, 12);
j                1452 src/readfrd.c            i++;j++;
j                1453 src/readfrd.c          }while((j<6)&&(i<lcase[lc].ncomps));
j                1457 src/readfrd.c      for(j=0; j<anz->orign; j++)
j                1461 src/readfrd.c          if(lcase[lc].dat[i][node[j].nr] > lcase[lc].max[i])
j                1463 src/readfrd.c            lcase[lc].max[i]=lcase[lc].dat[i][node[j].nr];
j                1464 src/readfrd.c            lcase[lc].nmax[i]=node[j].nr;
j                1466 src/readfrd.c          if(lcase[lc].dat[i][node[j].nr] < lcase[lc].min[i])
j                1468 src/readfrd.c            lcase[lc].min[i]=lcase[lc].dat[i][node[j].nr];
j                1469 src/readfrd.c            lcase[lc].nmin[i]=node[j].nr;
j                1510 src/readfrd.c    register ITG i=0,j, n;
j                1612 src/readfrd.c        j=0;
j                1615 src/readfrd.c          dat[i]= stof(&rec_str[n+j*12], 1, 12);
j                1616 src/readfrd.c          i++;j++;
j                1617 src/readfrd.c        }while((j<6)&&(i<lcase[lc].ncomps));
j                  36 src/readinput.c   ITG i,j,k,n,in=0,nlinemax=100000,irestartread,irestartstep,
j                 117 src/readinput.c 	  j=0;
j                 120 src/readinput.c 	      if(j>=6){
j                 121 src/readinput.c 		  if(strcmp1(&buff[j-6],"INPUT=")==0) ifile=1;
j                 123 src/readinput.c 	      if(j>=7){
j                 124 src/readinput.c 		  if(strcmp1(&buff[j-7],"OUTPUT=")==0) ifile=1;
j                 126 src/readinput.c 	      if(j>=9){
j                 127 src/readinput.c 		  if(strcmp1(&buff[j-9],"FILENAME=")==0) ifile=1;
j                 131 src/readinput.c 		      if(strcmp1(&buff[j],",")!=0){
j                 132 src/readinput.c 			  j++;
j                 137 src/readinput.c 		  }while(j<k);
j                 139 src/readinput.c 		  buff[j]=toupper(buff[j]);
j                 141 src/readinput.c 	      j++;
j                 142 src/readinput.c 	  }while(j<k);
j                 186 src/readinput.c       for(j=0;j<k;j++){
j                 187 src/readinput.c 	  inpc[ipoinpc[*nline-1]+j]=buff[j];
j                  75 src/results.c          intpointvart,mt=mi[1]+1,i,j,*ithread=NULL;
j                 219 src/results.c  	    for(j=1;j<num_cpus;j++){
j                 220 src/results.c  		fn[i]+=fn1[i+j*mt**nk];
j                 228 src/results.c  	for(j=1;j<num_cpus;j++){
j                 229 src/results.c  	    qa[0]+=qa1[j*3];
j                 235 src/results.c          for(j=0;j<num_cpus;j++){
j                 236 src/results.c  	    if(qa1[2+j*3]>0.){
j                 238 src/results.c  		    qa[2]=qa1[2+j*3];
j                 240 src/results.c  		    if(qa1[2+j*3]<qa[2]){qa[2]=qa1[2+j*3];}
j                 247 src/results.c  	for(j=1;j<num_cpus;j++){
j                 248 src/results.c  	    nal[0]+=nal[j];
j                 303 src/results.c  	    for(j=1;j<num_cpus;j++){
j                 304 src/results.c  		fn[mt*i]+=fn1[mt*i+j*mt**nk];
j                 312 src/results.c  	for(j=1;j<num_cpus;j++){
j                 313 src/results.c  	    qa[1]+=qa1[1+j*3];
j                 318 src/results.c  	for(j=1;j<num_cpus;j++){
j                 319 src/results.c  	    nal[0]+=nal[j];
j                  78 src/resultsinduction.c         intpointvart,mt=mi[1]+1,i,j,*ithread=NULL,*islavsurf=NULL,
j                 254 src/resultsinduction.c 	    for(j=1;j<num_cpus;j++){
j                 255 src/resultsinduction.c 		fn[mt*i]+=fn1[mt*i+j*mt**nk];
j                 263 src/resultsinduction.c 	for(j=1;j<num_cpus;j++){
j                 264 src/resultsinduction.c 	    qa[1]+=qa1[1+j*3];
j                 269 src/resultsinduction.c 	for(j=1;j<num_cpus;j++){
j                 270 src/resultsinduction.c 	    nal[0]+=nal[j];
j                  34 src/sgi.c        ITG i,j,k,l,*pointers=NULL,method;
j                  55 src/sgi.c            for(j=0;j<icol[i];++j){
j                  67 src/sgi.c            for(j=0;j<icol[i];++j){
j                 487 src/spooles.c  	    int nent,i,j;
j                 498 src/spooles.c  		    for(j=0;j<*neq;j++){
j                 499 src/spooles.c  			if(fabs(ad[i*(int)*nzs+j])>1.e-20) nent++;
j                 577 src/spooles.c  		    for(j=0;j<*neq;j++){
j                 578 src/spooles.c  			if(fabs(ad[i*(int)*nzs+j])>1.e-20){
j                 579 src/spooles.c  			    InpMtx_inputRealEntry(mtxA,j,i,
j                 580 src/spooles.c  						  ad[i*(int)*nzs+j]);
j                 807 src/spooles.c  	    int nent,i,j;
j                 818 src/spooles.c  		    for(j=0;j<*neq;j++){
j                 819 src/spooles.c  			if(fabs(ad[i*(int)*nzs+j])>1.e-20) nent++;
j                 892 src/spooles.c  		    for(j=0;j<*neq;j++){
j                 893 src/spooles.c  			if(fabs(ad[i*(int)*nzs+j])>1.e-20){
j                 894 src/spooles.c  			    InpMtx_inputRealEntry(mtxA,j,i,
j                 895 src/spooles.c  						  ad[i*(int)*nzs+j]);
j                  75 src/steadystate.c   ITG nev,i,j,k, *inum=NULL,*ipobody=NULL,inewton=0,nsectors,im,
j                 469 src/steadystate.c       for(j=0;j<*mcs;j++){
j                 470 src/steadystate.c 	  if(cs[17*j+4]>ngraph) ngraph=(ITG)cs[17*j+4];
j                 719 src/steadystate.c 		      for(j=1;j<ndata;j++){
j                 720 src/steadystate.c 			  y=-1.+2.*j/((double)(ndata-1));
j                 721 src/steadystate.c 			  if(fabs(y)<1.e-10){freq[ndatatot+j]=
j                 724 src/steadystate.c 			      freq[ndatatot+j]=(freq[ndatatot]+e[i])/2.+
j                 737 src/steadystate.c 	  for(j=1;j<ndata;j++){
j                 738 src/steadystate.c 	      y=-1.+2.*j/((double)(ndata-1));
j                 739 src/steadystate.c 	      if(fabs(y)<1.e-10){freq[ndatatot+j]=(freq[ndatatot]+fmax)/2.;}
j                 741 src/steadystate.c 		  freq[ndatatot+j]=(freq[ndatatot]+fmax)/2.+
j                 994 src/steadystate.c 		  for(j=0;j<=i;j++){
j                 996 src/steadystate.c 			  cc[i*nev+j]+=z[(long long)j*neq[1]+k]*zc[i*neq[1]+k];
j                1004 src/steadystate.c 		  for(j=i;j<nev;j++){
j                1005 src/steadystate.c 		      cc[i*nev+j]=cc[j*nev+i];
j                1031 src/steadystate.c 	      for(j=0;j<2;j++){
j                1032 src/steadystate.c 		  xloadr[2*i+j]=xloadact[2*i+j]*(1-iphaseload[i]);
j                1037 src/steadystate.c 	      for(j=0;j<7;j++){
j                1038 src/steadystate.c 		  xbodyr[7*i+j]=xbodyact[7*i+j];
j                1069 src/steadystate.c 			      for(j=0;j<nactmechr;j++){
j                1070 src/steadystate.c 				  aa[i]+=z[i2+ikactmechr[j]]*br[ikactmechr[j]];
j                1073 src/steadystate.c 			      for(j=0;j<neq[1];j++){
j                1074 src/steadystate.c 				  aa[i]+=z[i2+j]*br[j];
j                1080 src/steadystate.c 		      for(j=0;j<nactmechr;j++){
j                1082 src/steadystate.c 			      FORTRAN(nident,(izdof,&ikactmechr[j],&nzdof,&id));
j                1084 src/steadystate.c 				  if(izdof[id-1]==ikactmechr[j]){
j                1085 src/steadystate.c 				      aa[i]+=z[(long long)i*nzdof+id-1]*br[ikactmechr[j]];
j                1096 src/steadystate.c 			      for(j=0;j<nactmechr;j++){
j                1097 src/steadystate.c 				  aa[2*i]+=z[(long long)2*i*neq[1]+ikactmechr[j]]*br[ikactmechr[j]];
j                1098 src/steadystate.c 				  aa[2*i+1]+=z[(long long)(2*i+1)*neq[1]+ikactmechr[j]]*br[ikactmechr[j]];
j                1101 src/steadystate.c 			      for(j=0;j<neq[1];j++){
j                1102 src/steadystate.c 				  aa[2*i]+=z[(long long)2*i*neq[1]+j]*br[j];
j                1103 src/steadystate.c 				  aa[2*i+1]+=z[(long long)(2*i+1)*neq[1]+j]*br[j];
j                1109 src/steadystate.c 		      for(j=0;j<nactmechr;j++){
j                1111 src/steadystate.c 			      FORTRAN(nident,(izdof,&ikactmechr[j],&nzdof,&id));
j                1113 src/steadystate.c 				  if(izdof[id-1]==ikactmechr[j]){
j                1114 src/steadystate.c 				      aa[i]+=z[(long long)2*i*nzdof+id-1]*br[ikactmechr[j]];
j                1115 src/steadystate.c 				      aa[i]+=z[(long long)(2*i+1)*nzdof+id-1]*br[ikactmechr[j]];
j                1137 src/steadystate.c 	      for(j=0;j<neq[1];j++){fr[j]=0.;ubr[j]=0.;}
j                1140 src/steadystate.c 		  for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                1141 src/steadystate.c 		      ir=irow[j]-1;
j                1142 src/steadystate.c 		      fr[ir]=fr[ir]-au[j]*xbounr[i];
j                1176 src/steadystate.c 	      for(j=0;j<2;j++){
j                1177 src/steadystate.c 		  xloadi[2*i+j]=xloadact[2*i+j]*iphaseload[i];
j                1182 src/steadystate.c 	      for(j=0;j<7;j++){
j                1183 src/steadystate.c 		  xbodyi[7*i+j]=xbodyact[7*i+j];
j                1214 src/steadystate.c 			      for(j=0;j<nactmechi;j++){
j                1215 src/steadystate.c 				  bb[i]+=z[i2+ikactmechi[j]]*bi[ikactmechi[j]];
j                1218 src/steadystate.c 			      for(j=0;j<neq[1];j++){
j                1219 src/steadystate.c 				  bb[i]+=z[i2+j]*bi[j];
j                1225 src/steadystate.c 		      for(j=0;j<nactmechi;j++){
j                1227 src/steadystate.c 			      FORTRAN(nident,(izdof,&ikactmechi[j],&nzdof,&id));
j                1229 src/steadystate.c 				  if(izdof[id-1]==ikactmechi[j]){
j                1230 src/steadystate.c 				      bb[i]+=z[(long long)i*nzdof+id-1]*bi[ikactmechi[j]];
j                1241 src/steadystate.c 			      for(j=0;j<nactmechi;j++){
j                1242 src/steadystate.c 				  bb[2*i]+=z[(long long)2*i*neq[1]+ikactmechi[j]]*bi[ikactmechi[j]];
j                1243 src/steadystate.c 				  bb[2*i+1]+=z[(long long)(2*i+1)*neq[1]+ikactmechi[j]]*bi[ikactmechi[j]];
j                1246 src/steadystate.c 			      for(j=0;j<neq[1];j++){
j                1247 src/steadystate.c 				  bb[2*i]+=z[(long long)2*i*neq[1]+j]*bi[j];
j                1248 src/steadystate.c 				  bb[2*i+1]+=z[(long long)(2*i+1)*neq[1]+j]*bi[j];
j                1254 src/steadystate.c 		      for(j=0;j<nactmechi;j++){
j                1256 src/steadystate.c 			      FORTRAN(nident,(izdof,&ikactmechi[j],&nzdof,&id));
j                1258 src/steadystate.c 				  if(izdof[id-1]==ikactmechi[j]){
j                1259 src/steadystate.c 				      bb[2*i]+=z[(long long)2*i*nzdof+id-1]*bi[ikactmechi[j]];
j                1260 src/steadystate.c 				      bb[2*i+1]+=z[(long long)(2*i+1)*nzdof+id-1]*bi[ikactmechi[j]];
j                1283 src/steadystate.c 	      for(j=0;j<neq[1];j++){fi[j]=0.;ubi[j]=0.;}
j                1286 src/steadystate.c 		  for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                1287 src/steadystate.c 		      ir=irow[j]-1;
j                1288 src/steadystate.c 		      fi[ir]=fi[ir]-au[j]*xbouni[i];
j                1325 src/steadystate.c 		  for(j=0;j<neq[1];j++){
j                1326 src/steadystate.c 		      aa[i]+=z[(long long)i*neq[1]+j]*br[j];
j                1332 src/steadystate.c 		  for(j=0;j<neq[1];j++){
j                1333 src/steadystate.c 		      bb[i]+=z[(long long)i*neq[1]+j]*bi[j];
j                1359 src/steadystate.c 		      for(j=0;j<nev2;j++){
j                1360 src/steadystate.c 			  am[i*nev2+j]=0.;
j                1371 src/steadystate.c 		      for(j=0;j<nev;j++){
j                1372 src/steadystate.c 			  am[(j+nev)*nev2+i]=am[(j+nev)*nev2+i]
j                1373 src/steadystate.c 			      -cc[i*nev+j]*freq[l];
j                1374 src/steadystate.c 			  am[j*nev2+nev+i]=am[j*nev2+nev+i]
j                1375 src/steadystate.c 			      +cc[i*nev+j]*freq[l];
j                1410 src/steadystate.c 		  for(j=0;j<nev;j++){
j                1411 src/steadystate.c 		      am[j*nev2+i]=xmr[j*nev+i]*ax[j]+xmi[j*nev+i]*bx[j];
j                1412 src/steadystate.c 		      am[(j+nev)*nev2+i]=xmr[j*nev+i]*bx[j]-xmi[j*nev+i]*bx[j];
j                1413 src/steadystate.c 		      am[j*nev2+nev+i]=xmi[j*nev+i]*ax[j]-xmr[j*nev+i]*bx[j];
j                1414 src/steadystate.c 		      am[(j+nev)*nev2+nev+i]=xmi[j*nev+i]*bx[j]+xmr[j*nev+i]*ax[j];
j                1487 src/steadystate.c 		      for(j=0;j<nev;j++){
j                1488 src/steadystate.c 			  br[i]+=bjr[j]*z[(long long)j*neq[1]+i];
j                1493 src/steadystate.c 		      for(j=0;j<nev;j++){
j                1494 src/steadystate.c 			  br[imddof[i]]+=bjr[j]*z[(long long)j*neq[1]+imddof[i]];
j                1503 src/steadystate.c 			  for(j=0;j<nev;j++){
j                1504 src/steadystate.c 			      br[imddof[i]]+=bjr[j]*z[(long long)j*nzdof+id-1];
j                1516 src/steadystate.c 		  for(j=1;j<4;j++){
j                1517 src/steadystate.c 		      vr[mt*i+j]=0.;
j                1546 src/steadystate.c 		      for(j=0;j<nev;j++){
j                1547 src/steadystate.c 			  bi[i]+=bji[j]*z[(long long)j*neq[1]+i];
j                1552 src/steadystate.c 		      for(j=0;j<nev;j++){
j                1553 src/steadystate.c 			  bi[imddof[i]]+=bji[j]*z[(long long)j*neq[1]+imddof[i]];
j                1562 src/steadystate.c 			  for(j=0;j<nev;j++){
j                1563 src/steadystate.c 			      bi[imddof[i]]+=bji[j]*z[(long long)j*nzdof+id-1];
j                1576 src/steadystate.c 		  for(j=1;j<4;j++){
j                1577 src/steadystate.c 		      vi[mt*i+j]=0.;
j                1747 src/steadystate.c 			  for(j=1;j<4;j++){
j                1748 src/steadystate.c 			      vreal=vr[mt*i+j];
j                1749 src/steadystate.c 			      va[mt*i+j]=sqrt(vr[mt*i+j]*vr[mt*i+j]+vi[mt*i+j]*vi[mt*i+j]);
j                1751 src/steadystate.c 				  if(vi[mt*i+j]>0.){vp[mt*i+j]=90.;}
j                1752 src/steadystate.c 				  else{vp[mt*i+j]=-90.;}
j                1755 src/steadystate.c 				  vp[mt*i+j]=atan(vi[mt*i+j]/vreal)*constant;
j                1756 src/steadystate.c 				  if(vreal<0.) vp[mt*i+j]+=180.;
j                1763 src/steadystate.c 			  for(j=1;j<4;j++){
j                1764 src/steadystate.c 			      vreal=vr[mt*i+j];
j                1765 src/steadystate.c 			      va[mt*i+j]=sqrt(vr[mt*i+j]*vr[mt*i+j]+vi[mt*i+j]*vi[mt*i+j]);
j                1767 src/steadystate.c 				  if(vi[mt*i+j]>0.){vp[mt*i+j]=90.;}
j                1768 src/steadystate.c 				  else{vp[mt*i+j]=-90.;}
j                1771 src/steadystate.c 				  vp[mt*i+j]=atan(vi[mt*i+j]/vreal)*constant;
j                1772 src/steadystate.c 				  if(vreal<0.) vp[mt*i+j]+=180.;
j                1819 src/steadystate.c 			  for(j=0;j<6;j++){
j                1820 src/steadystate.c 			      vreal=stnr[6*i+j];
j                1821 src/steadystate.c 			      stna[6*i+j]=sqrt(stnr[6*i+j]*stnr[6*i+j]+stni[6*i+j]*stni[6*i+j]);
j                1823 src/steadystate.c 				  if(stni[6*i+j]>0.){stnp[6*i+j]=90.;}
j                1824 src/steadystate.c 				  else{stnp[6*i+j]=-90.;}
j                1827 src/steadystate.c 				  stnp[6*i+j]=atan(stni[6*i+j]/vreal)*constant;
j                1828 src/steadystate.c 				  if(vreal<0.) stnp[6*i+j]+=180.;
j                1835 src/steadystate.c 			  for(j=0;j<6;j++){
j                1836 src/steadystate.c 			      vreal=stnr[6*i+j];
j                1837 src/steadystate.c 			      stna[6*i+j]=sqrt(stnr[6*i+j]*stnr[6*i+j]+stni[6*i+j]*stni[6*i+j]);
j                1839 src/steadystate.c 				  if(stni[6*i+j]>0.){stnp[6*i+j]=90.;}
j                1840 src/steadystate.c 				  else{stnp[6*i+j]=-90.;}
j                1843 src/steadystate.c 				  stnp[6*i+j]=atan(stni[6*i+j]/vreal)*constant;
j                1844 src/steadystate.c 				  if(vreal<0.) stnp[6*i+j]+=180.;
j                2158 src/steadystate.c 		      for(j=1;j<ndata;j++){
j                2159 src/steadystate.c 			  y=-1.+2.*j/((double)(ndata-1));
j                2160 src/steadystate.c 			  if(fabs(y)<1.e-10){freqnh[ndatatot+j]=
j                2163 src/steadystate.c 			      freqnh[ndatatot+j]=(freqnh[ndatatot]+e[i])/2.+
j                2174 src/steadystate.c 	  for(j=1;j<ndata;j++){
j                2175 src/steadystate.c 	      y=-1.+2.*j/((double)(ndata-1));
j                2176 src/steadystate.c 	      if(fabs(y)<1.e-10){freqnh[ndatatot+j]=
j                2179 src/steadystate.c 		  freqnh[ndatatot+j]=(freqnh[ndatatot]+fmax)/2.+
j                2270 src/steadystate.c 		      for(j=0;j<=i;j++){
j                2272 src/steadystate.c 			      cc[i*nev+j]+=z[(long long)j*neq[1]+k]*zc[i*neq[1]+k];
j                2280 src/steadystate.c 		      for(j=i;j<nev;j++){
j                2281 src/steadystate.c 			  cc[i*nev+j]=cc[j*nev+i];
j                2323 src/steadystate.c 			      for(j=0;j<nactmech;j++){
j                2324 src/steadystate.c 				  aa[i]+=z[i2+ikactmech[j]]*br[ikactmech[j]];
j                2327 src/steadystate.c 			      for(j=0;j<neq[1];j++){
j                2328 src/steadystate.c 				  aa[i]+=z[i2+j]*br[j];
j                2334 src/steadystate.c 		      for(j=0;j<nactmech;j++){
j                2336 src/steadystate.c 			      FORTRAN(nident,(izdof,&ikactmech[j],&nzdof,&id));
j                2338 src/steadystate.c 				  if(izdof[id-1]==ikactmech[j]){
j                2339 src/steadystate.c 				      aa[i]+=z[(long long)i*nzdof+id-1]*br[ikactmech[j]];
j                2367 src/steadystate.c 		  for(j=0;j<neq[1];j++){fr[j]=0.;ubr[j]=0.;}
j                2370 src/steadystate.c 		      for(j=jq[ic]-1;j<jq[ic+1]-1;j++){
j                2371 src/steadystate.c 			  ir=irow[j]-1;
j                2372 src/steadystate.c 			  fr[ir]=fr[ir]-au[j]*xbounr[i];
j                2407 src/steadystate.c 		      for(j=0;j<neq[1];j++){
j                2408 src/steadystate.c 			  aa[i]+=z[(long long)i*neq[1]+j]*br[j];
j                2414 src/steadystate.c 		      for(j=0;j<neq[1];j++){
j                2415 src/steadystate.c 			  bb[i]+=z[(long long)i*neq[1]+j]*bi[j];
j                2438 src/steadystate.c 		      for(j=0;j<nev2;j++){
j                2439 src/steadystate.c 			  am[i*nev2+j]=0.;
j                2450 src/steadystate.c 		      for(j=0;j<nev;j++){
j                2451 src/steadystate.c 			  am[(j+nev)*nev2+i]=am[(j+nev)*nev2+i]
j                2452 src/steadystate.c 			      -cc[i*nev+j]*freq[l];
j                2453 src/steadystate.c 			  am[j*nev2+nev+i]=am[j*nev2+nev+i]
j                2454 src/steadystate.c 			      +cc[i*nev+j]*freq[l];
j                2501 src/steadystate.c 			  for(j=0;j<nev;j++){
j                2502 src/steadystate.c 			      br[i]+=bjr[j]*z[(long long)j*neq[1]+i];
j                2507 src/steadystate.c 			  for(j=0;j<nev;j++){
j                2508 src/steadystate.c 			      br[imddof[i]]+=bjr[j]*z[(long long)j*neq[1]+imddof[i]];
j                2517 src/steadystate.c 			      for(j=0;j<nev;j++){
j                2518 src/steadystate.c 				  br[imddof[i]]+=bjr[j]*z[(long long)j*nzdof+id-1];
j                2538 src/steadystate.c 			  for(j=0;j<nev;j++){
j                2539 src/steadystate.c 			      bi[i]+=bji[j]*z[(long long)j*neq[1]+i];
j                2544 src/steadystate.c 			  for(j=0;j<nev;j++){
j                2545 src/steadystate.c 			      bi[imddof[i]]+=bji[j]*z[(long long)j*neq[1]+imddof[i]];
j                2554 src/steadystate.c 			      for(j=0;j<nev;j++){
j                2555 src/steadystate.c 				  bi[imddof[i]]+=bji[j]*z[(long long)j*nzdof+id-1];
j                2589 src/steadystate.c 		  for(j=0;j<nfour;j++){
j                2590 src/steadystate.c 		      time=tmin+2.*pi/freqnh[ii]*(double)j/(double)nfour;
j                2592 src/steadystate.c 			  btot[j*neq[1]+i]+=br[i]*cos(freq[l]*time+bi[i]);
j                2593 src/steadystate.c 			  bp[j*neq[1]+i]-=freq[l]*br[i]*sin(freq[l]*time+bi[i]);
j                2625 src/steadystate.c 		  for(j=0;j<nfour;j++){
j                2626 src/steadystate.c 		      time=tmin+2.*pi/freqnh[ii]*(double)j/(double)nfour;
j                2629 src/steadystate.c 			  btot[j*neq[1]+i]+=br[i]*cos(freq[l]*time+bi[i]);
j                2630 src/steadystate.c 			  bp[j*neq[1]+i]-=freq[l]*br[i]*sin(freq[l]*time+bi[i]);
j                2691 src/steadystate.c 		      for(j=1;j<4;j++){
j                2692 src/steadystate.c 			  vr[mt*i+j]=0.;
j                  41 src/storecontactdof.c   ITG j,j1,jdof,id,k,l,ist,index,node,ndir,*ikactcont=*ikactcontp;
j                  43 src/storecontactdof.c   for(j=0;j<*nope;j++){
j                  45 src/storecontactdof.c 	  jdof=nactdof[*mt*(konl[j]-1)+j1+1];
j                  70 src/storecontactdof.c 	      bcont[jdof]-=fnl[3*j+j1];
j                  72 src/storecontactdof.c 	      jdof=8*(konl[j]-1)+j1+1;
j                 111 src/storecontactdof.c 				  fnl[3*j+j1]/coefmpc[ist-1];
j                  15 src/strsplt.c    ITG i,j;
j                  26 src/strsplt.c    for(j=0; j<MAX_LINE_LENGTH; j++) dat[nextarg][j]='\0'; 
j                  43 src/strsplt.c          for(j=0; j<MAX_LINE_LENGTH; j++) dat[nextarg][j]='\0'; 
j                  45 src/tau.c        ITG i,j,k,l,*irow=NULL;
j                  71 src/tau.c            for(j=0;j<icol[i];++j){
j                  83 src/tau.c            for(j=0;j<icol[i];++j){