nk                 70 src/CalculiX.h 	     ITG *nk,ITG *imdnode,ITG *nmdnode,double *xforc));
nk                 74 src/CalculiX.h 	     ITG *mi,ITG *i,ITG *iznode,ITG *nznode,ITG *nk,
nk                116 src/CalculiX.h void arpack(double *co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
nk                152 src/CalculiX.h void arpackbu(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                184 src/CalculiX.h void arpackcs(double *co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
nk                233 src/CalculiX.h 	    double *qfx,double *h0,ITG *mi,ITG *inomat,ITG *nk);
nk                298 src/CalculiX.h         double *vini,double *dtime,double *accold,ITG *nk,double *adb,
nk                308 src/CalculiX.h         double *vini,double *dtime,double *accold,ITG *nk,double *adb,
nk                346 src/CalculiX.h void FORTRAN(calinput,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                401 src/CalculiX.h    char *labmpc,ITG *nk,ITG *memmpc_,ITG *icascade,ITG *maxlenmpc,
nk                410 src/CalculiX.h void checkconvergence(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                456 src/CalculiX.h void compfluid(double **cop,ITG *nk,ITG **ipkonp,ITG **konp,char **lakonp,
nk                488 src/CalculiX.h void complexfreq(double **cop,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,ITG *ne, 
nk                566 src/CalculiX.h void FORTRAN(createinum,(ITG *ipkon,ITG *inum,ITG *kon,char *lakon,ITG *nk,
nk                593 src/CalculiX.h 	     ITG *ntie,double *tietol,ITG *nalset,ITG *nk,ITG *nset,
nk                645 src/CalculiX.h void dyna(double **cop,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,ITG *ne, 
nk                682 src/CalculiX.h void dynacont(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne, 
nk                754 src/CalculiX.h void FORTRAN(dynresults,(ITG *nk,double *v,ITG *ithermal,ITG *nactdof,
nk                763 src/CalculiX.h 			double *co,ITG *nk));
nk                765 src/CalculiX.h void electromagnetics(double **co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
nk                821 src/CalculiX.h              ITG *kon,char *lakon,ITG *nk,ITG *ne,ITG *mi,ITG *ielmat,
nk                824 src/CalculiX.h void expand(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                859 src/CalculiX.h              ITG *kon,char *lakon,ITG *nfield,ITG *nk,ITG *ne,ITG *mi,
nk                869 src/CalculiX.h void FORTRAN(extrapolatefluid,(ITG *nk,ITG *iponofa,ITG *inofa,ITG *inum,
nk                923 src/CalculiX.h void frd(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
nk                939 src/CalculiX.h void frdcyc(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,double *v,
nk                951 src/CalculiX.h void FORTRAN(frdfluid,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                962 src/CalculiX.h void FORTRAN(frditeration,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1027 src/CalculiX.h void  FORTRAN(gennactdofinv,(ITG *nactdof,ITG *nactdofinv,ITG *nk,
nk               1043 src/CalculiX.h              ITG *mcs,ITG *inocs,ITG *ntrit,ITG *nk,ITG *mi,double *sidemean));
nk               1048 src/CalculiX.h                        ITG *iamforc,double *xforc,ITG *ithermal,ITG *nk,
nk               1065 src/CalculiX.h void inicont(ITG* nk,ITG *ncont,ITG *ntie,char *tieset,ITG *nset,char *set,
nk               1157 src/CalculiX.h void linstatic(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1192 src/CalculiX.h void FORTRAN(mafillcorio,(double *co,ITG *nk,ITG *kon,ITG *ipkon, 
nk               1217 src/CalculiX.h void FORTRAN(mafilldm,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1243 src/CalculiX.h void FORTRAN(mafillem,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1301 src/CalculiX.h void FORTRAN(mafillsm,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1334 src/CalculiX.h void FORTRAN(mafillsmas,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1367 src/CalculiX.h void FORTRAN(mafillsmcs,(double *co,ITG *nk,ITG *kon,ITG *ipkon, 
nk               1398 src/CalculiX.h void FORTRAN(mafillsmcsas,(double *co,ITG *nk,ITG *kon,ITG *ipkon, 
nk               1451 src/CalculiX.h void mastruct(ITG *nk,ITG *kon,ITG *ipkon,char*lakon,ITG *ne,
nk               1459 src/CalculiX.h void mastructcs(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1468 src/CalculiX.h void mastructem(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
nk               1476 src/CalculiX.h void mastructf(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
nk               1485 src/CalculiX.h void FORTRAN(meannode,(ITG *nk,ITG *inum,double *v));
nk               1507 src/CalculiX.h void nonlingeo(double **co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
nk               1603 src/CalculiX.h                ITG *ithermal,ITG *nk,double *veold,double *accold,double *v,
nk               1607 src/CalculiX.h                ITG *ithermal,ITG *nk,double *veold,double *v,
nk               1620 src/CalculiX.h 	     ITG *norien,ITG *nk,ITG *ne,ITG *inum,char *filab,double *vold,
nk               1631 src/CalculiX.h 	     ITG *norien,ITG *nk,ITG *ne,ITG *inum,char *filab,double *vold,
nk               1647 src/CalculiX.h void radcyc(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
nk               1662 src/CalculiX.h        ITG *nk,double *fenv,ITG *istep,double *dtime,double *ttime,
nk               1705 src/CalculiX.h 		      double *qfn,double *een,double *cs,ITG *nk, 
nk               1712 src/CalculiX.h 		      ITG *iznode,ITG *nznode,ITG *nsectors,ITG *nk,
nk               1719 src/CalculiX.h 		      double *qfn,double *een,double *cs,ITG *nk, 
nk               1726 src/CalculiX.h               char *labmpc,ITG *nk,
nk               1739 src/CalculiX.h               char *labmpc,ITG *nk,
nk               1750 src/CalculiX.h               char *labmpc,ITG *nk,
nk               1762 src/CalculiX.h     ITG *nk,ITG *ne,ITG *nmpc,ITG *nalset,ITG *nmat,ITG *ntmat,ITG *npmat,
nk               1771 src/CalculiX.h   ITG * nboun,ITG *nk,ITG *ne,ITG *nmpc,ITG *nalset,ITG *nmat,ITG *ntmat_, 
nk               1825 src/CalculiX.h void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               1870 src/CalculiX.h void  FORTRAN(resultsforc,(ITG *nk,double *f,double *fn,ITG *nactdof,
nk               1875 src/CalculiX.h void  FORTRAN(resultsforc_em,(ITG *nk,double *f,double *fn,ITG *nactdof,
nk               1879 src/CalculiX.h void FORTRAN(resultsini,(ITG *nk,double *v,ITG *ithermal,char *filab,
nk               1889 src/CalculiX.h void FORTRAN(resultsini_em,(ITG *nk,double *v,ITG *ithermal,char *filab,
nk               1918 src/CalculiX.h void  FORTRAN(resultsprint,(double *co,ITG *nk,ITG *kon,ITG *ipkon,
nk               1956 src/CalculiX.h void resultsinduction(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               2028 src/CalculiX.h void FORTRAN(rhs,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk               2088 src/CalculiX.h void steadystate(double **co,ITG *nk,ITG **kon,ITG **ipkon,char **lakon,ITG *ne, 
nk               2133 src/CalculiX.h              ITG *ithermal,ITG *nk,double *sti,double *stn,
nk               2156 src/CalculiX.h                ITG *nk,double *amta,ITG *namta,ITG *nam,double *ampli,
nk               2175 src/CalculiX.h                ITG *nk,double *amta,ITG *namta,ITG *nam,double *ampli,
nk               2195 src/CalculiX.h                ITG *nk,double *amta,ITG *namta,ITG *nam,double *ampli,
nk               2219 src/CalculiX.h        ITG *mortar,ITG *ipoface,ITG *nodface,ITG *nk,double *xnoels));   
nk               2228 src/CalculiX.h 	       ITG *nmpc_,ITG *mi,ITG *nk,ITG *istep,ITG *ikboun,
nk               2239 src/CalculiX.h 	  char *kind2,double *co,ITG *nk));
nk               2249 src/CalculiX.h                         ITG *ne,ITG *nk));
nk               2326 src/CalculiX.h void FORTRAN(zienzhu,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                 41 src/arpack.c   void arpack(double *co, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp,
nk                183 src/arpack.c         inicont(nk,&ncont,ntie,tieset,nset,set,istartset,iendset,ialset,&itietri,
nk                335 src/arpack.c   		 labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk                361 src/arpack.c     NNEW(v,double,mt**nk);
nk                362 src/arpack.c     memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk                363 src/arpack.c     NNEW(fn,double,mt**nk);
nk                368 src/arpack.c     NNEW(inum,ITG,*nk);
nk                370 src/arpack.c        results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                388 src/arpack.c        results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                425 src/arpack.c       FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                443 src/arpack.c         FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                466 src/arpack.c   	  FORTRAN(mafillsmas,(co,nk,kon,ipkon,lakon,ne,nodeboun,
nk                494 src/arpack.c       NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                497 src/arpack.c   	NNEW(ipneigh,ITG,*nk);
nk                500 src/arpack.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                546 src/arpack.c   		  ntrans,inotr,trab,co,nk,nactdof,jobnamec,mi,ipkon,
nk                809 src/arpack.c         FORTRAN(effectivemodalmass,(neq,nactdof,mi,adb,aub,jq,irow,&nev,z,co,nk));
nk                817 src/arpack.c     NNEW(v,double,mt**nk);
nk                818 src/arpack.c     NNEW(fn,double,mt**nk);
nk                819 src/arpack.c     NNEW(stn,double,6**nk);
nk                820 src/arpack.c     NNEW(inum,ITG,*nk);
nk                823 src/arpack.c         NNEW(qfn,double,3**nk);
nk                827 src/arpack.c     if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                828 src/arpack.c     if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                829 src/arpack.c     if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                830 src/arpack.c     if(strcmp1(&filab[2175],"CONT")==0) NNEW(cdn,double,6**nk);
nk                879 src/arpack.c       DMEMSET(v,0,mt**nk,0.);
nk                881 src/arpack.c         results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                901 src/arpack.c         results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                933 src/arpack.c   	NNEW(ipneigh,ITG,*nk);
nk                936 src/arpack.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                 37 src/arpackbu.c void arpackbu(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
nk                138 src/arpackbu.c   NNEW(v,double,mt**nk);
nk                139 src/arpackbu.c   NNEW(fn,double,mt**nk);
nk                143 src/arpackbu.c   NNEW(inum,ITG,*nk);
nk                145 src/arpackbu.c      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                163 src/arpackbu.c      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                192 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                210 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                241 src/arpackbu.c     NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                244 src/arpackbu.c 	NNEW(ipneigh,ITG,*nk);
nk                247 src/arpackbu.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                303 src/arpackbu.c   NNEW(v,double,mt**nk);
nk                304 src/arpackbu.c   NNEW(fn,double,mt**nk);
nk                305 src/arpackbu.c   NNEW(stn,double,6**nk);
nk                306 src/arpackbu.c   NNEW(inum,ITG,*nk);
nk                309 src/arpackbu.c   if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                310 src/arpackbu.c   if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                311 src/arpackbu.c   if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                319 src/arpackbu.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                338 src/arpackbu.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                357 src/arpackbu.c   for(k=0;k<mt**nk;++k){
nk                364 src/arpackbu.c       NNEW(ipneigh,ITG,*nk);
nk                367 src/arpackbu.c   frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                395 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                413 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                631 src/arpackbu.c   NNEW(v,double,mt**nk);
nk                632 src/arpackbu.c   NNEW(fn,double,mt**nk);
nk                633 src/arpackbu.c   NNEW(stn,double,6**nk);
nk                634 src/arpackbu.c   NNEW(inum,ITG,*nk);
nk                637 src/arpackbu.c   if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                638 src/arpackbu.c   if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                639 src/arpackbu.c   if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                652 src/arpackbu.c     DMEMSET(v,0,mt**nk,0.);
nk                654 src/arpackbu.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                673 src/arpackbu.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                696 src/arpackbu.c 	NNEW(ipneigh,ITG,*nk);
nk                699 src/arpackbu.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                 41 src/arpackcs.c void arpackcs(double *co, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp,
nk                186 src/arpackcs.c       inicont(nk,&ncont,ntie,tieset,nset,set,istartset,iendset,ialset,&itietri,
nk                338 src/arpackcs.c 		       labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk                364 src/arpackcs.c   NNEW(v,double,mt**nk);
nk                365 src/arpackcs.c   memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk                366 src/arpackcs.c   NNEW(fn,double,mt**nk);
nk                368 src/arpackcs.c   NNEW(inum,ITG,*nk);
nk                370 src/arpackcs.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                388 src/arpackcs.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                423 src/arpackcs.c   NNEW(inocs,ITG,*nk);
nk                427 src/arpackcs.c       for(i=0;i<*nk;i++) inocs[i]=-1;
nk                493 src/arpackcs.c 	  FORTRAN(mafillsmcs,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                510 src/arpackcs.c 	  FORTRAN(mafillsmcs,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                532 src/arpackcs.c 	      FORTRAN(mafillsmcsas,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
nk                558 src/arpackcs.c 	  NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                561 src/arpackcs.c 	      NNEW(ipneigh,ITG,*nk);
nk                564 src/arpackcs.c 	  frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                610 src/arpackcs.c 			ntrans,inotr,trab,co,nk,nactdof,jobnamec,mi,ipkon,
nk               1021 src/arpackcs.c 	  FORTRAN(effectivemodalmass,(neq,nactdof,mi,adb,aub,jq,irow,&nev,z,co,nk));
nk               1027 src/arpackcs.c       NNEW(v,double,2*mt**nk);
nk               1028 src/arpackcs.c       NNEW(fn,double,2*mt**nk);
nk               1032 src/arpackcs.c 	  NNEW(stn,double,12**nk);
nk               1035 src/arpackcs.c 	  NNEW(een,double,12**nk);
nk               1036 src/arpackcs.c       if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,2**nk);
nk               1037 src/arpackcs.c       if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,12**nk);
nk               1039 src/arpackcs.c          &&(*mortar==1)) NNEW(cdn,double,12**nk);
nk               1041 src/arpackcs.c       NNEW(inum,ITG,*nk);
nk               1047 src/arpackcs.c       NNEW(cot,double,3**nk*ngraph);
nk               1048 src/arpackcs.c       if(*ntrans>0){NNEW(inotrt,ITG,2**nk*ngraph);}
nk               1053 src/arpackcs.c 	  NNEW(vt,double,2*mt**nk*ngraph);
nk               1055 src/arpackcs.c 	  NNEW(t1t,double,*nk*ngraph);
nk               1061 src/arpackcs.c 	  NNEW(stnt,double,2*6**nk*ngraph);
nk               1062 src/arpackcs.c       if(strcmp1(&filab[261],"E   ")==0) NNEW(eent,double,2*6**nk*ngraph);
nk               1067 src/arpackcs.c 	  NNEW(fnt,double,2*mt**nk*ngraph);
nk               1068 src/arpackcs.c       if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emnt,double,2*6**nk*ngraph);
nk               1070 src/arpackcs.c          &&(*mortar==1)) NNEW(cdnt,double,2*6**nk*ngraph);
nk               1072 src/arpackcs.c 	  NNEW(enernt,double,*nk*ngraph);
nk               1081 src/arpackcs.c       NNEW(inumt,ITG,*nk*ngraph);
nk               1084 src/arpackcs.c       nkt=ngraph**nk;
nk               1089 src/arpackcs.c       for(l=0;l<3**nk;l++){cot[l]=co[l];}
nk               1090 src/arpackcs.c       if(*ntrans>0){for(l=0;l<*nk;l++){inotrt[2*l]=inotr[2*l];}}
nk               1100 src/arpackcs.c       FORTRAN(rectcyl,(cot,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk               1108 src/arpackcs.c 	      for(l=0;l<*nk;l++){
nk               1110 src/arpackcs.c 		      cot[3*l+i*3**nk]=cot[3*l];
nk               1111 src/arpackcs.c 		      cot[1+3*l+i*3**nk]=cot[1+3*l]+theta;
nk               1112 src/arpackcs.c 		      cot[2+3*l+i*3**nk]=cot[2+3*l];
nk               1113 src/arpackcs.c 		      if(*ntrans>0){inotrt[2*l+i*2**nk]=inotrt[2*l];}
nk               1116 src/arpackcs.c 	      for(l=0;l<*nkon;l++){kont[l+i**nkon]=kon[l]+i**nk;}
nk               1242 src/arpackcs.c 	  DMEMSET(v,0,2*mt**nk,0.);
nk               1249 src/arpackcs.c 	      else {kk=*nk;kkv=mt**nk;kk6=6**nk;kkx=6*mi[0]**ne;
nk               1299 src/arpackcs.c 		  results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
nk               1318 src/arpackcs.c 		  results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
nk               1365 src/arpackcs.c 	      for(l1=0;l1<4**nk;l1++){vmax[l1]=0.;}
nk               1378 src/arpackcs.c 	      for(l1=0;l1<*nk;l1++){
nk               1403 src/arpackcs.c 			  vl[l2]=ctl*v[l]-stl*v[l+mt**nk];
nk               1419 src/arpackcs.c 		      vl[l2]=ctl*v[l]-stl*v[l+mt**nk];
nk               1462 src/arpackcs.c 			      stnl[l2]=ctl*stn[l]-stl*stn[l+6**nk];
nk               1525 src/arpackcs.c 				  stnl[l2]=ctl*stn[l]-stl*stn[l+6**nk];
nk               1615 src/arpackcs.c 	      eenl[l2]=ctl*een[l]-stl*een[l+6**nk];
nk               1678 src/arpackcs.c 		eenl[l2]=ctl*een[l]-stl*een[l+6**nk];
nk               1736 src/arpackcs.c     for(l=0;l<*nk;l++){inumt[l]=inum[l];}
nk               1740 src/arpackcs.c     FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk               1743 src/arpackcs.c       for(l=0;l<mt**nk;l++){vt[l]=v[l];}
nk               1744 src/arpackcs.c       for(l=0;l<mt**nk;l++){vt[l+mt**nk*ngraph]=v[l+mt**nk];}}
nk               1746 src/arpackcs.c       for(l=0;l<*nk;l++){t1t[l]=t1[l];};
nk               1748 src/arpackcs.c 	for(l=0;l<6**nk;l++){stnt[l]=stn[l];}
nk               1749 src/arpackcs.c 	for(l=0;l<6**nk;l++){stnt[l+6**nk*ngraph]=stn[l+6**nk];}}
nk               1751 src/arpackcs.c 	for(l=0;l<6**nk;l++){eent[l]=een[l];};
nk               1752 src/arpackcs.c 	for(l=0;l<6**nk;l++){eent[l+6**nk*ngraph]=een[l+6**nk];}}
nk               1754 src/arpackcs.c       for(l=0;l<mt**nk;l++){fnt[l]=fn[l];}
nk               1755 src/arpackcs.c       for(l=0;l<mt**nk;l++){fnt[l+mt**nk*ngraph]=fn[l+mt**nk];}}
nk               1757 src/arpackcs.c       for(l=0;l<*nk;l++){enernt[l]=enern[l];};
nk               1763 src/arpackcs.c 	for(l=0;l<6**nk;l++){emnt[l]=emn[l];};
nk               1764 src/arpackcs.c 	for(l=0;l<6**nk;l++){emnt[l+6**nk*ngraph]=emn[l+6**nk];}}
nk               1767 src/arpackcs.c 	for(l=0;l<6**nk;l++){cdnt[l]=cdn[l];}
nk               1768 src/arpackcs.c 	for(l=0;l<6**nk;l++){cdnt[l+6**nk*ngraph]=cdn[l+6**nk];}}
nk               1776 src/arpackcs.c         for(l=0;l<*nk;l++){inumt[l+i**nk]=inum[l];}
nk               1783 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1794 src/arpackcs.c 			  vt[l+mt**nk*i]=v[l];
nk               1801 src/arpackcs.c                 vt[l+mt**nk*i]=ctl*v[l]-stl*v[l+mt**nk];
nk               1811 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1822 src/arpackcs.c 			  vt[l+mt**nk*(i+ngraph)]=v[l+mt**nk];
nk               1829 src/arpackcs.c                 vt[l+mt**nk*(i+ngraph)]=stl*v[l]+ctl*v[l+mt**nk];
nk               1836 src/arpackcs.c           for(l=0;l<*nk;l++){
nk               1837 src/arpackcs.c 	      if(inocs[l]==jj) t1t[l+*nk*i]=t1[l];
nk               1842 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1853 src/arpackcs.c 			  stnt[l+6**nk*i]=stn[l];
nk               1860 src/arpackcs.c                 stnt[l+6**nk*i]=ctl*stn[l]-stl*stn[l+6**nk];
nk               1870 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1881 src/arpackcs.c 			  stnt[l+6**nk*(i+ngraph)]=stn[l+6**nk];
nk               1888 src/arpackcs.c                 stnt[l+6**nk*(i+ngraph)]=stl*stn[l]+ctl*stn[l+6**nk];
nk               1895 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1906 src/arpackcs.c 			  eent[l+6**nk*i]=een[l];
nk               1913 src/arpackcs.c                 eent[l+6**nk*i]=ctl*een[l]-stl*een[l+6**nk];
nk               1923 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1934 src/arpackcs.c 			  eent[l+6**nk*(i+ngraph)]=een[l+6**nk];
nk               1941 src/arpackcs.c                 eent[l+6**nk*(i+ngraph)]=stl*een[l]+ctl*een[l+6**nk];
nk               1950 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1961 src/arpackcs.c 			  emnt[l+6**nk*i]=emn[l];
nk               1968 src/arpackcs.c                 emnt[l+6**nk*i]=ctl*emn[l]-stl*emn[l+6**nk];
nk               1978 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               1989 src/arpackcs.c 			  emnt[l+6**nk*(i+ngraph)]=emn[l+6**nk];
nk               1996 src/arpackcs.c                 emnt[l+6**nk*(i+ngraph)]=stl*emn[l]+ctl*emn[l+6**nk];
nk               2006 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               2017 src/arpackcs.c 			  cdnt[l+6**nk*i]=cdn[l];
nk               2024 src/arpackcs.c                 cdnt[l+6**nk*i]=ctl*cdn[l]-stl*cdn[l+6**nk];
nk               2034 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               2045 src/arpackcs.c 			  cdnt[l+6**nk*(i+ngraph)]=cdn[l+6**nk];
nk               2052 src/arpackcs.c                 cdnt[l+6**nk*(i+ngraph)]=stl*cdn[l]+ctl*cdn[l+6**nk];
nk               2059 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               2070 src/arpackcs.c 			  fnt[l+mt**nk*i]=fn[l];
nk               2077 src/arpackcs.c                 fnt[l+mt**nk*i]=ctl*fn[l]-stl*fn[l+mt**nk];
nk               2087 src/arpackcs.c           for(l1=0;l1<*nk;l1++){
nk               2098 src/arpackcs.c 		    fnt[l+mt**nk*(i+ngraph)]=fn[l+mt**nk];
nk               2105 src/arpackcs.c                 fnt[l+mt**nk*(i+ngraph)]=stl*fn[l]+ctl*fn[l+mt**nk];
nk               2112 src/arpackcs.c           for(l=0;l<*nk;l++){
nk               2113 src/arpackcs.c             if(inocs[l]==jj) enernt[l+*nk*i]=0.;
nk               2124 src/arpackcs.c     FORTRAN(rectcylvi,(cot,&vt[mt**nk*ngraph],&fnt[mt**nk*ngraph],
nk               2125 src/arpackcs.c           &stnt[6**nk*ngraph],qfnt,&eent[6**nk*ngraph],cs,&nkt,&icntrl,
nk               2126 src/arpackcs.c           t,filab,&imag,mi,&emnt[6**nk*ngraph]));
nk               2135 src/arpackcs.c 	  vimag=vt[l+mt**nk*ngraph];
nk               2156 src/arpackcs.c 	  stnimag=stnt[l+6**nk*ngraph];
nk               2177 src/arpackcs.c 	  fnimag=fnt[l+mt**nk*ngraph];
nk               2198 src/arpackcs.c 	  cdnimag=cdnt[l+6**nk*ngraph];
nk                 32 src/biosav.c                   double *qfx,double *h0,ITG *mi,ITG *inomat,ITG *nk){
nk                 96 src/biosav.c       for(i=0;i<*nk;i++){
nk                 35 src/calcresidual.c         double *vini, double *dtime, double *accold, ITG *nk, double *adb,
nk                 56 src/calcresidual.c 	for(k=0;k<*nk;++k){
nk                 79 src/calcresidual.c 	    for(k=0;k<*nk;++k){
nk                100 src/calcresidual.c 	for(k=0;k<*nk;++k){
nk                 35 src/calcresidual_em.c         double *vini, double *dtime, double *accold, ITG *nk, double *adb,
nk                 63 src/calcresidual_em.c 	for(k=0;k<*nk;++k){
nk                 37 src/cascade.c     char *labmpc, ITG *nk, ITG *memmpc_, ITG *icascade, ITG *maxlenmpc,
nk                377 src/cascade.c  	NNEW(ipointer,ITG,7**nk);
nk                378 src/cascade.c  	NNEW(indepdof,ITG,7**nk);
nk                 76 src/ccx_2.8.c  ITG nk,ne,nboun,nmpc,nforc,nload,nprint,nset,nalset,nentries=15,
nk                179 src/ccx_2.8.c  nload=0;nbody=0;nforc=0;nboun=0;nk=0;nmpc=0;nam=0;
nk                445 src/ccx_2.8.c        DMEMSET(veold,mt*nk,mt*nk_,0.);
nk                448 src/ccx_2.8.c      DMEMSET(vold,mt*nk,mt*nk_,0.);
nk                493 src/ccx_2.8.c        RENEW(inotr,ITG,2*nk_);DMEMSET(inotr,2*nk,2*nk_,0);
nk                496 src/ccx_2.8.c      RENEW(co,double,3*nk_);DMEMSET(co,3*nk,3*nk_,0.);
nk                499 src/ccx_2.8.c  	RENEW(t0,double,nk_);DMEMSET(t0,nk,nk_,0.);
nk                500 src/ccx_2.8.c  	RENEW(t1,double,nk_);DMEMSET(t1,nk,nk_,0.);
nk                502 src/ccx_2.8.c  	    RENEW(t0g,double,2*nk_);DMEMSET(t0g,2*nk,2*nk_,0.);
nk                503 src/ccx_2.8.c  	    RENEW(t1g,double,2*nk_);DMEMSET(t1g,2*nk,2*nk_,0.);
nk                531 src/ccx_2.8.c    nkold=nk;
nk                550 src/ccx_2.8.c    FORTRAN(calinput,(co,&nk,kon,ipkon,lakon,&nkon,&ne,
nk                598 src/ccx_2.8.c         ithermal, co, vold,&icfd,&nmpc_,mi,&nk,&istep,ikboun,&nboun,
nk                605 src/ccx_2.8.c      RENEW(vold,double,mt*nk);
nk                658 src/ccx_2.8.c        NNEW(t1old,double,nk);
nk                659 src/ccx_2.8.c        for(i=0;i<nk;i++) t1old[i]=t0[i];
nk                790 src/ccx_2.8.c      RENEW(vold,double,mt*nk);
nk                824 src/ccx_2.8.c        RENEW(t1old,double,nk);
nk                837 src/ccx_2.8.c    RENEW(co,double,3*nk);
nk                855 src/ccx_2.8.c        RENEW(t0,double,nk);
nk                856 src/ccx_2.8.c        RENEW(t1,double,nk);
nk                858 src/ccx_2.8.c  	  RENEW(t0g,double,2*nk);
nk                859 src/ccx_2.8.c  	  RENEW(t1g,double,2*nk);
nk                861 src/ccx_2.8.c        if(nam > 0) {RENEW(iamt1,ITG,nk);}
nk                894 src/ccx_2.8.c      RENEW(veold,double,mt*nk);
nk                899 src/ccx_2.8.c      NNEW(accold,double,mt*nk);
nk                915 src/ccx_2.8.c        NNEW(inodesd,ITG,nk);
nk                946 src/ccx_2.8.c      RENEW(inotr,ITG,2*nk);
nk                961 src/ccx_2.8.c                nelemload,sideloadtemp,&nload,&ne,&nk));
nk                967 src/ccx_2.8.c    if(((istep == 1)||(ntrans>0)||(mpcend<0)||(nk!=nkold)||(nmpc!=nmpcold))&&(icascade==0)) {
nk                977 src/ccx_2.8.c  	    labmpc,&nk,&memmpc_,&icascade,&maxlenmpc,
nk                985 src/ccx_2.8.c    NNEW(nactdof,ITG,mt*nk);  
nk                991 src/ccx_2.8.c        NNEW(icol,ITG,mt*nk);
nk                992 src/ccx_2.8.c        NNEW(jq,ITG,mt*nk+1);
nk                993 src/ccx_2.8.c        NNEW(ipointer,ITG,mt*nk);
nk                997 src/ccx_2.8.c  	  mastruct(&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,&nboun,ipompc,
nk               1006 src/ccx_2.8.c        NNEW(icol,ITG,8*nk);
nk               1007 src/ccx_2.8.c        NNEW(jq,ITG,8*nk+1);
nk               1008 src/ccx_2.8.c        NNEW(ipointer,ITG,8*nk);
nk               1010 src/ccx_2.8.c        mastructcs(&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,&nboun,
nk               1032 src/ccx_2.8.c  	linstatic(co,&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
nk               1056 src/ccx_2.8.c  	nonlingeo(&co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
nk               1094 src/ccx_2.8.c  	  arpack(co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
nk               1126 src/ccx_2.8.c  	  arpackcs(co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,
nk               1156 src/ccx_2.8.c  	arpackbu(co,&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
nk               1186 src/ccx_2.8.c        dyna(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
nk               1216 src/ccx_2.8.c        steadystate(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
nk               1239 src/ccx_2.8.c        complexfreq(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
nk               1263 src/ccx_2.8.c  	electromagnetics(&co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,
nk               1302 src/ccx_2.8.c  	  for(k=0;k<nk;++k){
nk               1392 src/ccx_2.8.c        FORTRAN(restartwrite,(&istep,&nset,&nload,&nforc,&nboun,&nk,&ne,
nk                 33 src/checkconvergence.c void checkconvergence(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
nk                167 src/checkconvergence.c 		for(k=0;k<*nk;++k){t1[k]=vold[mt*k];}
nk                188 src/checkconvergence.c 	    for(i=0;i<*nk;i++){
nk                205 src/checkconvergence.c 		    NNEW(fn,double,mt**nk);
nk                206 src/checkconvergence.c 		    NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                208 src/checkconvergence.c                       nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
nk                213 src/checkconvergence.c 		    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                327 src/checkconvergence.c 	    NNEW(fn,double,mt**nk);
nk                328 src/checkconvergence.c 	    NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                329 src/checkconvergence.c 	    FORTRAN(storeresidual,(nactdof,b,fn,filab,ithermal,nk,sti,stn,
nk                335 src/checkconvergence.c 	    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                459 src/checkconvergence.c 		    NNEW(fn,double,mt**nk);
nk                460 src/checkconvergence.c 		    NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                461 src/checkconvergence.c 		    FORTRAN(storeresidual,(nactdof,b,fn,filab,ithermal,nk,
nk                467 src/checkconvergence.c 		    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                510 src/checkconvergence.c 			NNEW(fn,double,mt**nk);
nk                511 src/checkconvergence.c 			NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                513 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
nk                518 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                537 src/checkconvergence.c 			NNEW(fn,double,mt**nk);
nk                538 src/checkconvergence.c 			NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                540 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
nk                545 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                606 src/checkconvergence.c 			NNEW(fn,double,mt**nk);
nk                607 src/checkconvergence.c 			NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                609 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
nk                614 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                630 src/checkconvergence.c 			NNEW(fn,double,mt**nk);
nk                631 src/checkconvergence.c 			NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                633 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
nk                638 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
nk                 39 src/compfluid.c void compfluid(double **cop, ITG *nk, ITG **ipkonfp, ITG **konp, char **lakonfp,
nk                200 src/compfluid.c   NNEW(ipointer,ITG,3**nk);
nk                209 src/compfluid.c   mastructf(nk,kon,ipkonf,lakonf,nef,icol,jq,&mast1,&irow,
nk                250 src/compfluid.c   NNEW(iponofa,ITG,*nk);
nk                254 src/compfluid.c 			  kon,lakonf,nface,nk));
nk                297 src/compfluid.c   NNEW(v,double,5**nk);
nk                308 src/compfluid.c              xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,
nk                406 src/compfluid.c   NNEW(inum,ITG,*nk);
nk                454 src/compfluid.c              xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,
nk               1001 src/compfluid.c 	      NNEW(stn,double,6**nk);
nk               1003 src/compfluid.c 		      &nfield,nk,nef,mi,&ndim,orab,ielorienf,co,&iorienglob,
nk               1020 src/compfluid.c 	      NNEW(qfn,double,3**nk);
nk               1022 src/compfluid.c 		      &nfield,nk,nef,mi,&ndim,orab,ielorienf,co,&iorienglob,
nk               1030 src/compfluid.c 	  FORTRAN(extrapolatefluid,(nk,iponofa,inofa,inum,vfa,vold,ielfa,
nk               1040 src/compfluid.c                                  norien,nk,nef,inum,filab,vold,ielmatf,
nk               1046 src/compfluid.c 	  FORTRAN(frdfluid,(co,nk,kon,ipkonf,lakonf,nef,vold,&kode,&timef,ielmatf,
nk                 36 src/complexfreq.c void complexfreq(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp, ITG *ne, 
nk                199 src/complexfreq.c       nkg=*nk;
nk                372 src/complexfreq.c       nkg=*nk*ngraph;
nk                382 src/complexfreq.c     NNEW(inocs,ITG,*nk);
nk                386 src/complexfreq.c       for(i=0;i<*nk;i++) inocs[i]=-1;
nk                503 src/complexfreq.c       FORTRAN(mafillcorio,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
nk               1089 src/complexfreq.c   NNEW(v,double,2*mt**nk);
nk               1090 src/complexfreq.c   NNEW(fn,double,2*mt**nk);
nk               1094 src/complexfreq.c       NNEW(stn,double,12**nk);
nk               1097 src/complexfreq.c       NNEW(een,double,12**nk);
nk               1098 src/complexfreq.c   if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,2**nk);
nk               1099 src/complexfreq.c   if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,12**nk);
nk               1101 src/complexfreq.c   NNEW(inum,ITG,*nk);
nk               1106 src/complexfreq.c   NNEW(cot,double,3**nk*ngraph);
nk               1107 src/complexfreq.c   if(*ntrans>0){NNEW(inotrt,ITG,2**nk*ngraph);}
nk               1112 src/complexfreq.c     NNEW(vt,double,2*mt**nk*ngraph);
nk               1114 src/complexfreq.c     NNEW(t1t,double,*nk*ngraph);
nk               1120 src/complexfreq.c     NNEW(stnt,double,2*6**nk*ngraph);
nk               1122 src/complexfreq.c       NNEW(eent,double,2*6**nk*ngraph);
nk               1127 src/complexfreq.c     NNEW(fnt,double,2*mt**nk*ngraph);
nk               1129 src/complexfreq.c     NNEW(enernt,double,*nk*ngraph);
nk               1133 src/complexfreq.c       NNEW(emnt,double,2*6**nk*ngraph);
nk               1139 src/complexfreq.c   NNEW(inumt,ITG,*nk*ngraph);
nk               1142 src/complexfreq.c   nkt=ngraph**nk;
nk               1147 src/complexfreq.c   for(l=0;l<3**nk;l++){cot[l]=co[l];}
nk               1148 src/complexfreq.c   if(*ntrans>0){for(l=0;l<*nk;l++){inotrt[2*l]=inotr[2*l];}}
nk               1160 src/complexfreq.c     FORTRAN(rectcyl,(cot,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk               1168 src/complexfreq.c 	for(l=0;l<*nk;l++){
nk               1170 src/complexfreq.c 	    cot[3*l+i*3**nk]=cot[3*l];
nk               1171 src/complexfreq.c 	    cot[1+3*l+i*3**nk]=cot[1+3*l]+theta;
nk               1172 src/complexfreq.c 	    cot[2+3*l+i*3**nk]=cot[2+3*l];
nk               1173 src/complexfreq.c 	    if(*ntrans>0){inotrt[2*l+i*2**nk]=inotrt[2*l];}
nk               1176 src/complexfreq.c 	for(l=0;l<*nkon;l++){kont[l+i**nkon]=kon[l]+i**nk;}
nk               1285 src/complexfreq.c     DMEMSET(v,0,2*mt**nk,0.);
nk               1292 src/complexfreq.c       else {kk=*nk;kkv=mt**nk;kk6=6**nk;kkx=6*mi[0]**ne;
nk               1342 src/complexfreq.c 	results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
nk               1361 src/complexfreq.c 	results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
nk               1388 src/complexfreq.c     for(l=0;l<*nk;l++){inumt[l]=inum[l];}
nk               1392 src/complexfreq.c       FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk               1399 src/complexfreq.c       for(l=0;l<mt**nk;l++){vt[l]=v[l];}
nk               1400 src/complexfreq.c       for(l=0;l<mt**nk;l++){vt[l+mt**nk*ngraph]=v[l+mt**nk];}}
nk               1402 src/complexfreq.c       for(l=0;l<*nk;l++){t1t[l]=t1[l];};
nk               1404 src/complexfreq.c 	for(l=0;l<6**nk;l++){stnt[l]=stn[l];}
nk               1405 src/complexfreq.c 	for(l=0;l<6**nk;l++){stnt[l+6**nk*ngraph]=stn[l+6**nk];}}
nk               1407 src/complexfreq.c 	for(l=0;l<6**nk;l++){eent[l]=een[l];};
nk               1408 src/complexfreq.c 	for(l=0;l<6**nk;l++){eent[l+6**nk*ngraph]=een[l+6**nk];}}
nk               1410 src/complexfreq.c       for(l=0;l<mt**nk;l++){fnt[l]=fn[l];}
nk               1411 src/complexfreq.c       for(l=0;l<mt**nk;l++){fnt[l+mt**nk*ngraph]=fn[l+mt**nk];}}
nk               1413 src/complexfreq.c       for(l=0;l<*nk;l++){enernt[l]=enern[l];};
nk               1418 src/complexfreq.c 	for(l=0;l<6**nk;l++){emnt[l]=emn[l];};
nk               1419 src/complexfreq.c 	for(l=0;l<6**nk;l++){emnt[l+6**nk*ngraph]=emn[l+6**nk];}}
nk               1432 src/complexfreq.c 	  for(l=0;l<*nk;l++){inumt[l+i**nk]=inum[l];}
nk               1439 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1450 src/complexfreq.c 		      vt[l+mt**nk*i]=v[l];
nk               1457 src/complexfreq.c 		  vt[l+mt**nk*i]=ctl*v[l]-stl*v[l+mt**nk];
nk               1468 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1479 src/complexfreq.c 		      vt[l+mt**nk*(i+ngraph)]=v[l+mt**nk];
nk               1486 src/complexfreq.c 		  vt[l+mt**nk*(i+ngraph)]=stl*v[l]+ctl*v[l+mt**nk];
nk               1493 src/complexfreq.c 	    for(l=0;l<*nk;l++){
nk               1494 src/complexfreq.c 	      if(inocs[l]==jj) t1t[l+*nk*i]=t1[l];
nk               1499 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1510 src/complexfreq.c 		      stnt[l+6**nk*i]=stn[l];
nk               1517 src/complexfreq.c 		  stnt[l+6**nk*i]=ctl*stn[l]-stl*stn[l+6**nk];
nk               1527 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1538 src/complexfreq.c 		      stnt[l+6**nk*(i+ngraph)]=stn[l+6**nk];
nk               1545 src/complexfreq.c 		  stnt[l+6**nk*(i+ngraph)]=stl*stn[l]+ctl*stn[l+6**nk];
nk               1552 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1563 src/complexfreq.c 		      eent[l+6**nk*i]=een[l];
nk               1570 src/complexfreq.c 		  eent[l+6**nk*i]=ctl*een[l]-stl*een[l+6**nk];
nk               1580 src/complexfreq.c 	      for(l1=0;l1<*nk;l1++){
nk               1591 src/complexfreq.c 				  eent[l+6**nk*(i+ngraph)]=een[l+6**nk];
nk               1598 src/complexfreq.c 			  eent[l+6**nk*(i+ngraph)]=stl*een[l]+ctl*een[l+6**nk];
nk               1605 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1616 src/complexfreq.c 		      emnt[l+6**nk*i]=emn[l];
nk               1623 src/complexfreq.c 		  emnt[l+6**nk*i]=ctl*emn[l]-stl*emn[l+6**nk];
nk               1633 src/complexfreq.c 	      for(l1=0;l1<*nk;l1++){
nk               1644 src/complexfreq.c 				  emnt[l+6**nk*(i+ngraph)]=emn[l+6**nk];
nk               1651 src/complexfreq.c 			  emnt[l+6**nk*(i+ngraph)]=stl*emn[l]+ctl*emn[l+6**nk];
nk               1658 src/complexfreq.c 	    for(l1=0;l1<*nk;l1++){
nk               1669 src/complexfreq.c 		      fnt[l+mt**nk*i]=fn[l];
nk               1676 src/complexfreq.c 		  fnt[l+mt**nk*i]=ctl*fn[l]-stl*fn[l+mt**nk];
nk               1686 src/complexfreq.c 	      for(l1=0;l1<*nk;l1++){
nk               1697 src/complexfreq.c 				  fnt[l+mt**nk*(i+ngraph)]=fn[l+mt**nk];
nk               1704 src/complexfreq.c 			  fnt[l+mt**nk*(i+ngraph)]=stl*fn[l]+ctl*fn[l+mt**nk];
nk               1711 src/complexfreq.c 	    for(l=0;l<*nk;l++){
nk               1712 src/complexfreq.c 	      if(inocs[l]==jj) enernt[l+*nk*i]=0.;
nk               1723 src/complexfreq.c       FORTRAN(rectcylvi,(cot,&vt[mt**nk*ngraph],&fnt[mt**nk*ngraph],
nk               1724 src/complexfreq.c                          &stnt[6**nk*ngraph],qfnt,&eent[6**nk*ngraph],
nk               1725 src/complexfreq.c                          cs,&nkt,&icntrl,t,filab,&imag,mi,&emnt[6**nk*ngraph]));
nk               1736 src/complexfreq.c 	  vimag=vt[l+mt**nk*ngraph];
nk               1757 src/complexfreq.c 	  stnimag=stnt[l+6**nk*ngraph];
nk                 36 src/dyna.c     void dyna(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp, ITG *ne, 
nk                230 src/dyna.c       NNEW(imddof,ITG,*nk*3);
nk                231 src/dyna.c       NNEW(imdnode,ITG,*nk);
nk                244 src/dyna.c       if((nmdnode>*nk/2)&&(!cyclicsymmetry)){
nk                268 src/dyna.c           NNEW(iponoel,ITG,*nk);
nk                292 src/dyna.c       if((nmdnode>*nk/2)&&(!cyclicsymmetry)){
nk                310 src/dyna.c           nkg=*nk;
nk                430 src/dyna.c           nkg=*nk*ngraph;
nk                435 src/dyna.c           RENEW(co,double,3**nk*nsectors);
nk                440 src/dyna.c           for(i=3**nk;i<3**nk*nsectors;i++){co[i]=0.;}
nk                442 src/dyna.c     	  RENEW(t0,double,*nk*nsectors);
nk                443 src/dyna.c     	  RENEW(t1old,double,*nk*nsectors);
nk                444 src/dyna.c     	  RENEW(t1,double,*nk*nsectors);
nk                445 src/dyna.c     	  if(*nam>0) RENEW(iamt1,ITG,*nk*nsectors);
nk                447 src/dyna.c           RENEW(nactdof,ITG,mt**nk*nsectors);
nk                448 src/dyna.c           if(*ntrans>0) RENEW(inotr,ITG,2**nk*nsectors);
nk                541 src/dyna.c           RENEW(imdnode,ITG,*nk*nsectors);
nk                547 src/dyna.c           expand(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                571 src/dyna.c           NNEW(vold,double,mt**nk);
nk                573 src/dyna.c           NNEW(veold,double,mt**nk);
nk                652 src/dyna.c           FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                698 src/dyna.c       inicont(nk,&ncont,ntie,tieset,nset,set,istartset,iendset,ialset,&itietri,
nk                755 src/dyna.c           NNEW(vini,double,mt**nk);
nk                815 src/dyna.c         for(i=0;i<*nk;i++){
nk                835 src/dyna.c         for(i=0;i<*nk;i++){
nk                868 src/dyna.c       if(*ithermal==1) {NNEW(t1act,double,*nk);
nk                869 src/dyna.c           NNEW(t1diff,double,*nk);}
nk                900 src/dyna.c       NNEW(v,double,mt**nk);
nk                901 src/dyna.c       NNEW(fn,double,mt**nk);
nk                902 src/dyna.c       NNEW(stn,double,6**nk);
nk                903 src/dyna.c       NNEW(inum,ITG,*nk);
nk                905 src/dyna.c       FORTRAN(createinum,(ipkon,inum,kon,lakon,nk,ne,&cflag[0],nelemload,
nk                908 src/dyna.c       if(*ithermal>1) {NNEW(qfn,double,3**nk);
nk                911 src/dyna.c       if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                912 src/dyna.c       if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                913 src/dyna.c       if(strcmp1(&filab[609],"SDV ")==0) NNEW(xstaten,double,*nstate_**nk);
nk                914 src/dyna.c       if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                946 src/dyna.c     	      nbody,xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,
nk                962 src/dyna.c       FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1215 src/dyna.c     	    memcpy(&vini[0],&vold[0],sizeof(double)*mt**nk);
nk               1268 src/dyna.c     	      nbody,xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,
nk               1281 src/dyna.c     	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1293 src/dyna.c     	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1384 src/dyna.c     	        nbody,xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,
nk               1397 src/dyna.c     		  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1409 src/dyna.c     		  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1694 src/dyna.c           FORTRAN(dynresults,(nk,v,ithermal,nactdof,vold,nodeboun,
nk               1703 src/dyna.c     	  dynacont(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk               1778 src/dyna.c     	results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk               1818 src/dyna.c     	    NNEW(ipneigh,ITG,*nk);
nk               1839 src/dyna.c     	      for(i=1;i<mt**nk;i=i+mt){
nk               1841 src/dyna.c     	      for(i=2;i<mt**nk;i=i+mt){
nk               1843 src/dyna.c     	      for(i=3;i<mt**nk;i=i+mt){
nk               1846 src/dyna.c     	      for(i=0;i<mt**nk;i=i+mt){
nk               1893 src/dyna.c           FORTRAN(dynresults,(nk,v,ithermal,nactdof,vold,nodeboun,
nk               1920 src/dyna.c         for(k=0;k<*nk;++k){t1[k]=t1act[k];}
nk               1991 src/dyna.c           *nk/=nsectors;
nk               2008 src/dyna.c           RENEW(co,double,3**nk);
nk               2009 src/dyna.c           if((*ithermal!=0)&&(*nam>0)) RENEW(iamt1,ITG,*nk);
nk               2010 src/dyna.c           RENEW(nactdof,ITG,mt**nk);
nk               2011 src/dyna.c           if(*ntrans>0) RENEW(inotr,ITG,2**nk);
nk               2046 src/dyna.c           RENEW(vold,double,mt**nk);
nk               2047 src/dyna.c           RENEW(veold,double,mt**nk);
nk               2076 src/dyna.c     	      nodeforc[2*i]-=*nk*nodeforc[2*i+1];
nk               2078 src/dyna.c     	      nodeforc[2*i]-=*nk*(nodeforc[2*i+1]-nsectors);
nk                 38 src/dynacont.c void dynacont(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne, 
nk                140 src/dynacont.c   if(*ithermal==1) NNEW(t1diff,double,*nk);
nk                264 src/dynacont.c 	  memcpy(&vold[0],&vini[0],sizeof(double)*mt**nk);
nk                315 src/dynacont.c 		nbody,xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,
nk                328 src/dynacont.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk                340 src/dynacont.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk                687 src/dynacont.c       FORTRAN(dynresults,(nk,v,ithermal,nactdof,vold,nodeboun,
nk                 36 src/electromagnetics.c void electromagnetics(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, 
nk                179 src/electromagnetics.c   NNEW(nactdofinv,ITG,mt**nk);
nk                180 src/electromagnetics.c   NNEW(nodorig,ITG,*nk);
nk                181 src/electromagnetics.c   FORTRAN(gennactdofinv,(nactdof,nactdofinv,nk,mi,nodorig,
nk                195 src/electromagnetics.c   NNEW(vini,double,mt**nk);
nk                233 src/electromagnetics.c       NNEW(nacteq,ITG,4**nk);
nk                234 src/electromagnetics.c       NNEW(nactdog,ITG,4**nk);
nk                235 src/electromagnetics.c       NNEW(v,double,mt**nk);
nk                246 src/electromagnetics.c 	  NNEW(inocs,ITG,*nk);
nk                247 src/electromagnetics.c 	  radcyc(nk,kon,ipkon,lakon,ne,cs,mcs,nkon,ialset,istartset,
nk                305 src/electromagnetics.c       NNEW(veini,double,mt**nk);
nk                368 src/electromagnetics.c       NNEW(t0,double,*nk);
nk                370 src/electromagnetics.c   if(strcmp1(&filab[3567],"ECD ")==0){NNEW(qfn,double,3**nk);}
nk                378 src/electromagnetics.c 	      t1old,t1,t1act,iamt1,nk,amta,
nk                398 src/electromagnetics.c 	     labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk                407 src/electromagnetics.c   NNEW(nactdofinv,ITG,mt**nk);
nk                408 src/electromagnetics.c   NNEW(nodorig,ITG,*nk);
nk                409 src/electromagnetics.c   FORTRAN(gennactdofinv,(nactdof,nactdofinv,nk,mi,nodorig,
nk                415 src/electromagnetics.c   NNEW(fn,double,mt**nk);
nk                416 src/electromagnetics.c   NNEW(inum,ITG,*nk);
nk                417 src/electromagnetics.c   NNEW(v,double,mt**nk);
nk                419 src/electromagnetics.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                443 src/electromagnetics.c   FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounold,nboun,
nk                467 src/electromagnetics.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,
nk                524 src/electromagnetics.c   NNEW(v,double,mt**nk);
nk                525 src/electromagnetics.c   memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk                527 src/electromagnetics.c   NNEW(fn,double,mt**nk);
nk                529 src/electromagnetics.c   NNEW(inum,ITG,*nk);
nk                530 src/electromagnetics.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                548 src/electromagnetics.c   memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk                578 src/electromagnetics.c   FORTRAN(createinum,(ipkon,inum,kon,lakon,nk,ne,&cflag[0],nelemload,
nk                584 src/electromagnetics.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,kode,filab,een,
nk                593 src/electromagnetics.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,
nk                610 src/electromagnetics.c   NNEW(inomat,ITG,*nk);
nk                617 src/electromagnetics.c   NNEW(h0,double,3**nk);
nk                619 src/electromagnetics.c   biosav(ipkon,kon,lakon,ne,co,qfx,h0,mi,inomat,nk);
nk                641 src/electromagnetics.c       NNEW(ipoface,ITG,*nk);
nk                652 src/electromagnetics.c 	      tietol,nalset,nk,nset,iactive));
nk                667 src/electromagnetics.c        ithermal,co,vold,&icfd,nmpc_,mi,nk,istep,ikboun,nboun,
nk                736 src/electromagnetics.c 	     labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk                773 src/electromagnetics.c       NNEW(t1ini,double,*nk);
nk                774 src/electromagnetics.c       NNEW(t1act,double,*nk);
nk                775 src/electromagnetics.c       for(k=0;k<*nk;++k){t1act[k]=t1old[k];}
nk                791 src/electromagnetics.c 	  memcpy(&vini[0],&vold[0],sizeof(double)*mt**nk);
nk                795 src/electromagnetics.c 	      for(k=0;k<*nk;++k){t1ini[k]=t1act[k];}
nk                801 src/electromagnetics.c 	      for(k=0;k<mt**nk;++k){
nk                851 src/electromagnetics.c       for(i=0;i<3**nk;i++){h0[i]/=h0scale;}
nk                854 src/electromagnetics.c 	      t1old,t1,t1act,iamt1,nk,amta,
nk                862 src/electromagnetics.c       for(i=0;i<3**nk;i++){h0[i]*=h0scale;}
nk                870 src/electromagnetics.c        cs,mcs,inocs,&ntrit,nk,fenv,istep,&dtime,ttime,&time,ilboun,
nk                881 src/electromagnetics.c       NNEW(v,double,mt**nk);
nk                884 src/electromagnetics.c 	  prediction_em(uam,nmethod,&bet,&gam,&dtime,ithermal,nk,veold,v,
nk                888 src/electromagnetics.c       NNEW(fn,double,mt**nk);
nk                896 src/electromagnetics.c       NNEW(inum,ITG,*nk);
nk                897 src/electromagnetics.c       resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                920 src/electromagnetics.c       memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk                958 src/electromagnetics.c 	      for(i=0;i<3**nk;i++){h0[i]/=h0scale;}
nk                962 src/electromagnetics.c 	       t1old,t1,t1act,iamt1,nk,amta,
nk                970 src/electromagnetics.c 	      for(i=0;i<3**nk;i++){h0[i]*=h0scale;}
nk                978 src/electromagnetics.c                 cs,mcs,inocs,&ntrit,nk,fenv,istep,&dtime,ttime,&time,ilboun,
nk                999 src/electromagnetics.c 	      for(k=0;k<*nk;++k){t1act[k]=vold[mt*k];}
nk               1007 src/electromagnetics.c 	  FORTRAN(mafillem,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
nk               1032 src/electromagnetics.c 	    vini,&dtime,accold,nk,adb,aub,jq,irow,nzl,alpha,fextini,fini,
nk               1044 src/electromagnetics.c 	      NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk               1047 src/electromagnetics.c 	      frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk               1168 src/electromagnetics.c 	  NNEW(v,double,mt**nk);
nk               1169 src/electromagnetics.c 	  memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               1171 src/electromagnetics.c 	  NNEW(fn,double,mt**nk);
nk               1173 src/electromagnetics.c 	  NNEW(inum,ITG,*nk);
nk               1174 src/electromagnetics.c 	  resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk               1209 src/electromagnetics.c 	  memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               1216 src/electromagnetics.c 	      vini,&dtime,accold,nk,adb,aub,jq,irow,nzl,alpha,fextini,fini,
nk               1267 src/electromagnetics.c 	  checkconvergence(co,nk,kon,ipkon,lakon,ne,stn,nmethod, 
nk               1293 src/electromagnetics.c 	  memcpy(&vold[0],&vini[0],sizeof(double)*mt**nk);
nk               1297 src/electromagnetics.c 	      for(k=0;k<*nk;++k){t1act[k]=t1ini[k];}
nk               1303 src/electromagnetics.c 	      for(k=0;k<mt**nk;++k){
nk               1322 src/electromagnetics.c 	  NNEW(v,double,mt**nk);
nk               1323 src/electromagnetics.c 	  NNEW(fn,double,mt**nk);
nk               1324 src/electromagnetics.c 	  if(*ithermal>1) NNEW(qfn,double,3**nk);
nk               1326 src/electromagnetics.c              (strcmp1(&filab[3828],"EMFB")==0)) NNEW(stn,double,6**nk);
nk               1327 src/electromagnetics.c 	  NNEW(inum,ITG,*nk);
nk               1329 src/electromagnetics.c 	  memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               1334 src/electromagnetics.c 	  resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk               1351 src/electromagnetics.c 	  memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               1360 src/electromagnetics.c 	      frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
nk               1369 src/electromagnetics.c 	      frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk               1397 src/electromagnetics.c       NNEW(v,double,mt**nk);
nk               1398 src/electromagnetics.c       NNEW(fn,double,mt**nk);
nk               1399 src/electromagnetics.c       if(*ithermal>1) NNEW(qfn,double,3**nk);
nk               1400 src/electromagnetics.c       if(strcmp1(&filab[3741],"EMF ")==0) NNEW(stn,double,6**nk);
nk               1401 src/electromagnetics.c       NNEW(inum,ITG,*nk);
nk               1403 src/electromagnetics.c       memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               1407 src/electromagnetics.c       resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk               1424 src/electromagnetics.c       memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               1433 src/electromagnetics.c 	  frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
nk               1442 src/electromagnetics.c 	  frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk               1481 src/electromagnetics.c       for(k=0;k<mt**nk;++k){veold[k]=0.;}
nk               1515 src/electromagnetics.c       for(k=0;k<*nk;++k){t1old[k]=t1act[k];}
nk               1516 src/electromagnetics.c       for(k=0;k<*nk;++k){vold[mt*k]=t1act[k];}
nk               1519 src/electromagnetics.c       for(k=0;k<*nk;++k){t1[k]=vold[mt*k];}
nk               1521 src/electromagnetics.c 	  for(k=0;k<*nk;++k){t1old[k]=t1act[k];}
nk                 31 src/exo.c      void exo(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
nk                 86 src/exo.c        nkcoords = *nk;
nk                 97 src/exo.c          for(i=0;i<*nk;i++){
nk                104 src/exo.c          nout=*nk;
nk                120 src/exo.c          for(i=0;i<*nk;i++){
nk                131 src/exo.c          for(i=0;i<*nk;i++){
nk                149 src/exo.c      	       &num_ns, &num_ss, &num_es, &num_fs, NULL, exoid, (int) 0, nk);
nk                529 src/exo.c      	       &num_ns, &num_ss, &num_es, &num_fs, node_map_inv, exoid, (int) 1, nk);
nk                619 src/exo.c      	  exovector(&v[*nk*(mi[1]+1)],&iset,ntrans,filab,&nkcoords,inum,inotr,
nk                720 src/exo.c      	  exoselect(&stn[6**nk],stn,&iset,&nkcoords,inum,istartset,iendset,
nk                773 src/exo.c      	  exoselect(&een[6**nk],een,&iset,&nkcoords,inum,istartset,iendset,
nk                823 src/exo.c      	  exoselect(&emn[6**nk],een,&iset,&nkcoords,inum,istartset,iendset,
nk                863 src/exo.c      	  exovector(&fn[*nk*(mi[1]+1)],&iset,ntrans,filab,&nkcoords,inum,inotr,
nk               1066 src/exo.c      	FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
nk               1102 src/exo.c                FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
nk               1126 src/exo.c      	FORTRAN(errorestimator,(stx,stn,ipkon,inum,kon,lakon,nk,ne,
nk               1159 src/exo.c      	  FORTRAN(errorestimator,(&stx[6*mi[0]**ne],stn,ipkon,inum,kon,lakon,nk,ne,
nk               1183 src/exo.c      	FORTRAN(errorestimator,(qfx,qfn,ipkon,inum,kon,lakon,nk,ne,
nk               1213 src/exo.c      	  FORTRAN(errorestimator,(&qfx[3*mi[0]**ne],qfn,ipkon,inum,kon,lakon,nk,ne,
nk                 20 src/exo.h      void exo(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
nk                 38 src/exo.h      		int exoid, int store, ITG *nk);
nk                 40 src/exo.h      ITG exoset_check(ITG n, ITG *node_map_inv, ITG *nk, int *dropped, int *unidentified);
nk                 30 src/exosetfind.c 		int exoid, int store, ITG *nk){
nk                 73 src/exosetfind.c 	      set_nums[n++]=exoset_check(k-1, node_map_inv, nk, &dropped, &unidentified);
nk                 79 src/exosetfind.c 	    set_nums[n++]=exoset_check(gen, node_map_inv, nk, &dropped, &unidentified);
nk                 85 src/exosetfind.c 	  set_nums[1+n++]=exoset_check(ialset[e]-2, node_map_inv, nk, &dropped, &unidentified);
nk                 87 src/exosetfind.c 	    set_nums[-1+n++]=exoset_check(ialset[e]-3, node_map_inv, nk, &dropped, &unidentified);
nk                 91 src/exosetfind.c 	set_nums[n++]=exoset_check(ialset[s]-1, node_map_inv, nk, &dropped, &unidentified);
nk                 92 src/exosetfind.c 	set_nums[n++]=exoset_check(ialset[e]-1, node_map_inv, nk, &dropped, &unidentified);
nk                 94 src/exosetfind.c 	set_nums[n++]=exoset_check(ialset[e]-1, node_map_inv, nk, &dropped, &unidentified);
nk                188 src/exosetfind.c ITG exoset_check(ITG n, ITG *node_map_inv, ITG *nk, int *dropped, int *unidentified){
nk                191 src/exosetfind.c   if (n<=*nk){
nk                 33 src/expand.c   void expand(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
nk                106 src/expand.c       NNEW(v,double,2*mt**nk);
nk                107 src/expand.c       NNEW(vt,double,mt**nk**nsectors);
nk                109 src/expand.c       NNEW(fn,double,2*mt**nk);
nk                110 src/expand.c       NNEW(stn,double,12**nk);
nk                111 src/expand.c       NNEW(inum,ITG,*nk);
nk                122 src/expand.c       nkt=*nsectors**nk;
nk                126 src/expand.c       NNEW(inocs,ITG,*nk);
nk                130 src/expand.c   	for(i=0;i<*nk;i++) inocs[i]=-1;
nk                204 src/expand.c       NNEW(iznode,ITG,*nk);
nk                215 src/expand.c   	    imdnode[i**nmdnode+j]=imdnode[j]+i**nk;
nk                243 src/expand.c       FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filabt,&imag,mi,emn));
nk                251 src/expand.c   	    for(l=0;l<*nk;l++){
nk                253 src/expand.c   		    co[3*l+i*3**nk]=co[3*l];
nk                254 src/expand.c   		    co[1+3*l+i*3**nk]=co[1+3*l]+theta;
nk                255 src/expand.c   		    co[2+3*l+i*3**nk]=co[2+3*l];
nk                256 src/expand.c   		    if(*ntrans>0) inotr[2*l+i*2**nk]=inotr[2*l];
nk                259 src/expand.c   	    for(l=0;l<*nkon;l++){kon[l+i**nkon]=kon[l]+i**nk;}
nk                285 src/expand.c   	lint=i*mt**nk;
nk                286 src/expand.c   	for(j=0;j<mt**nk;j++){
nk                300 src/expand.c   	    nodeboun[i**nboun+j]=nodeboun[j]+i**nk;
nk                305 src/expand.c   	    ikboun[i**nboun+j]=ikboun[j]+8*i**nk;
nk                320 src/expand.c   		nactdof,izdof,nzdof,mi,&iload,iznode,&nznode,nk,
nk                368 src/expand.c   		nodeforc[2*i]+=*nk*nodeforc[2*i+1];
nk                370 src/expand.c   		nodeforc[2*i]+=*nk*(nodeforc[2*i+1]-(*nsectors));
nk                374 src/expand.c   		    nzdof,&iforc,iznode,&nznode,nk,imdnode,nmdnode,xforc));
nk                406 src/expand.c   		nodeforc[2*i]+=*nk*nodeforc[2*i+1];
nk                408 src/expand.c   		nodeforc[2*i]+=*nk*(nodeforc[2*i+1]-(*nsectors));
nk                431 src/expand.c   			nzdof,&iforc,iznode,&nznode,nk,imdnode,nmdnode,xforc));
nk                465 src/expand.c   	DMEMSET(v,0,2*mt**nk,0.);
nk                472 src/expand.c   	    else {kk=*nk;kkv=mt**nk;kk6=6**nk;}
nk                518 src/expand.c   	    results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
nk                542 src/expand.c   	if(*nherm!=1)NNEW(vti,double,mt**nk**nsectors);
nk                546 src/expand.c   	FORTRAN(rectcylexp,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filabt,&imag,mi,
nk                547 src/expand.c   			    iznode,&nznode,nsectors,nk,emn));
nk                556 src/expand.c   		if(*nherm!=1)vti[l]=v[l+mt**nk];
nk                583 src/expand.c   				    vt[l+mt**nk*i]=v[l];
nk                584 src/expand.c   				    if(*nherm!=1)vti[l+mt**nk*i]=v[l+mt**nk];
nk                591 src/expand.c   			    vt[l+mt**nk*i]=ctl*v[l]-stl*v[l+mt**nk];
nk                592 src/expand.c   			    if(*nherm!=1)vti[l+mt**nk*i]=stl*v[l]+ctl*v[l+mt**nk];
nk                602 src/expand.c   			    &imag,mi,iznode,&nznode,nsectors,nk,emn));
nk                613 src/expand.c   		    idof=nactdof[mt*(k**nk+i)+j1]-1;
nk                619 src/expand.c   				    zdof[(long long)j**nzdof+id-1]=vt[k*mt**nk+mt*i+j1];
nk                621 src/expand.c   				    zdof[(long long)2*j**nzdof+id-1]=vt[k*mt**nk+mt*i+j1];
nk                622 src/expand.c   				    zdof[(long long)(2*j+1)**nzdof+id-1]=vti[k*mt**nk+mt*i+j1];
nk                702 src/expand.c   	    ikmpc[*nmpc]=ikmpc[j]+8*i**nk;
nk                735 src/expand.c   		nodempc[3**mpcend]=nodeleft+i**nk;
nk                741 src/expand.c   		    nodempc[3**mpcend]=noderight[k]+ileft**nk;
nk                762 src/expand.c   		    nodenew=node+i**nk;
nk                770 src/expand.c   				    nodenew=node+ileft**nk;
nk                842 src/expand.c   	    lint=i**nk;
nk                843 src/expand.c   	    for(j=0;j<*nk;j++){
nk                851 src/expand.c   		lint=i**nk;
nk                852 src/expand.c   		for(j=0;j<*nk;j++){
nk                895 src/expand.c   		  ialset[tint-1]=(ialset[istartset[j]-1+k]!=-1)?ialset[istartset[j]-1+k]+*nk*l:-1;
nk                932 src/expand.c       *nk=nkt;
nk                 27 src/frd.c      void frd(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
nk                 92 src/frd.c          exo(co,nk,kon,ipkon,lakon,ne0,v,stn,inum,nmethod,kode,
nk                127 src/frd.c            for(i=0;i<*nk;i++){
nk                134 src/frd.c            nout=*nk;
nk                222 src/frd.c            for(i=0;i<*nk;i++){
nk                235 src/frd.c            for(i=0;i<*nk;i++){
nk                251 src/frd.c          nkcoords=*nk;
nk                731 src/frd.c            frdvector(&v[*nk*mt],&iset,ntrans,filab,&nkcoords,inum,m1,inotr,
nk                847 src/frd.c            frdselect(&stn[6**nk],stn,&iset,&nkcoords,inum,m1,istartset,iendset,
nk                945 src/frd.c            frdselect(&een[6**nk],een,&iset,&nkcoords,inum,m1,istartset,iendset,
nk                996 src/frd.c            frdselect(&emn[6**nk],een,&iset,&nkcoords,inum,m1,istartset,iendset,
nk               1021 src/frd.c          if((iaxial==1)&&(strcmp1(&filab[352],"I")==0)){for(i=0;i<*nk;i++){fn[1+i*mt]*=180.;fn[2+i*mt]*=180.;fn[3+i*mt]*=180.;}}
nk               1024 src/frd.c          if((iaxial==1)&&(strcmp1(&filab[352],"I")==0)){for(i=0;i<*nk;i++){fn[1+i*mt]/=180.;fn[2+i*mt]/=180.;fn[3+i*mt]/=180.;}}
nk               1042 src/frd.c            frdvector(&fn[*nk*mt],&iset,ntrans,filab,&nkcoords,inum,m1,inotr,
nk               1177 src/frd.c      	  frdselect(&cdn[6**nk],cdn,&iset,&nkcoords,inum,m1,istartset,iendset,
nk               1323 src/frd.c          FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
nk               1356 src/frd.c            FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
nk               1382 src/frd.c          FORTRAN(errorestimator,(stx,stn,ipkon,inum,kon,lakon,nk,ne,
nk               1415 src/frd.c            FORTRAN(errorestimator,(&stx[6*mi[0]**ne],stn,ipkon,inum,kon,lakon,nk,ne,
nk               1441 src/frd.c          FORTRAN(errorestimator,(qfx,qfn,ipkon,inum,kon,lakon,nk,ne,
nk               1473 src/frd.c            FORTRAN(errorestimator,(&qfx[3*mi[0]**ne],qfn,ipkon,inum,kon,lakon,nk,ne,
nk               1530 src/frd.c          if((iaxial==1)&&(strcmp1(&filab[1222],"I")==0)){for(i=0;i<*nk;i++)v[1+i*mt]*=180.;}
nk               1534 src/frd.c          if((iaxial==1)&&(strcmp1(&filab[1222],"I")==0)){for(i=0;i<*nk;i++)v[1+i*mt]/=180.;}
nk                 24 src/frdcyc.c   void frdcyc(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,double *v,
nk                 62 src/frdcyc.c     NNEW(inocs,ITG,*nk);
nk                 66 src/frdcyc.c       for(i=0;i<*nk;i++) inocs[i]=-1;
nk                115 src/frdcyc.c     NNEW(cot,double,3**nk*ngraph);
nk                116 src/frdcyc.c     if(*ntrans>0)NNEW(inotrt,ITG,2**nk*ngraph);
nk                120 src/frdcyc.c       NNEW(vt,double,mt**nk*ngraph);
nk                122 src/frdcyc.c       NNEW(t1t,double,*nk*ngraph);
nk                125 src/frdcyc.c       NNEW(stnt,double,6**nk*ngraph);
nk                127 src/frdcyc.c       NNEW(eent,double,6**nk*ngraph);
nk                129 src/frdcyc.c       NNEW(fnt,double,mt**nk*ngraph);
nk                131 src/frdcyc.c       NNEW(epnt,double,*nk*ngraph);
nk                133 src/frdcyc.c       NNEW(enernt,double,*nk*ngraph);
nk                135 src/frdcyc.c       NNEW(xstatent,double,*nstate_**nk*ngraph);
nk                137 src/frdcyc.c       NNEW(qfnt,double,3**nk*ngraph);
nk                142 src/frdcyc.c       NNEW(emnt,double,6**nk*ngraph);
nk                155 src/frdcyc.c     NNEW(inumt,ITG,*nk*ngraph);
nk                157 src/frdcyc.c     nkt=ngraph**nk;
nk                163 src/frdcyc.c     for(l=0;l<3**nk;l++){cot[l]=co[l];}
nk                164 src/frdcyc.c     if(*ntrans>0){for(l=0;l<*nk;l++){inotrt[2*l]=inotr[2*l];}}
nk                179 src/frdcyc.c     FORTRAN(rectcyl,(cot,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk                187 src/frdcyc.c         for(l=0;l<*nk;l++){
nk                189 src/frdcyc.c   	  cot[3*l+i*3**nk]=cot[3*l];
nk                190 src/frdcyc.c   	  cot[1+3*l+i*3**nk]=cot[1+3*l]+theta;
nk                191 src/frdcyc.c   	  cot[2+3*l+i*3**nk]=cot[2+3*l];
nk                196 src/frdcyc.c   	  for(l=0;l<*nk;l++){
nk                198 src/frdcyc.c   		  inotrt[2*l+i*2**nk]=inotrt[2*l];
nk                205 src/frdcyc.c           for(l=0;l<*nkon;l++){kont[l+i**nkon]=kon[l]+i**nk;}
nk                230 src/frdcyc.c     for(l=0;l<*nk;l++){inumt[l]=inum[l];}
nk                234 src/frdcyc.c     FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk                238 src/frdcyc.c       for(l=0;l<mt**nk;l++){vt[l]=v[l];};
nk                240 src/frdcyc.c       for(l=0;l<*nk;l++){t1t[l]=t1[l];};
nk                242 src/frdcyc.c       for(l=0;l<6**nk;l++){stnt[l]=stn[l];};
nk                244 src/frdcyc.c       for(l=0;l<6**nk;l++){eent[l]=een[l];};
nk                246 src/frdcyc.c       for(l=0;l<mt**nk;l++){fnt[l]=fn[l];};
nk                248 src/frdcyc.c       for(l=0;l<*nk;l++){epnt[l]=epn[l];};
nk                250 src/frdcyc.c       for(l=0;l<*nk;l++){enernt[l]=enern[l];};
nk                252 src/frdcyc.c       for(l=0;l<*nstate_**nk;l++){xstatent[l]=xstaten[l];};
nk                254 src/frdcyc.c       for(l=0;l<3**nk;l++){qfnt[l]=qfn[l];};
nk                259 src/frdcyc.c       for(l=0;l<6**nk;l++){emnt[l]=emn[l];};
nk                265 src/frdcyc.c         for(l=0;l<*nk;l++){inumt[l+i**nk]=inum[l];}
nk                269 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                273 src/frdcyc.c                 vt[l+mt**nk*i]=v[l];
nk                280 src/frdcyc.c           for(l=0;l<*nk;l++){
nk                281 src/frdcyc.c             if(inocs[l]==jj) t1t[l+*nk*i]=t1[l];
nk                286 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                290 src/frdcyc.c                 stnt[l+6**nk*i]=stn[l];
nk                297 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                301 src/frdcyc.c                 eent[l+6**nk*i]=een[l];
nk                308 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                312 src/frdcyc.c                 fnt[l+mt**nk*i]=fn[l];
nk                319 src/frdcyc.c           for(l=0;l<*nk;l++){
nk                320 src/frdcyc.c             if(inocs[l]==jj) epnt[l+*nk*i]=epn[l];
nk                325 src/frdcyc.c           for(l=0;l<*nk;l++){
nk                326 src/frdcyc.c             if(inocs[l]==jj) enernt[l+*nk*i]=enern[l];
nk                331 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                335 src/frdcyc.c                 xstatent[l+*nstate_**nk*i]=xstaten[l];
nk                342 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                346 src/frdcyc.c                 qfnt[l+3**nk*i]=qfn[l];
nk                353 src/frdcyc.c           for(l1=0;l1<*nk;l1++){
nk                357 src/frdcyc.c                 emnt[l+6**nk*i]=emn[l];
nk                 32 src/getglobalresults.c                        ITG *iamforc,double *xforc,ITG *ithermal,ITG *nk,
nk                117 src/getglobalresults.c 	for(i=0;i<*nk;i++){
nk                 24 src/inicont.c  void inicont(ITG * nk,ITG *ncont, ITG *ntie, char *tieset, ITG *nset, char *set,
nk                 72 src/inicont.c  	  ialset,itietri,lakon,ipkon,kon,koncont,kind1,kind2,co,nk));
nk                 74 src/inicont.c    NNEW(ipe,ITG,*nk);
nk                 76 src/inicont.c    DMEMSET(ipe,0,*nk,0.);
nk                 89 src/inicont.c    NNEW(ipoface,ITG,*nk);
nk                 98 src/inicont.c    NNEW(iponoels,ITG,*nk);
nk                111 src/inicont.c         iponoels,inoels,&ifreenoels,mortar,ipoface,nodface,nk,
nk                 35 src/linstatic.c void linstatic(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
nk                116 src/linstatic.c                    ithermal,nk,t1,iamt1);
nk                128 src/linstatic.c     NNEW(t1act,double,*nk);
nk                129 src/linstatic.c     for(k=0;k<*nk;++k){t1act[k]=t1old[k];}
nk                151 src/linstatic.c 	      t1old,t1,t1act,iamt1,nk,amta,
nk                168 src/linstatic.c   NNEW(v,double,mt**nk);
nk                169 src/linstatic.c   NNEW(fn,double,mt**nk);
nk                171 src/linstatic.c   NNEW(inum,ITG,*nk);
nk                172 src/linstatic.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                207 src/linstatic.c   FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounact,nboun,
nk                262 src/linstatic.c     NNEW(iretain,ITG,*nk);
nk                263 src/linstatic.c     NNEW(noderetain,ITG,*nk);
nk                264 src/linstatic.c     NNEW(ndirretain,ITG,*nk);
nk                310 src/linstatic.c 	  NNEW(v,double,mt**nk);
nk                311 src/linstatic.c 	  NNEW(fn,double,mt**nk);
nk                312 src/linstatic.c 	  NNEW(stn,double,6**nk);
nk                313 src/linstatic.c 	  NNEW(inum,ITG,*nk);
nk                316 src/linstatic.c 	  if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                317 src/linstatic.c 	  if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                318 src/linstatic.c 	  if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                329 src/linstatic.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                428 src/linstatic.c     NNEW(v,double,mt**nk);
nk                429 src/linstatic.c     NNEW(fn,double,mt**nk);
nk                430 src/linstatic.c     NNEW(stn,double,6**nk);
nk                431 src/linstatic.c     NNEW(inum,ITG,*nk);
nk                434 src/linstatic.c     if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                435 src/linstatic.c     if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                436 src/linstatic.c     if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                443 src/linstatic.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                464 src/linstatic.c     memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk                479 src/linstatic.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,t1act,
nk                489 src/linstatic.c 	    NNEW(ipneigh,ITG,*nk);
nk                492 src/linstatic.c 	frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                515 src/linstatic.c     NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk                518 src/linstatic.c 	NNEW(ipneigh,ITG,*nk);
nk                521 src/linstatic.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
nk                542 src/linstatic.c     for(k=0;k<*nk;++k){t1old[k]=t1act[k];}
nk                543 src/linstatic.c     for(k=0;k<*nk;++k){vold[mt*k]=t1act[k];}
nk                 27 src/mastruct.c void mastruct(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
nk                 57 src/mastruct.c   for(i=0;i<mt**nk;++i){nactdof[i]=0;}
nk                176 src/mastruct.c   for(i=0;i<*nk;++i){
nk                190 src/mastruct.c   for(i=0;i<*nk;++i){
nk                215 src/mastruct.c     for(i=0;i<4**nk;++i){ipointer[i]=0;}
nk                559 src/mastruct.c 	    for(j=0;j<*nk;j++){
nk                 27 src/mastructcs.c void mastructcs(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
nk                 58 src/mastructcs.c   for(i=0;i<mt**nk;++i){nactdof[i]=0;}
nk                128 src/mastructcs.c   for(i=0;i<*nk;++i){
nk                145 src/mastructcs.c   for(i=0;i<6**nk;++i){ipointer[i]=0;}
nk                 27 src/mastructem.c void mastructem(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
nk                 56 src/mastructem.c   for(i=0;i<mt**nk;++i){nactdof[i]=0;}
nk                177 src/mastructem.c   for(i=0;i<*nk;++i){
nk                191 src/mastructem.c   for(i=0;i<*nk;++i){
nk                213 src/mastructem.c     for(i=0;i<4**nk;++i){ipointer[i]=0;}
nk                525 src/mastructem.c 	    for(j=0;j<*nk;j++){
nk                 27 src/mastructf.c void mastructf(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
nk                 28 src/matrixstorage.c                 double *trab, double *co, ITG *nk, ITG *nactdof,
nk                 73 src/matrixstorage.c     for(i=0;i<*nk;i++){
nk                220 src/matrixstorage.c     for (i=0;i<*nk;i++){
nk                444 src/matrixstorage.c     for (i=0;i<*nk;i++){
nk                547 src/matrixstorage.c   NNEW(nactdofinv,ITG,mt**nk);
nk                548 src/matrixstorage.c   NNEW(nodorig,ITG,*nk);
nk                549 src/matrixstorage.c   FORTRAN(gennactdofinv,(nactdof,nactdofinv,nk,mi,nodorig,
nk                 20 src/matrixstorage.h                    ITG *ntrans,ITG *inotr,double *trab,double *co,ITG *nk,
nk                 36 src/nonlingeo.c void nonlingeo(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp,
nk                251 src/nonlingeo.c                        ithermal,nk,t1,iamt1);
nk                256 src/nonlingeo.c   NNEW(nactdofinv,ITG,mt**nk);
nk                257 src/nonlingeo.c   NNEW(nodorig,ITG,*nk);
nk                258 src/nonlingeo.c   FORTRAN(gennactdofinv,(nactdof,nactdofinv,nk,mi,nodorig,
nk                272 src/nonlingeo.c   NNEW(vini,double,mt**nk);
nk                317 src/nonlingeo.c       NNEW(nacteq,ITG,4**nk);
nk                318 src/nonlingeo.c       NNEW(nactdog,ITG,4**nk);
nk                319 src/nonlingeo.c       NNEW(v,double,mt**nk);
nk                330 src/nonlingeo.c 	  NNEW(inocs,ITG,*nk);
nk                331 src/nonlingeo.c 	  radcyc(nk,kon,ipkon,lakon,ne,cs,mcs,nkon,ialset,istartset,
nk                389 src/nonlingeo.c       NNEW(ipoface,ITG,*nk);
nk                423 src/nonlingeo.c   inicont(nk,&ncont,ntie,tieset,nset,set,istartset,iendset,ialset,&itietri,
nk                489 src/nonlingeo.c       NNEW(t1ini,double,*nk);
nk                490 src/nonlingeo.c       NNEW(t1act,double,*nk);
nk                491 src/nonlingeo.c       for(k=0;k<*nk;++k){t1act[k]=t1old[k];}
nk                511 src/nonlingeo.c       NNEW(veini,double,mt**nk);
nk                512 src/nonlingeo.c       NNEW(accini,double,mt**nk);
nk                592 src/nonlingeo.c 	      t1old,t1,t1act,iamt1,nk,amta,
nk                633 src/nonlingeo.c 	      labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk                647 src/nonlingeo.c       NNEW(fn,double,mt**nk);
nk                650 src/nonlingeo.c       NNEW(inum,ITG,*nk);
nk                651 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,stx,
nk                695 src/nonlingeo.c       FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounold,nboun,
nk                719 src/nonlingeo.c 	      NNEW(ipneigh,ITG,*nk);
nk                723 src/nonlingeo.c 	  frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
nk                814 src/nonlingeo.c       NNEW(v,double,mt**nk);
nk                815 src/nonlingeo.c       memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk                818 src/nonlingeo.c       NNEW(fn,double,mt**nk);
nk                820 src/nonlingeo.c       NNEW(inum,ITG,*nk);
nk                822 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk                842 src/nonlingeo.c       memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk                881 src/nonlingeo.c 	  memcpy(&vini[0],&vold[0],sizeof(double)*mt**nk);
nk                885 src/nonlingeo.c 	      for(k=0;k<*nk;++k){t1ini[k]=t1act[k];}
nk                891 src/nonlingeo.c 	      for(k=0;k<mt**nk;++k){
nk                944 src/nonlingeo.c 	      t1old,t1,t1act,iamt1,nk,amta,
nk                958 src/nonlingeo.c        cs,mcs,inocs,&ntrit,nk,fenv,istep,&dtime,ttime,&time,ilboun,
nk                968 src/nonlingeo.c 	  compfluid(&co,nk,&ipkonf,&kon,&lakonf,&sideface,
nk                991 src/nonlingeo.c                            xforc,ithermal,nk,t1,iamt1);
nk               1162 src/nonlingeo.c 	  labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk               1171 src/nonlingeo.c       NNEW(nactdofinv,ITG,mt**nk);
nk               1172 src/nonlingeo.c       NNEW(nodorig,ITG,*nk);
nk               1173 src/nonlingeo.c       FORTRAN(gennactdofinv,(nactdof,nactdofinv,nk,mi,nodorig,
nk               1200 src/nonlingeo.c       NNEW(v,double,mt**nk);
nk               1203 src/nonlingeo.c       prediction(uam,nmethod,&bet,&gam,&dtime,ithermal,nk,veold,accold,v,
nk               1206 src/nonlingeo.c       NNEW(fn,double,mt**nk);
nk               1250 src/nonlingeo.c 	  NNEW(inum,ITG,*nk);
nk               1251 src/nonlingeo.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk               1278 src/nonlingeo.c 	  NNEW(inum,ITG,*nk);
nk               1279 src/nonlingeo.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk               1298 src/nonlingeo.c 	  memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               1338 src/nonlingeo.c 	      t1old,t1,t1act,iamt1,nk,amta,
nk               1352 src/nonlingeo.c              cs,mcs,inocs,&ntrit,nk,fenv,istep,&dtime,ttime,&time,ilboun,
nk               1420 src/nonlingeo.c 	      for(k=0;k<*nk;++k){t1act[k]=vold[mt*k];}
nk               1441 src/nonlingeo.c 		labmpc,nk,&memmpc_,&icascade,&maxlenmpc,
nk               1450 src/nonlingeo.c 	      NNEW(nactdofinv,ITG,mt**nk);
nk               1451 src/nonlingeo.c 	      NNEW(nodorig,ITG,*nk);
nk               1452 src/nonlingeo.c 	      FORTRAN(gennactdofinv,(nactdof,nactdofinv,nk,mi,nodorig,
nk               1456 src/nonlingeo.c 	      NNEW(v,double,mt**nk);
nk               1458 src/nonlingeo.c 	      NNEW(fn,double,mt**nk);
nk               1460 src/nonlingeo.c 	      memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               1463 src/nonlingeo.c 	      NNEW(inum,ITG,*nk);
nk               1464 src/nonlingeo.c 	      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk               1500 src/nonlingeo.c 	FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounact,nboun,
nk               1523 src/nonlingeo.c 	    FORTRAN(mafillsmas,(co,nk,kon,ipkon,lakon,ne,nodeboun,
nk               1557 src/nonlingeo.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1595 src/nonlingeo.c 	  FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
nk               1614 src/nonlingeo.c 	 vini,&dtime,accold,nk,adb,aub,jq,irow,nzl,alpha,fextini,fini,
nk               1626 src/nonlingeo.c 	  NNEW(inum,ITG,*nk);for(k=0;k<*nk;k++) inum[k]=1;
nk               1629 src/nonlingeo.c 	      NNEW(ipneigh,ITG,*nk);
nk               1633 src/nonlingeo.c 	  frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
nk               1818 src/nonlingeo.c       NNEW(v,double,mt**nk);
nk               1819 src/nonlingeo.c       memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               1822 src/nonlingeo.c       NNEW(fn,double,mt**nk);
nk               1824 src/nonlingeo.c       NNEW(inum,ITG,*nk);
nk               1825 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk               1859 src/nonlingeo.c       memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               1879 src/nonlingeo.c 	 vini,&dtime,accold,nk,adb,aub,jq,irow,nzl,alpha,fextini,fini,
nk               1988 src/nonlingeo.c       checkconvergence(co,nk,kon,ipkon,lakon,ne,stn,nmethod, 
nk               2019 src/nonlingeo.c       memcpy(&vold[0],&vini[0],sizeof(double)*mt**nk);
nk               2023 src/nonlingeo.c 	for(k=0;k<*nk;++k){t1act[k]=t1ini[k];}
nk               2029 src/nonlingeo.c 	for(k=0;k<mt**nk;++k){
nk               2105 src/nonlingeo.c       NNEW(v,double,mt**nk);
nk               2106 src/nonlingeo.c       NNEW(fn,double,mt**nk);
nk               2107 src/nonlingeo.c       NNEW(stn,double,6**nk);
nk               2108 src/nonlingeo.c       if(*ithermal>1) NNEW(qfn,double,3**nk);
nk               2109 src/nonlingeo.c       NNEW(inum,ITG,*nk);
nk               2112 src/nonlingeo.c       if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk               2113 src/nonlingeo.c       if(strcmp1(&filab[435],"PEEQ")==0) NNEW(epn,double,*nk);
nk               2114 src/nonlingeo.c       if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk               2115 src/nonlingeo.c       if(strcmp1(&filab[609],"SDV ")==0) NNEW(xstaten,double,*nstate_**nk);
nk               2116 src/nonlingeo.c       if(strcmp1(&filab[2175],"CONT")==0) NNEW(cdn,double,6**nk);
nk               2117 src/nonlingeo.c       if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk               2119 src/nonlingeo.c       memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               2127 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk               2145 src/nonlingeo.c       memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               2155 src/nonlingeo.c 	frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
nk               2168 src/nonlingeo.c 	      NNEW(ipneigh,ITG,*nk);
nk               2172 src/nonlingeo.c 	  frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
nk               2208 src/nonlingeo.c     NNEW(v,double,mt**nk);
nk               2209 src/nonlingeo.c     NNEW(fn,double,mt**nk);
nk               2210 src/nonlingeo.c     NNEW(stn,double,6**nk);
nk               2211 src/nonlingeo.c     if(*ithermal>1) NNEW(qfn,double,3**nk);
nk               2212 src/nonlingeo.c     NNEW(inum,ITG,*nk);
nk               2215 src/nonlingeo.c     if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk               2216 src/nonlingeo.c     if(strcmp1(&filab[435],"PEEQ")==0) NNEW(epn,double,*nk);
nk               2217 src/nonlingeo.c     if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk               2218 src/nonlingeo.c     if(strcmp1(&filab[609],"SDV ")==0) NNEW(xstaten,double,*nstate_**nk);
nk               2219 src/nonlingeo.c     if(strcmp1(&filab[2175],"CONT")==0) NNEW(cdn,double,6**nk);
nk               2220 src/nonlingeo.c     if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk               2222 src/nonlingeo.c     memcpy(&v[0],&vold[0],sizeof(double)*mt**nk);
nk               2229 src/nonlingeo.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
nk               2247 src/nonlingeo.c     memcpy(&vold[0],&v[0],sizeof(double)*mt**nk);
nk               2257 src/nonlingeo.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
nk               2271 src/nonlingeo.c 	    NNEW(ipneigh,ITG,*nk);
nk               2275 src/nonlingeo.c 	frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
nk               2305 src/nonlingeo.c     for(k=0;k<mt**nk;++k){veold[k]=0.;}
nk               2339 src/nonlingeo.c     for(k=0;k<*nk;++k){t1old[k]=t1act[k];}
nk               2340 src/nonlingeo.c     for(k=0;k<*nk;++k){vold[mt*k]=t1act[k];}
nk               2343 src/nonlingeo.c     for(k=0;k<*nk;++k){t1[k]=vold[mt*k];}
nk               2345 src/nonlingeo.c 	for(k=0;k<*nk;++k){t1old[k]=t1act[k];}
nk                 35 src/prediction.c                ITG *ithermal, ITG *nk, double *veold, double *accold, double *v,
nk                 49 src/prediction.c 	    for(k=0;k<*nk;++k){
nk                 59 src/prediction.c 	    for(k=0;k<*nk;++k){
nk                 64 src/prediction.c 	    for(k=0;k<*nk;++k){
nk                 71 src/prediction.c 	    for(k=0;k<*nk;++k){
nk                 94 src/prediction.c 		for(k=0;k<*nk;++k){
nk                106 src/prediction.c 		for(k=0;k<*nk;++k){
nk                111 src/prediction.c 		for(k=0;k<*nk;++k){
nk                120 src/prediction.c 		for(k=0;k<*nk;++k){
nk                139 src/prediction.c 	    for(k=0;k<*nk;++k){
nk                 35 src/prediction_em.c                ITG *ithermal, ITG *nk, double *veold, double *v,
nk                 51 src/prediction_em.c 	for(k=0;k<*nk;++k){
nk                 68 src/prediction_em.c 	    for(k=0;k<*nk;++k){
nk                 84 src/prediction_em.c 	    for(k=0;k<*nk;++k){
nk                 24 src/radcyc.c   void radcyc(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
nk                 56 src/radcyc.c       for(i=0;i<*nk;i++) inocs[i]=-1;
nk                122 src/radcyc.c         kontri[4*j]=node1+k**nk;
nk                123 src/radcyc.c         kontri[4*j+1]=node2+k**nk;
nk                124 src/radcyc.c         kontri[4*j+2]=node3+k**nk;
nk                129 src/radcyc.c     RENEW(co,double,3**nk*nsegments);
nk                130 src/radcyc.c     RENEW(vold,double,mt**nk*nsegments);
nk                131 src/radcyc.c     nkt=*nk*nsegments;
nk                137 src/radcyc.c     FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
nk                145 src/radcyc.c         for(l=0;l<*nk;l++){
nk                147 src/radcyc.c   	  co[3*l+i*3**nk]=co[3*l];
nk                148 src/radcyc.c   	  co[1+3*l+i*3**nk]=co[1+3*l]-theta;
nk                149 src/radcyc.c   	  co[2+3*l+i*3**nk]=co[2+3*l];
nk                 58 src/radflowload.c                  ITG *ntrit,ITG *nk, double *fenv,ITG *istep,double *dtime,
nk                 96 src/radflowload.c   NNEW(v,double,mt**nk);
nk                106 src/radflowload.c 	      for(i=0;i<mt**nk;i++) v[i]=vold[i];
nk                396 src/radflowload.c 				cs,mcs,inocs,ntrit,nk,mi,&sidemean));
nk                 37 src/readinput.c       icntrl,nload,nforc,nboun,nk,ne,nmpc,nalset,nmat,ntmat,npmat,
nk                209 src/readinput.c             FORTRAN(restartshort,(nset,&nload,&nbody,&nforc,&nboun,&nk,
nk                 27 src/remastruct.c               char *labmpc, ITG *nk,
nk                 60 src/remastruct.c 	    labmpc,nk,memmpc_,icascade,maxlenmpc,
nk                 69 src/remastruct.c     NNEW(ipointer,ITG,mt**nk);
nk                 72 src/remastruct.c     mastruct(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,ipompc,
nk                 27 src/remastructar.c               char *labmpc, ITG *nk,
nk                 57 src/remastructar.c 	    labmpc,nk,memmpc_,icascade,maxlenmpc,
nk                 70 src/remastructar.c 	NNEW(ipointer,ITG,mt**nk);
nk                 72 src/remastructar.c 	mastruct(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,ipompc,
nk                 79 src/remastructar.c       NNEW(ipointer,ITG,8**nk);
nk                 81 src/remastructar.c       mastructcs(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,
nk                 27 src/remastructem.c               char *labmpc, ITG *nk,
nk                 60 src/remastructem.c 	    labmpc,nk,memmpc_,icascade,maxlenmpc,
nk                 69 src/remastructem.c     NNEW(ipointer,ITG,mt**nk);
nk                 72 src/remastructem.c     mastructem(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,ipompc,
nk                 42 src/results.c  void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
nk                158 src/results.c      FORTRAN(resultsini,(nk,v,ithermal,filab,iperturb,f,fn,
nk                169 src/results.c  	FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
nk                178 src/results.c  	NNEW(fn1,double,num_cpus*mt**nk);
nk                196 src/results.c          iener1=iener;ikin1=ikin;mt1=mt;nk1=nk;ne01=ne0;thicke1=thicke;
nk                215 src/results.c  	for(i=0;i<mt**nk;i++){
nk                218 src/results.c  	for(i=0;i<mt**nk;i++){
nk                220 src/results.c  		fn[i]+=fn1[i+j*mt**nk];
nk                264 src/results.c  	NNEW(fn1,double,num_cpus*mt**nk);
nk                279 src/results.c          mt1=mt;nk1=nk;shcon1=shcon;nshcon1=nshcon;ithermal1=ithermal;
nk                299 src/results.c  	for(i=0;i<*nk;i++){
nk                302 src/results.c  	for(i=0;i<*nk;i++){
nk                304 src/results.c  		fn[mt*i]+=fn1[mt*i+j*mt**nk];
nk                332 src/results.c      FORTRAN(resultsforc,(nk,f,fn,nactdof,ipompc,nodempc,
nk                339 src/results.c      FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                 42 src/resultsinduction.c void resultsinduction(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
nk                159 src/resultsinduction.c     FORTRAN(resultsini_em,(nk,v,ithermal,filab,iperturb,f,fn,
nk                176 src/resultsinduction.c 	FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
nk                215 src/resultsinduction.c 	NNEW(fn1,double,num_cpus*mt**nk);
nk                230 src/resultsinduction.c         mt1=mt;nk1=nk;shcon1=shcon;nshcon1=nshcon;ithermal1=ithermal;
nk                250 src/resultsinduction.c 	for(i=0;i<*nk;i++){
nk                253 src/resultsinduction.c 	for(i=0;i<*nk;i++){
nk                255 src/resultsinduction.c 		fn[mt*i]+=fn1[mt*i+j*mt**nk];
nk                283 src/resultsinduction.c     FORTRAN(resultsforc_em,(nk,f,fn,nactdof,ipompc,nodempc,
nk                290 src/resultsinduction.c     FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
nk                 37 src/steadystate.c void steadystate(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp, ITG *ne, 
nk                201 src/steadystate.c   NNEW(imddof,ITG,*nk*3);
nk                202 src/steadystate.c   NNEW(imdnode,ITG,*nk);
nk                215 src/steadystate.c   if((nmdnode>*nk/2)&&(!cyclicsymmetry)){
nk                240 src/steadystate.c       NNEW(iponoel,ITG,*nk);
nk                264 src/steadystate.c   if((nmdnode>*nk/2)&&(!cyclicsymmetry)){
nk                281 src/steadystate.c       nkg=*nk;
nk                472 src/steadystate.c       nkg=*nk*ngraph;
nk                477 src/steadystate.c       RENEW(co,double,3**nk*nsectors);
nk                482 src/steadystate.c       for(i=3**nk;i<3**nk*nsectors;i++){co[i]=0.;}
nk                484 src/steadystate.c 	  RENEW(t0,double,*nk*nsectors);
nk                485 src/steadystate.c 	  RENEW(t1old,double,*nk*nsectors);
nk                486 src/steadystate.c 	  RENEW(t1,double,*nk*nsectors);
nk                487 src/steadystate.c 	  if(*nam>0) RENEW(iamt1,ITG,*nk*nsectors);
nk                489 src/steadystate.c       RENEW(nactdof,ITG,mt**nk*nsectors);
nk                490 src/steadystate.c       if(*ntrans>0) RENEW(inotr,ITG,2**nk*nsectors);
nk                535 src/steadystate.c       RENEW(imdnode,ITG,*nk*nsectors);
nk                541 src/steadystate.c       expand(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
nk                565 src/steadystate.c       NNEW(vold,double,mt**nk);
nk                567 src/steadystate.c       NNEW(veold,double,mt**nk);
nk                613 src/steadystate.c   NNEW(inum,ITG,*nk);
nk                615 src/steadystate.c   FORTRAN(createinum,(ipkon,inum,kon,lakon,nk,ne,&cflag[0],nelemload,
nk                669 src/steadystate.c 	  NNEW(fn,double,mt**nk);
nk                670 src/steadystate.c 	  NNEW(stnr,double,6**nk);
nk                671 src/steadystate.c 	  NNEW(stni,double,6**nk);
nk                675 src/steadystate.c 	  if(*ithermal>1) {NNEW(qfn,double,3**nk);
nk                678 src/steadystate.c 	  if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk                679 src/steadystate.c 	  if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk                680 src/steadystate.c 	  if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk                840 src/steadystate.c 	      if(nodeboun[i]>*nk){
nk                842 src/steadystate.c 		  nodeboun[i]=nodeboun[i]-*nk;
nk                865 src/steadystate.c       if(*ithermal==1) NNEW(t1act,double,*nk);
nk                912 src/steadystate.c       NNEW(vr,double,mt**nk);
nk                913 src/steadystate.c       NNEW(vi,double,mt**nk);
nk                967 src/steadystate.c 	      FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
nk               1016 src/steadystate.c 	       nbody,xbodyold,xbodyact,t1old,t1,t1act,iamt1,nk,amta,namta,
nk               1047 src/steadystate.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1192 src/steadystate.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               1512 src/steadystate.c 	      DMEMSET(vr,0,mt**nk,0.);
nk               1572 src/steadystate.c 	      DMEMSET(vi,0,mt**nk,0.);
nk               1588 src/steadystate.c 	      FORTRAN(dynresults,(nk,vr,ithermal,nactdof,vold,nodeboun,
nk               1593 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stnr,inum,
nk               1616 src/steadystate.c 	      FORTRAN(dynresults,(nk,vr,ithermal,nactdof,vold,nodeboun,
nk               1621 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stnr,inum,
nk               1655 src/steadystate.c 	      NNEW(ipneigh,ITG,*nk);
nk               1674 src/steadystate.c 	      FORTRAN(dynresults,(nk,vi,ithermal,nactdof,vold,nodeboun,
nk               1679 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vi,stni,inum,
nk               1702 src/steadystate.c 	      FORTRAN(dynresults,(nk,vi,ithermal,nactdof,vold,nodeboun,
nk               1707 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vi,stni,inum,
nk               1741 src/steadystate.c 	      NNEW(va,double,mt**nk);
nk               1742 src/steadystate.c 	      NNEW(vp,double,mt**nk);
nk               1746 src/steadystate.c 		      for(i=0;i<*nk;i++){
nk               1780 src/steadystate.c 		      for(i=0;i<*nk;i++){
nk               1813 src/steadystate.c 	      NNEW(stna,double,6**nk);
nk               1814 src/steadystate.c 	      NNEW(stnp,double,6**nk);
nk               1818 src/steadystate.c 		      for(i=0;i<*nk;i++){
nk               1857 src/steadystate.c 	      NNEW(ipneigh,ITG,*nk);
nk               1885 src/steadystate.c 		  nodeboun[i]=nodeboun[i]+*nk;
nk               1900 src/steadystate.c 	  for(k=0;k<*nk;++k){t1[k]=t1act[k];}
nk               1961 src/steadystate.c       if(*ithermal==1) NNEW(t1act,double,*nk);
nk               2028 src/steadystate.c 	    iamt1,nk,amta,namta,nam,ampli,&time,&reltime,ttime,&dtime,
nk               2243 src/steadystate.c 		  FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
nk               2303 src/steadystate.c 	      FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
nk               2659 src/steadystate.c 	  NNEW(vr,double,mt**nk);
nk               2662 src/steadystate.c 	      NNEW(fn,double,mt**nk);
nk               2663 src/steadystate.c 	      NNEW(stn,double,6**nk);
nk               2667 src/steadystate.c 		  NNEW(qfn,double,3**nk);
nk               2670 src/steadystate.c 	      if(strcmp1(&filab[261],"E   ")==0) NNEW(een,double,6**nk);
nk               2671 src/steadystate.c 	      if(strcmp1(&filab[522],"ENER")==0) NNEW(enern,double,*nk);
nk               2672 src/steadystate.c 	      if(strcmp1(&filab[2697],"ME  ")==0) NNEW(emn,double,6**nk);
nk               2687 src/steadystate.c 		  DMEMSET(vr,0,mt**nk,0.);
nk               2700 src/steadystate.c 	      FORTRAN(dynresults,(nk,vr,ithermal,nactdof,vold,nodeboun,
nk               2706 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stn,inum,
nk               2732 src/steadystate.c 		  NNEW(ipneigh,ITG,*nk);
nk               2798 src/steadystate.c       *nk/=nsectors;
nk               2803 src/steadystate.c       RENEW(co,double,3**nk);
nk               2805 src/steadystate.c 	  RENEW(t0,double,*nk);
nk               2806 src/steadystate.c 	  RENEW(t1old,double,*nk);
nk               2807 src/steadystate.c 	  RENEW(t1,double,*nk);
nk               2808 src/steadystate.c 	  if(*nam>0) RENEW(iamt1,ITG,*nk);
nk               2810 src/steadystate.c       RENEW(nactdof,ITG,mt**nk);
nk               2811 src/steadystate.c       if(*ntrans>0) RENEW(inotr,ITG,2**nk);
nk               2846 src/steadystate.c       RENEW(vold,double,mt**nk);
nk               2847 src/steadystate.c       RENEW(veold,double,mt**nk);
nk               2874 src/steadystate.c 	  if(nodeforc[2*i]<=*nk*nsectors){
nk               2875 src/steadystate.c 	      nodeforc[2*i]-=*nk*nodeforc[2*i+1];
nk               2877 src/steadystate.c 	      nodeforc[2*i]-=*nk*(nsectors+nodeforc[2*i+1]-1);
nk                 31 src/tiedcontact.c 	       ITG *nmpc_, ITG *mi, ITG *nk,ITG *istep,ITG *ikboun,
nk                 78 src/tiedcontact.c 	  ialset,itietri,lakon,ipkon,kon,koncont,kind1,kind2,co,nk));
nk                 82 src/tiedcontact.c   RENEW(ipe,ITG,*nk);
nk                 84 src/tiedcontact.c   DMEMSET(ipe,0,*nk,0.);