ne                117 src/CalculiX.h 	     ITG *ne, 
ne                153 src/CalculiX.h 	     ITG *ne, 
ne                185 src/CalculiX.h 	     ITG *ne, 
ne                219 src/CalculiX.h void FORTRAN(assigndomtonodes,(ITG *ne,char *lakon,ITG *ipkon,ITG *kon,
ne                232 src/CalculiX.h void biosav(ITG *ipkon,ITG *kon,char *lakon,ITG *ne,double *co,
ne                235 src/CalculiX.h void FORTRAN(biotsavart,(ITG *ipkon,ITG *kon,char *lakon,ITG *ne,double *co,
ne                267 src/CalculiX.h void FORTRAN(calcgradpel,(ITG *ne,char *lakon,ITG *ipnei,double *vfa,
ne                271 src/CalculiX.h void FORTRAN(calcgradtel,(ITG *ne,char *lakon,ITG *ipnei,double *vfa,
ne                275 src/CalculiX.h void FORTRAN(calcgradvel,(ITG *ne,char *lakon,ITG *ipnei,double *vfa,
ne                292 src/CalculiX.h              ITG *nelem,ITG *ne,double *thicke,ITG *ielmat,
ne                314 src/CalculiX.h void FORTRAN(calcpel,(ITG *ne,ITG *nactdoh,double *vel,double *b,ITG *nef));
ne                324 src/CalculiX.h void FORTRAN(calctel,(ITG *ne,ITG *nactdoh,double *vel,double *b,ITG *nef));
ne                334 src/CalculiX.h void FORTRAN(calcvel,(ITG *ne,ITG *nactdoh,double *vel,double *b,
ne                347 src/CalculiX.h 	       ITG *nkon,ITG *ne,
ne                405 src/CalculiX.h              ITG *ifaboun,ITG *ipkon,ITG *kon,char *lakon,ITG *nface,ITG *ne));
ne                411 src/CalculiX.h 	  ITG *ne,double *stn,ITG *nmethod, 
ne                488 src/CalculiX.h void complexfreq(double **cop,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,ITG *ne, 
ne                527 src/CalculiX.h 	     char *lakon,ITG *ipkon,ITG *kon,ITG *koncont,ITG *ne,
ne                553 src/CalculiX.h 			 char *lakon,ITG *ne,ITG *neq));
ne                567 src/CalculiX.h              ITG *ne,char *cflag,ITG *nelemload,ITG *nload,ITG *nodeboun,
ne                578 src/CalculiX.h        char *prset,ITG *nprint,ITG *ne,ITG *cyclicsymmetry));
ne                592 src/CalculiX.h              ITG *inomat,ITG *ne,ITG *ipkon,char *lakon,ITG *kon,
ne                645 src/CalculiX.h void dyna(double **cop,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,ITG *ne, 
ne                682 src/CalculiX.h void dynacont(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne, 
ne                766 src/CalculiX.h 	     ITG *ne, ITG *nodeboun,ITG *ndirboun,double *xboun,ITG *nboun, 
ne                801 src/CalculiX.h               ITG *kon,ITG *ne));
ne                805 src/CalculiX.h                       ITG *ielmat,ITG *ne,ITG *nload,
ne                821 src/CalculiX.h              ITG *kon,char *lakon,ITG *nk,ITG *ne,ITG *mi,ITG *ielmat,
ne                825 src/CalculiX.h 	     ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun,ITG *nboun, 
ne                859 src/CalculiX.h              ITG *kon,char *lakon,ITG *nfield,ITG *nk,ITG *ne,ITG *mi,
ne                895 src/CalculiX.h void FORTRAN(findsurface,(ITG *ipoface,ITG *nodface,ITG *ne,ITG *ipkon,ITG *kon,
ne                915 src/CalculiX.h 	      ITG *ne,ITG *ipkon,char *lakon,ITG *kon));
ne                933 src/CalculiX.h 	 ITG *ngraph,double *veold,double *ener,ITG *ne,double *cs,
ne                939 src/CalculiX.h void frdcyc(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,double *v,
ne                952 src/CalculiX.h              ITG *ne,double *v,ITG *kode,double *time,
ne                963 src/CalculiX.h              ITG *ne,double *v,double *time,ITG *ielmat,char *matname,
ne                991 src/CalculiX.h void FORTRAN(genadvecelem,(ITG *inodesd,ITG *ipkon,ITG *ne,char *lakon,
ne                994 src/CalculiX.h void FORTRAN(gencontelem_f2f,(char *tieset,ITG *ntie,ITG *itietri,ITG *ne,
ne               1005 src/CalculiX.h void FORTRAN(gencontelem_n2f,(char *tieset,ITG *ntie,ITG *itietri,ITG *ne,
ne               1028 src/CalculiX.h        ITG *mi,ITG *nodorig,ITG *ipkon,char *lakon,ITG *kon,ITG *ne));
ne               1072 src/CalculiX.h              ITG **ipep,ITG **imep,ITG *ne,ITG *ifacecount,
ne               1081 src/CalculiX.h void FORTRAN(initialcfd,(ITG *ne,ITG *ipkon,ITG *kon,char *lakon,
ne               1123 src/CalculiX.h void FORTRAN(interpolatestate,(ITG *ne,ITG *ipkon,ITG *kon,char *lakon,
ne               1148 src/CalculiX.h              double *elcon,ITG *nelcon,ITG *mi,ITG *ne,double *sti,
ne               1158 src/CalculiX.h 	     ITG *ne, 
ne               1194 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1218 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1244 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1293 src/CalculiX.h void FORTRAN(mafillp,(ITG *ne,char *lakon,ITG *ipnei,
ne               1302 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1335 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1369 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1400 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,ITG *ndirboun,double *xboun, 
ne               1451 src/CalculiX.h void mastruct(ITG *nk,ITG *kon,ITG *ipkon,char*lakon,ITG *ne,
ne               1460 src/CalculiX.h 	       ITG *ne,ITG *nodeboun,
ne               1468 src/CalculiX.h void mastructem(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne               1476 src/CalculiX.h void mastructf(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne               1492 src/CalculiX.h void FORTRAN(negativepressure,(ITG *ne0,ITG *ne,ITG *mi,double *stx,
ne               1496 src/CalculiX.h        ITG *ne,ITG *itg,ITG *ntg));
ne               1508 src/CalculiX.h 	     ITG *ne, 
ne               1558 src/CalculiX.h 		   ITG *ne,double *reltime,ITG *newstep,double *xboun,
ne               1582 src/CalculiX.h void FORTRAN(precfd,(ITG *ne,ITG *ipkon,ITG *kon,char *lakon,ITG *ipnei,
ne               1593 src/CalculiX.h         char *lakon, ITG *ipkon, ITG *kon, ITG *koncont, ITG *ne,
ne               1620 src/CalculiX.h 	     ITG *norien,ITG *nk,ITG *ne,ITG *inum,char *filab,double *vold,
ne               1631 src/CalculiX.h 	     ITG *norien,ITG *nk,ITG *ne,ITG *inum,char *filab,double *vold,
ne               1647 src/CalculiX.h void radcyc(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne               1673 src/CalculiX.h        ITG *ne,ITG *iaxial);
ne               1728 src/CalculiX.h               ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne               1741 src/CalculiX.h               ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne               1752 src/CalculiX.h               ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne               1762 src/CalculiX.h     ITG *nk,ITG *ne,ITG *nmpc,ITG *nalset,ITG *nmat,ITG *ntmat,ITG *npmat,
ne               1771 src/CalculiX.h   ITG * nboun,ITG *nk,ITG *ne,ITG *nmpc,ITG *nalset,ITG *nmat,ITG *ntmat_, 
ne               1826 src/CalculiX.h 	     ITG *ne,double *v,double *stn,ITG *inum, 
ne               1899 src/CalculiX.h void FORTRAN(resultsmech,(double *co,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne               1919 src/CalculiX.h        char *lakon,ITG *ne,double *v,double *stn,ITG *inum,double *stx,
ne               1957 src/CalculiX.h 	     ITG *ne,double *v,double *stn,ITG *inum, 
ne               1990 src/CalculiX.h void FORTRAN(rhsp,(ITG *ne,char *lakon,ITG *nactdoh,ITG *ipnei,
ne               2029 src/CalculiX.h 	       ITG *ne,ITG *ipompc,ITG *nodempc,double *coefmpc, 
ne               2088 src/CalculiX.h void steadystate(double **co,ITG *nk,ITG **kon,ITG **ipkon,char **lakon,ITG *ne, 
ne               2135 src/CalculiX.h              ITG *ne,ITG *mi,double *orab,ITG *ielorien,
ne               2249 src/CalculiX.h                         ITG *ne,ITG *nk));
ne               2278 src/CalculiX.h void FORTRAN(writecvg,(ITG *itep,ITG *iinc,ITG *iit,ITG *ne,ITG *ne0,
ne               2327 src/CalculiX.h 		      ITG *ne,double *stn,ITG *ipneigh,ITG *neigh,
ne                 42 src/arpack.c   	     ITG *ne, 
ne                159 src/arpack.c         ifreebody=*ne+1;
ne                164 src/arpack.c   	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                173 src/arpack.c     ne0=*ne;nkon0=*nkon;
ne                186 src/arpack.c             mortar,&imastop,nkon,&iponoels,&inoels,&ipe,&ime,ne,ifacecount,
ne                204 src/arpack.c   		  RENEW(ener,double,mi[0]*(*ne+*nslavs)*2);
ne                206 src/arpack.c   	      RENEW(ipkon,ITG,*ne+*nslavs);
ne                207 src/arpack.c   	      RENEW(lakon,char,8*(*ne+*nslavs));
ne                210 src/arpack.c   		  RENEW(ielorien,ITG,mi[2]*(*ne+*nslavs));
ne                211 src/arpack.c   		  for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielorien[k]=0;
ne                214 src/arpack.c   	      RENEW(ielmat,ITG,mi[2]*(*ne+*nslavs));
ne                215 src/arpack.c   	      for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielmat[k]=1;
ne                218 src/arpack.c   		  RENEW(xstate,double,*nstate_*mi[0]*(*ne+*nslavs));
ne                219 src/arpack.c   		  for(k=*nstate_*mi[0]**ne;k<*nstate_*mi[0]*(*ne+*nslavs);k++){
ne                247 src/arpack.c   			 iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne,
ne                261 src/arpack.c   		  RENEW(ener,double,mi[0]*(*ne+*nintpoint)*2);
ne                263 src/arpack.c   	      RENEW(ipkon,ITG,*ne+*nintpoint);
ne                264 src/arpack.c   	      RENEW(lakon,char,8*(*ne+*nintpoint));
ne                267 src/arpack.c   		  RENEW(ielorien,ITG,mi[2]*(*ne+*nintpoint));
ne                268 src/arpack.c   		  for(k=mi[2]**ne;k<mi[2]*(*ne+*nintpoint);k++) ielorien[k]=0;
ne                270 src/arpack.c   	      RENEW(ielmat,ITG,mi[2]*(*ne+*nintpoint));
ne                271 src/arpack.c   	      for(k=mi[2]**ne;k<mi[2]*(*ne+*nintpoint);k++) ielmat[k]=1;
ne                277 src/arpack.c   	     ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon,
ne                286 src/arpack.c   	  printf("number of contact spring elements=%" ITGFORMAT "\n\n",*ne-ne0);
ne                311 src/arpack.c   		      FORTRAN(interpolatestate,(ne,ipkon,kon,lakon,
ne                336 src/arpack.c   		 kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne                358 src/arpack.c     NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                364 src/arpack.c     NNEW(stx,double,6*mi[0]**ne);
ne                366 src/arpack.c         NNEW(qfx,double,3*mi[0]**ne);
ne                370 src/arpack.c        results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                388 src/arpack.c        results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                425 src/arpack.c       FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                443 src/arpack.c         FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                466 src/arpack.c   	  FORTRAN(mafillsmas,(co,nk,kon,ipkon,lakon,ne,nodeboun,
ne                496 src/arpack.c   	NNEW(neigh,ITG,40**ne);
ne                500 src/arpack.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                504 src/arpack.c   	    mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                547 src/arpack.c                     lakon,kon,ne,mei,nboun,nmpc,cs,mcs);
ne                821 src/arpack.c     NNEW(stx,double,6*mi[0]**ne);
ne                824 src/arpack.c         NNEW(qfx,double,3*mi[0]**ne);
ne                881 src/arpack.c         results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                901 src/arpack.c         results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                932 src/arpack.c   	NNEW(neigh,ITG,40**ne);
ne                936 src/arpack.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                940 src/arpack.c   	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                963 src/arpack.c   	  *ne=ne0;*nkon=nkon0;
ne                965 src/arpack.c   	      RENEW(ener,double,mi[0]**ne*2);
ne                967 src/arpack.c   	  RENEW(ipkon,ITG,*ne);
ne                968 src/arpack.c   	  RENEW(lakon,char,8**ne);
ne                971 src/arpack.c   	      RENEW(ielorien,ITG,mi[2]**ne);
ne                973 src/arpack.c   	  RENEW(ielmat,ITG,mi[2]**ne);
ne                 38 src/arpackbu.c 	     ITG *ne, 
ne                119 src/arpackbu.c       ifreebody=*ne+1;
ne                124 src/arpackbu.c 	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                135 src/arpackbu.c   NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                140 src/arpackbu.c   NNEW(stx,double,6*mi[0]**ne);
ne                145 src/arpackbu.c      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                163 src/arpackbu.c      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                192 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                210 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                243 src/arpackbu.c 	NNEW(neigh,ITG,40**ne);
ne                247 src/arpackbu.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                251 src/arpackbu.c 	    mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                307 src/arpackbu.c   NNEW(stx,double,6*mi[0]**ne);
ne                313 src/arpackbu.c   NNEW(eei,double,6*mi[0]**ne);
ne                315 src/arpackbu.c       NNEW(stiini,double,6*mi[0]**ne);
ne                316 src/arpackbu.c       NNEW(enerini,double,mi[0]**ne);}
ne                319 src/arpackbu.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                338 src/arpackbu.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                363 src/arpackbu.c       NNEW(neigh,ITG,40**ne);
ne                367 src/arpackbu.c   frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                371 src/arpackbu.c 	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                395 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                413 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                635 src/arpackbu.c   NNEW(stx,double,6*mi[0]**ne);
ne                644 src/arpackbu.c     for(k=0;k<6*mi[0]**ne;k++){eme[k]=0.;}
ne                654 src/arpackbu.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                673 src/arpackbu.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                695 src/arpackbu.c 	NNEW(neigh,ITG,40**ne);
ne                699 src/arpackbu.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                703 src/arpackbu.c 	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                 42 src/arpackcs.c 	     ITG *ne, 
ne                162 src/arpackcs.c       ifreebody=*ne+1;
ne                167 src/arpackcs.c 	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                176 src/arpackcs.c   ne0=*ne;nkon0=*nkon;
ne                189 src/arpackcs.c 	      mortar,&imastop,nkon,&iponoels,&inoels,&ipe,&ime,ne,ifacecount,
ne                207 src/arpackcs.c 		  RENEW(ener,double,mi[0]*(*ne+*nslavs)*2);
ne                209 src/arpackcs.c 	      RENEW(ipkon,ITG,*ne+*nslavs);
ne                210 src/arpackcs.c 	      RENEW(lakon,char,8*(*ne+*nslavs));
ne                213 src/arpackcs.c 		  RENEW(ielorien,ITG,mi[2]*(*ne+*nslavs));
ne                214 src/arpackcs.c 		  for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielorien[k]=0;
ne                217 src/arpackcs.c 	      RENEW(ielmat,ITG,mi[2]*(*ne+*nslavs));
ne                218 src/arpackcs.c 	      for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielmat[k]=1;
ne                221 src/arpackcs.c 		  RENEW(xstate,double,*nstate_*mi[0]*(*ne+*nslavs));
ne                222 src/arpackcs.c 		  for(k=*nstate_*mi[0]**ne;k<*nstate_*mi[0]*(*ne+*nslavs);k++){
ne                250 src/arpackcs.c 			 iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne,
ne                264 src/arpackcs.c 		  RENEW(ener,double,mi[0]*(*ne+*nintpoint)*2);
ne                266 src/arpackcs.c 	      RENEW(ipkon,ITG,*ne+*nintpoint);
ne                267 src/arpackcs.c 	      RENEW(lakon,char,8*(*ne+*nintpoint));
ne                270 src/arpackcs.c 		  RENEW(ielorien,ITG,mi[2]*(*ne+*nintpoint));
ne                271 src/arpackcs.c 		  for(k=mi[2]**ne;k<mi[2]*(*ne+*nintpoint);k++) ielorien[k]=0;
ne                273 src/arpackcs.c 	      RENEW(ielmat,ITG,mi[2]*(*ne+*nintpoint));
ne                274 src/arpackcs.c 	      for(k=mi[2]**ne;k<mi[2]*(*ne+*nintpoint);k++) ielmat[k]=1;
ne                280 src/arpackcs.c 		  ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon,
ne                289 src/arpackcs.c 	  printf("number of contact spring elements=%" ITGFORMAT "\n\n",*ne-ne0);
ne                314 src/arpackcs.c 		      FORTRAN(interpolatestate,(ne,ipkon,kon,lakon,
ne                339 src/arpackcs.c 		       kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne                361 src/arpackcs.c   NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                367 src/arpackcs.c   NNEW(stx,double,6*mi[0]**ne);
ne                370 src/arpackcs.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                388 src/arpackcs.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                424 src/arpackcs.c   NNEW(ielcs,ITG,*ne);
ne                428 src/arpackcs.c       for(i=0;i<*ne;i++) ielcs[i]=-1;
ne                493 src/arpackcs.c 	  FORTRAN(mafillsmcs,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                510 src/arpackcs.c 	  FORTRAN(mafillsmcs,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                532 src/arpackcs.c 	      FORTRAN(mafillsmcsas,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
ne                560 src/arpackcs.c 	      NNEW(neigh,ITG,40**ne);
ne                564 src/arpackcs.c 	  frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                568 src/arpackcs.c 	      mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                611 src/arpackcs.c 			lakon,kon,ne,mei,nboun,nmpc,cs,mcs);
ne               1042 src/arpackcs.c       NNEW(stx,double,2*6*mi[0]**ne);
ne               1075 src/arpackcs.c 	  NNEW(stxt,double,2*6*mi[0]**ne*ngraph);
ne               1078 src/arpackcs.c       NNEW(ipkont,ITG,*ne*ngraph);
ne               1079 src/arpackcs.c       for(l=0;l<*ne*ngraph;l++)ipkont[l]=-1;
ne               1080 src/arpackcs.c       NNEW(lakont,char,8**ne*ngraph);
ne               1082 src/arpackcs.c       NNEW(ielmatt,ITG,mi[2]**ne*ngraph);
ne               1085 src/arpackcs.c       net=ngraph**ne;
ne               1092 src/arpackcs.c       for(l=0;l<*ne;l++){ipkont[l]=ipkon[l];}
ne               1093 src/arpackcs.c       for(l=0;l<8**ne;l++){lakont[l]=lakon[l];}
ne               1094 src/arpackcs.c       for(l=0;l<*ne;l++){ielmatt[mi[2]*l]=ielmat[mi[2]*l];}
ne               1117 src/arpackcs.c 	      for(l=0;l<*ne;l++){
ne               1120 src/arpackcs.c 			  ipkont[l+i**ne]=ipkon[l]+i**nkon;
ne               1121 src/arpackcs.c 			  ielmatt[mi[2]*(l+i**ne)]=ielmat[mi[2]*l];
ne               1124 src/arpackcs.c 			      lakont[l2+i*8**ne]=lakon[l2];
ne               1249 src/arpackcs.c 	      else {kk=*nk;kkv=mt**nk;kk6=6**nk;kkx=6*mi[0]**ne;
ne               1299 src/arpackcs.c 		  results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
ne               1318 src/arpackcs.c 		  results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
ne               1760 src/arpackcs.c       for(l=0;l<6*mi[0]**ne;l++){stxt[l]=stx[l];}
ne               1761 src/arpackcs.c       for(l=0;l<6*mi[0]**ne;l++){stxt[l+6*mi[0]**ne*ngraph]=stx[l+6*mi[0]**ne];}}
ne               2285 src/arpackcs.c 	  *ne=ne0;*nkon=nkon0;
ne               2287 src/arpackcs.c 	      RENEW(ener,double,mi[0]**ne*2);
ne               2289 src/arpackcs.c 	  RENEW(ipkon,ITG,*ne);
ne               2290 src/arpackcs.c 	  RENEW(lakon,char,8**ne);
ne               2293 src/arpackcs.c 	      RENEW(ielorien,ITG,mi[2]**ne);
ne               2295 src/arpackcs.c 	  RENEW(ielmat,ITG,mi[2]**ne);
ne                 31 src/biosav.c   void biosav(ITG *ipkon,ITG *kon,char *lakon,ITG *ne,double *co,
ne                156 src/biosav.c       ipkon1=ipkon;kon1=kon;lakon1=lakon;ne1=ne;co1=co;qfx1=qfx;
ne                 76 src/ccx_2.8.c  ITG nk,ne,nboun,nmpc,nforc,nload,nprint,nset,nalset,nentries=15,
ne                201 src/ccx_2.8.c      ne=ne_;
ne                346 src/ccx_2.8.c  	NNEW(xstate,double,nstate_*mi[0]*(ne+nslavs));
ne                347 src/ccx_2.8.c  	nxstate=nstate_*mi[0]*(ne+nslavs);
ne                349 src/ccx_2.8.c  	NNEW(xstate,double,nstate_*mi[0]*(ne+nintpoint));
ne                350 src/ccx_2.8.c  	nxstate=nstate_*mi[0]*(ne+nintpoint);
ne                519 src/ccx_2.8.c      NNEW(sti,double,6*mi[0]*ne);
ne                520 src/ccx_2.8.c      NNEW(eme,double,6*mi[0]*ne);
ne                521 src/ccx_2.8.c      if(nener==1)NNEW(ener,double,mi[0]*ne*2);
ne                550 src/ccx_2.8.c    FORTRAN(calinput,(co,&nk,kon,ipkon,lakon,&nkon,&ne,
ne                606 src/ccx_2.8.c      NNEW(sti,double,6*mi[0]*ne);
ne                610 src/ccx_2.8.c      NNEW(eme,double,6*mi[0]*ne);
ne                615 src/ccx_2.8.c  	RENEW(prestr,double,6*mi[0]*ne);
ne                616 src/ccx_2.8.c  	for(i=0;i<ne;i++){
ne                625 src/ccx_2.8.c  	RENEW(prestr,double,6*mi[0]*ne);
ne                626 src/ccx_2.8.c  	for(i=0;i<ne;i++){
ne                665 src/ccx_2.8.c      RENEW(ipkon,ITG,ne);
ne                666 src/ccx_2.8.c      RENEW(lakon,char,8*ne);
ne                671 src/ccx_2.8.c  	RENEW(ielprop,ITG,ne);
ne                685 src/ccx_2.8.c  	RENEW(offset,double,2*ne);
ne                717 src/ccx_2.8.c      RENEW(ielmat,ITG,mi[2]*ne);
ne                722 src/ccx_2.8.c  	RENEW(xstate,double,nstate_*mi[0]*(ne+nslavs));
ne                723 src/ccx_2.8.c  	for(i=nxstate;i<nstate_*mi[0]*(ne+nslavs);i++){xstate[i]=0.;}
ne                725 src/ccx_2.8.c  	RENEW(xstate,double,nstate_*mi[0]*(ne+nintpoint));
ne                726 src/ccx_2.8.c  	for(i=nxstate;i<nstate_*mi[0]*(ne+nintpoint);i++){xstate[i]=0.;}
ne                742 src/ccx_2.8.c        RENEW(ielorien,ITG,mi[2]*ne);
ne                882 src/ccx_2.8.c      NNEW(ener,double,mi[0]*ne*2);
ne                911 src/ccx_2.8.c        ne0=ne;nkon0=nkon;nload1=nload;
ne                912 src/ccx_2.8.c        RENEW(ipkon,ITG,ne+nload);
ne                913 src/ccx_2.8.c        RENEW(lakon,char,8*(ne+nload));
ne                919 src/ccx_2.8.c        FORTRAN(genadvecelem,(inodesd,ipkon,&ne,lakon,kon,&nload,
ne                923 src/ccx_2.8.c        RENEW(ipkon,ITG,ne);
ne                924 src/ccx_2.8.c        RENEW(lakon,char,8*ne);
ne                926 src/ccx_2.8.c        RENEW(sti,double,6*mi[0]*ne);
ne                927 src/ccx_2.8.c        RENEW(eme,double,6*mi[0]*ne);
ne                928 src/ccx_2.8.c        if(iprestr>0) RENEW(prestr,double,6*mi[0]*ne);
ne                929 src/ccx_2.8.c        if(nprop>0) RENEW(ielprop,ITG,ne);
ne                930 src/ccx_2.8.c        if((ne1d!=0)||(ne2d!=0)) RENEW(offset,double,2*ne);
ne                939 src/ccx_2.8.c        if(nener==1)RENEW(ener,double,mi[0]*ne*2);
ne                940 src/ccx_2.8.c        if(norien>0)RENEW(ielorien,ITG,mi[2]*ne);
ne                941 src/ccx_2.8.c        RENEW(ielmat,ITG,mi[2]*ne);
ne                942 src/ccx_2.8.c        for(i=mi[2]*ne0;i<mi[2]*ne;i++)ielmat[i]=1;
ne                961 src/ccx_2.8.c                nelemload,sideloadtemp,&nload,&ne,&nk));
ne                997 src/ccx_2.8.c  	  mastruct(&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,&nboun,ipompc,
ne               1010 src/ccx_2.8.c        mastructcs(&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,&nboun,
ne               1032 src/ccx_2.8.c  	linstatic(co,&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
ne               1056 src/ccx_2.8.c  	nonlingeo(&co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
ne               1094 src/ccx_2.8.c  	  arpack(co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
ne               1126 src/ccx_2.8.c  	  arpackcs(co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,
ne               1156 src/ccx_2.8.c  	arpackbu(co,&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
ne               1186 src/ccx_2.8.c        dyna(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
ne               1216 src/ccx_2.8.c        steadystate(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
ne               1239 src/ccx_2.8.c        complexfreq(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
ne               1263 src/ccx_2.8.c  	electromagnetics(&co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,
ne               1360 src/ccx_2.8.c        ne=ne0;nkon=nkon0;
ne               1361 src/ccx_2.8.c        RENEW(ipkon,ITG,ne);
ne               1362 src/ccx_2.8.c        RENEW(lakon,char,8*ne);
ne               1364 src/ccx_2.8.c        RENEW(sti,double,6*mi[0]*ne);
ne               1365 src/ccx_2.8.c        RENEW(eme,double,6*mi[0]*ne);
ne               1366 src/ccx_2.8.c        if(iprestr>0) RENEW(prestr,double,6*mi[0]*ne);
ne               1367 src/ccx_2.8.c        if(nprop>0) RENEW(ielprop,ITG,ne);
ne               1368 src/ccx_2.8.c        if((ne1d!=0)||(ne2d!=0)) RENEW(offset,double,2*ne);
ne               1369 src/ccx_2.8.c        if(nener==1)RENEW(ener,double,mi[0]*ne*2);
ne               1370 src/ccx_2.8.c        if(norien>0)RENEW(ielorien,ITG,mi[2]*ne);
ne               1371 src/ccx_2.8.c        RENEW(ielmat,ITG,mi[2]*ne);
ne               1392 src/ccx_2.8.c        FORTRAN(restartwrite,(&istep,&nset,&nload,&nforc,&nboun,&nk,&ne,
ne                 34 src/checkconvergence.c 	  ITG *ne, double *stn, ITG *nmethod, 
ne                208 src/checkconvergence.c                       nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
ne                213 src/checkconvergence.c 		    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                218 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                330 src/checkconvergence.c 		ipkon,inum,kon,lakon,ne,mi,orab,ielorien,co,itg,ntg,vold,
ne                335 src/checkconvergence.c 	    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                340 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                462 src/checkconvergence.c                        sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
ne                467 src/checkconvergence.c 		    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                472 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                513 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
ne                518 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                523 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                540 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
ne                545 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                550 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                609 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
ne                614 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                619 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                633 src/checkconvergence.c                            nk,sti,stn,ipkon,inum,kon,lakon,ne,mi,orab,
ne                638 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
ne                643 src/checkconvergence.c                         &ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                 36 src/complexfreq.c void complexfreq(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp, ITG *ne, 
ne                144 src/complexfreq.c   NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                200 src/complexfreq.c       neg=*ne;
ne                373 src/complexfreq.c       neg=*ne*ngraph;
ne                383 src/complexfreq.c     NNEW(ielcs,ITG,*ne);
ne                387 src/complexfreq.c       for(i=0;i<*ne;i++) ielcs[i]=-1;
ne                487 src/complexfreq.c       ifreebody=*ne+1;
ne                488 src/complexfreq.c       NNEW(ipobody,ITG,2**ne);
ne                492 src/complexfreq.c 	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                503 src/complexfreq.c       FORTRAN(mafillcorio,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
ne               1102 src/complexfreq.c   NNEW(stx,double,2*6*mi[0]**ne);
ne               1131 src/complexfreq.c     NNEW(stxt,double,2*6*mi[0]**ne*ngraph);
ne               1136 src/complexfreq.c   NNEW(ipkont,ITG,*ne*ngraph);
ne               1137 src/complexfreq.c   for(l=0;l<*ne*ngraph;l++)ipkont[l]=-1;
ne               1138 src/complexfreq.c   NNEW(lakont,char,8**ne*ngraph);
ne               1140 src/complexfreq.c   NNEW(ielmatt,ITG,mi[2]**ne*ngraph);
ne               1143 src/complexfreq.c   net=ngraph**ne;
ne               1150 src/complexfreq.c   for(l=0;l<*ne;l++){ipkont[l]=ipkon[l];}
ne               1151 src/complexfreq.c   for(l=0;l<8**ne;l++){lakont[l]=lakon[l];}
ne               1152 src/complexfreq.c   for(l=0;l<*ne;l++){ielmatt[mi[2]*l]=ielmat[mi[2]*l];}
ne               1177 src/complexfreq.c 	for(l=0;l<*ne;l++){
ne               1180 src/complexfreq.c 	      ipkont[l+i**ne]=ipkon[l]+i**nkon;
ne               1181 src/complexfreq.c 	      ielmatt[mi[2]*(l+i**ne)]=ielmat[mi[2]*l];
ne               1184 src/complexfreq.c 		lakont[l2+i*8**ne]=lakon[l2];
ne               1280 src/complexfreq.c     NNEW(eei,double,6*mi[0]**ne);
ne               1282 src/complexfreq.c 	NNEW(stiini,double,6*mi[0]**ne);
ne               1283 src/complexfreq.c 	NNEW(enerini,double,mi[0]**ne);}
ne               1289 src/complexfreq.c       for(i=0;i<6*mi[0]**ne;i++){eme[i]=0.;}
ne               1292 src/complexfreq.c       else {kk=*nk;kkv=mt**nk;kk6=6**nk;kkx=6*mi[0]**ne;
ne               1342 src/complexfreq.c 	results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
ne               1361 src/complexfreq.c 	results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
ne               1415 src/complexfreq.c       for(l=0;l<6*mi[0]**ne;l++){stxt[l]=stx[l];}
ne               1416 src/complexfreq.c       for(l=0;l<6*mi[0]**ne;l++){stxt[l+6*mi[0]**ne*ngraph]=stx[l+6*mi[0]**ne];}}
ne                 25 src/contact.c  	     char *lakon, ITG *ipkon, ITG *kon, ITG *koncont, ITG *ne,
ne                 87 src/contact.c  	FORTRAN(gencontelem_n2f,(tieset,ntie,itietri,ne,ipkon,kon,lakon,
ne                 98 src/contact.c  	FORTRAN(gencontelem_f2f,(tieset,ntie,itietri,ne,ipkon,kon,
ne                 36 src/dyna.c     void dyna(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp, ITG *ne, 
ne                239 src/dyna.c     		       ilboun,filab,prlab,prset,nprint,ne,&cyclicsymmetry));
ne                270 src/dyna.c           FORTRAN(elementpernode,(iponoel,inoel,lakon,ipkon,kon,ne));
ne                271 src/dyna.c           NNEW(imdelem,ITG,*ne);
ne                311 src/dyna.c           neg=*ne;
ne                431 src/dyna.c           neg=*ne*ngraph;
ne                450 src/dyna.c           RENEW(ipkon,ITG,*ne*nsectors);
ne                451 src/dyna.c           for(i=*ne;i<*ne*nsectors;i++){ipkon[i]=-1;}
ne                452 src/dyna.c           RENEW(lakon,char,8**ne*nsectors);
ne                453 src/dyna.c           RENEW(ielmat,ITG,mi[2]**ne*nsectors);
ne                454 src/dyna.c           if(*norien>0) RENEW(ielorien,ITG,mi[2]**ne*nsectors);
ne                547 src/dyna.c           expand(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                574 src/dyna.c           RENEW(eme,double,6*mi[0]**ne);
ne                575 src/dyna.c           RENEW(sti,double,6*mi[0]**ne);
ne                578 src/dyna.c           if(*nener==1) RENEW(ener,double,mi[0]**ne*2);
ne                632 src/dyna.c       for(i=0;i<*ne;i++){
ne                652 src/dyna.c           FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                701 src/dyna.c               &mortar,&imastop,nkon,&iponoels,&inoels,&ipe,&ime,ne,&ifacecount,
ne                718 src/dyna.c           RENEW(ipkon,ITG,*ne+*nslavs);
ne                719 src/dyna.c           RENEW(lakon,char,8*(*ne+*nslavs));
ne                721 src/dyna.c     	RENEW(ener,double,mi[0]*(*ne+*nslavs)*2);
ne                729 src/dyna.c     	  RENEW(ielorien,ITG,mi[2]*(*ne+*nslavs));
ne                730 src/dyna.c     	  for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielorien[k]=0;
ne                732 src/dyna.c           RENEW(ielmat,ITG,mi[2]*(*ne+*nslavs));
ne                733 src/dyna.c           for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielmat[k]=1;
ne                740 src/dyna.c     	  RENEW(xstate,double,*nstate_*mi[0]*(*ne+*nslavs));
ne                741 src/dyna.c     	  for(k=*nstate_*mi[0]**ne;k<*nstate_*mi[0]*(*ne+*nslavs);k++){
ne                746 src/dyna.c     	  NNEW(xstateini,double,*nstate_*mi[0]*(*ne+*nslavs));
ne                747 src/dyna.c     	  for(k=0;k<*nstate_*mi[0]*(*ne+*nslavs);++k){
ne                764 src/dyna.c       ne0=*ne;nkon0=*nkon;
ne                874 src/dyna.c           ifreebody=*ne+1;
ne                875 src/dyna.c           NNEW(ipobody,ITG,2**ne);
ne                879 src/dyna.c     	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                905 src/dyna.c       FORTRAN(createinum,(ipkon,inum,kon,lakon,nk,ne,&cflag[0],nelemload,
ne                909 src/dyna.c           NNEW(qfx,double,3*mi[0]**ne);}
ne                916 src/dyna.c       NNEW(eei,double,6*mi[0]**ne);
ne                918 src/dyna.c         NNEW(stiini,double,6*mi[0]**ne);
ne                919 src/dyna.c         NNEW(enerini,double,mi[0]**ne);}
ne                962 src/dyna.c       FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1046 src/dyna.c     	      ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon,
ne               1059 src/dyna.c           for(i=ne0;i<*ne;i++){
ne               1186 src/dyna.c       if((intpointvar==1)) NNEW(stx,double,6*mi[0]**ne);
ne               1281 src/dyna.c     	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1293 src/dyna.c     	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1397 src/dyna.c     		  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1409 src/dyna.c     		  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1688 src/dyna.c     			 kon,ipkon,lakon,ne,&reltime,&newstep,xboun,fmpc,
ne               1703 src/dyna.c     	  dynacont(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne               1778 src/dyna.c     	results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne               1817 src/dyna.c     	    NNEW(neigh,ITG,40**ne);
ne               1826 src/dyna.c     	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne               1886 src/dyna.c     			 kon,ipkon,lakon,ne,&reltime,&newstep,xboun,fmpc,
ne               1959 src/dyna.c           *ne=ne0; *nkon=nkon0;
ne               1961 src/dyna.c     	RENEW(ener,double,mi[0]**ne*2);
ne               1963 src/dyna.c           RENEW(ipkon,ITG,*ne);
ne               1964 src/dyna.c           RENEW(lakon,char,8**ne);
ne               1967 src/dyna.c     	  RENEW(ielorien,ITG,mi[2]**ne);
ne               1969 src/dyna.c           RENEW(ielmat,ITG,mi[2]**ne);
ne               1992 src/dyna.c           *ne/=nsectors;
ne               2013 src/dyna.c           RENEW(ipkon,ITG,*ne);
ne               2014 src/dyna.c           RENEW(lakon,char,8**ne);
ne               2015 src/dyna.c           RENEW(ielmat,ITG,mi[2]**ne);
ne               2016 src/dyna.c           if(*norien>0) RENEW(ielorien,ITG,mi[2]**ne);
ne               2048 src/dyna.c           RENEW(eme,double,6*mi[0]**ne);
ne               2049 src/dyna.c           RENEW(sti,double,6*mi[0]**ne);
ne               2050 src/dyna.c           if(*nener==1)RENEW(ener,double,mi[0]**ne*2);
ne               2056 src/dyna.c     	      nelemload[2*i]-=*ne*nelemload[2*i+1];
ne               2058 src/dyna.c     	      nelemload[2*i]-=*ne*(nelemload[2*i+1]-nsectors);
ne                 38 src/dynacont.c void dynacont(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne, 
ne                155 src/dynacont.c   *ne=*ne0;*nkon=*nkon0;
ne                158 src/dynacont.c 	  ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,
ne                170 src/dynacont.c   for(i=*ne0;i<*ne;i++){
ne                328 src/dynacont.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne                340 src/dynacont.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne                681 src/dynacont.c 			 kon,ipkon,lakon,ne,reltime,&newstep,xboun,fmpc,
ne                709 src/dynacont.c       *ne=*ne0;*nkon=*nkon0;
ne                711 src/dynacont.c 	      ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,
ne                721 src/dynacont.c       for(i=*ne0;i<*ne;i++){
ne                 37 src/electromagnetics.c              char **lakonp,ITG *ne, 
ne                182 src/electromagnetics.c 			 ipkon,lakon,kon,ne));
ne                187 src/electromagnetics.c   NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                214 src/electromagnetics.c       ifreebody=*ne+1;
ne                219 src/electromagnetics.c 	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                237 src/electromagnetics.c 		       ipkon,kon,lakon,ielmat,ne,nload,
ne                247 src/electromagnetics.c 	  radcyc(nk,kon,ipkon,lakon,ne,cs,mcs,nkon,ialset,istartset,
ne                288 src/electromagnetics.c   if(*ithermal>1){NNEW(qfx,double,3*mi[0]**ne);}
ne                367 src/electromagnetics.c       NNEW(qfx,double,3*mi[0]**ne);
ne                390 src/electromagnetics.c   for(i=0;i<*ne;i++){
ne                399 src/electromagnetics.c 	     kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne                410 src/electromagnetics.c 			 ipkon,lakon,kon,ne));
ne                419 src/electromagnetics.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                431 src/electromagnetics.c 	  ne,xforc,&null,thicke,shcon,nshcon,
ne                443 src/electromagnetics.c   FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounold,nboun,
ne                467 src/electromagnetics.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,
ne                471 src/electromagnetics.c 	  mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                530 src/electromagnetics.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                543 src/electromagnetics.c 	  &reltime,ne,xforc,&null,thicke,shcon,nshcon,
ne                553 src/electromagnetics.c   for(i=0;i<*ne;i++){
ne                578 src/electromagnetics.c   FORTRAN(createinum,(ipkon,inum,kon,lakon,nk,ne,&cflag[0],nelemload,
ne                584 src/electromagnetics.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,kode,filab,een,
ne                588 src/electromagnetics.c 	     norien,stx,veold,&noddiam,set,nset,emn,thicke,jobnamec,ne,
ne                593 src/electromagnetics.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,
ne                597 src/electromagnetics.c 	  mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                614 src/electromagnetics.c   FORTRAN(assigndomtonodes,(ne,lakon,ipkon,kon,ielmat,inomat,
ne                619 src/electromagnetics.c   biosav(ipkon,kon,lakon,ne,co,qfx,h0,mi,inomat,nk);
ne                626 src/electromagnetics.c   for(i=0;i<*ne;i++){
ne                640 src/electromagnetics.c       NNEW(nodface,ITG,5*6**ne);
ne                646 src/electromagnetics.c       RENEW(ialset,ITG,*nalset+6**ne);
ne                651 src/electromagnetics.c 	      iendset,ialset,tieset,inomat,ne,ipkon,lakon,kon,ntie,
ne                737 src/electromagnetics.c 	     kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne                876 src/electromagnetics.c        jqrad,irowrad,&nzsrad,icolrad,ne,iaxial);
ne                897 src/electromagnetics.c       resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                910 src/electromagnetics.c 	      &reltime,ne,xforc,nforc,thicke,shcon,nshcon,
ne                984 src/electromagnetics.c 		iamload,jqrad,irowrad,&nzsrad,icolrad,ne,iaxial);
ne                993 src/electromagnetics.c 		  mi,ne,sti,ielmat,nelemload,sideload,xloadact,nload,nload_,
ne               1007 src/electromagnetics.c 	  FORTRAN(mafillem,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
ne               1047 src/electromagnetics.c 	      frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne               1051 src/electromagnetics.c 		  mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne               1174 src/electromagnetics.c 	  resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne               1187 src/electromagnetics.c 		  &reltime,ne,xforc,nforc,thicke,shcon,nshcon,
ne               1267 src/electromagnetics.c 	  checkconvergence(co,nk,kon,ipkon,lakon,ne,stn,nmethod, 
ne               1334 src/electromagnetics.c 	  resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne               1347 src/electromagnetics.c 		  &reltime,ne,xforc,nforc,thicke,shcon,nshcon,
ne               1355 src/electromagnetics.c 	  FORTRAN(networkinum,(ipkon,inum,kon,lakon,ne,itg,&ntg));
ne               1360 src/electromagnetics.c 	      frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
ne               1364 src/electromagnetics.c 		  norien,stx,veold,&noddiam,set,nset,emn,thicke,jobnamec,ne,
ne               1369 src/electromagnetics.c 	      frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne               1374 src/electromagnetics.c 		  mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne               1407 src/electromagnetics.c       resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne               1420 src/electromagnetics.c 	      &reltime,ne,xforc,nforc,thicke,shcon,nshcon,
ne               1428 src/electromagnetics.c       FORTRAN(networkinum,(ipkon,inum,kon,lakon,ne,itg,&ntg));
ne               1433 src/electromagnetics.c 	  frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
ne               1437 src/electromagnetics.c 		 norien,stx,veold,&noddiam,set,nset,emn,thicke,jobnamec,ne,
ne               1442 src/electromagnetics.c 	  frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne               1446 src/electromagnetics.c 	      mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                 41 src/exo.c      	 ITG *ngraph,double *veold,double *ener,ITG *ne,double *cs,
ne                195 src/exo.c            nelout=*ne;
ne                925 src/exo.c      	for(i=*ne-1;i>=0;i--){
ne                929 src/exo.c      	noutloc=*ne-i-1;
ne                932 src/exo.c      	  for(i=*ne-1;i>=0;i--){
ne                956 src/exo.c      	for(i=*ne-1;i>=0;i--){
ne                960 src/exo.c      	noutloc=*ne-i-1;
ne                963 src/exo.c      	for(i=*ne-1;i>=0;i--){
ne               1103 src/exo.c      			   &stx[6*mi[0]**ne],&mi[0]));
ne               1126 src/exo.c      	FORTRAN(errorestimator,(stx,stn,ipkon,inum,kon,lakon,nk,ne,
ne               1159 src/exo.c      	  FORTRAN(errorestimator,(&stx[6*mi[0]**ne],stn,ipkon,inum,kon,lakon,nk,ne,
ne               1183 src/exo.c      	FORTRAN(errorestimator,(qfx,qfn,ipkon,inum,kon,lakon,nk,ne,
ne               1213 src/exo.c      	  FORTRAN(errorestimator,(&qfx[3*mi[0]**ne],qfn,ipkon,inum,kon,lakon,nk,ne,
ne                 30 src/exo.h      	 ITG *ngraph,double *veold,double *ener,ITG *ne,double *cs,
ne                 34 src/expand.c   	     ITG *ne, ITG *nodeboun, ITG *ndirboun, double *xboun, ITG *nboun, 
ne                112 src/expand.c       NNEW(stx,double,6*mi[0]**ne);
ne                127 src/expand.c       NNEW(ielcs,ITG,*ne);
ne                131 src/expand.c   	for(i=0;i<*ne;i++) ielcs[i]=-1;
ne                160 src/expand.c   		  FORTRAN(calcmass,(ipkon,lakon,kon,co,mi,&nelem,ne,thicke,
ne                186 src/expand.c   		      FORTRAN(calcmass,(ipkon,lakon,kon,co,mi,&nelem,ne,thicke,
ne                260 src/expand.c   	    for(l=0;l<*ne;l++){
ne                263 src/expand.c   			ipkon[l+i**ne]=ipkon[l]+i**nkon;
ne                264 src/expand.c   			ielmat[mi[2]*(l+i**ne)]=ielmat[mi[2]*l];
ne                265 src/expand.c   			if(*norien>0) ielorien[l+i**ne]=ielorien[l];
ne                268 src/expand.c   			    lakon[l2+i*8**ne]=lakon[l2];
ne                271 src/expand.c   			ipkon[l+i**ne]=ipkon[l];
ne                314 src/expand.c   	    nelemload[2*i]+=*ne*nelemload[2*i+1];
ne                316 src/expand.c   	    nelemload[2*i]+=*ne*(nelemload[2*i+1]-(*nsectors));
ne                463 src/expand.c   	NNEW(eei,double,6*mi[0]**ne);
ne                469 src/expand.c   	    for(i=0;i<6*mi[0]**ne;i++){eme[i]=0.;}
ne                518 src/expand.c   	    results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
ne                915 src/expand.c   		  ialset[tint-1]=(ialset[istartset[j]-1+k]!=-1)?(tint2+*ne*l)*10+(ialset[istartset[j]-1+k]-(tint2*10)):-1;
ne                933 src/expand.c       (*ne)*=(*nsectors);
ne                 37 src/frd.c      	 ITG *ngraph,double *veold,double *ener,ITG *ne,double *cs,
ne                 97 src/frd.c      	ngraph,veold,ener,ne,cs,set,nset,istartset,iendset,
ne                271 src/frd.c      	nelout=*ne;
ne               1095 src/frd.c          for(i=*ne-1;i>=0;i--){
ne               1099 src/frd.c          noutloc=*ne-i-1;
ne               1112 src/frd.c          for(i=*ne-1;i>=0;i--){
ne               1187 src/frd.c          for(i=*ne-1;i>=0;i--){
ne               1191 src/frd.c          noutloc=*ne-i-1;
ne               1199 src/frd.c          for(i=*ne-1;i>=0;i--){
ne               1357 src/frd.c      		      &stx[6*mi[0]**ne],&mi[0]));
ne               1382 src/frd.c          FORTRAN(errorestimator,(stx,stn,ipkon,inum,kon,lakon,nk,ne,
ne               1415 src/frd.c            FORTRAN(errorestimator,(&stx[6*mi[0]**ne],stn,ipkon,inum,kon,lakon,nk,ne,
ne               1441 src/frd.c          FORTRAN(errorestimator,(qfx,qfn,ipkon,inum,kon,lakon,nk,ne,
ne               1473 src/frd.c            FORTRAN(errorestimator,(&qfx[3*mi[0]**ne],qfn,ipkon,inum,kon,lakon,nk,ne,
ne                 24 src/frdcyc.c   void frdcyc(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,double *v,
ne                 63 src/frdcyc.c     NNEW(ielcs,ITG,*ne);
ne                 67 src/frdcyc.c       for(i=0;i<*ne;i++) ielcs[i]=-1;
ne                140 src/frdcyc.c       NNEW(stit,double,6*mi[0]**ne*ngraph);
ne                151 src/frdcyc.c       NNEW(ipkont,ITG,*ne*ngraph);
ne                152 src/frdcyc.c       NNEW(lakont,char,8**ne*ngraph);
ne                153 src/frdcyc.c       NNEW(ielmatt,ITG,mi[2]**ne*ngraph);
ne                158 src/frdcyc.c     net0=(ngraph-1)**ne+(*ne0);
ne                159 src/frdcyc.c     net=ngraph**ne;
ne                170 src/frdcyc.c         for(l=0;l<*ne;l++){ipkont[l]=ipkon[l];}
ne                171 src/frdcyc.c         for(l=0;l<8**ne;l++){lakont[l]=lakon[l];}
ne                172 src/frdcyc.c         for(l=0;l<mi[2]**ne;l++){ielmatt[l]=ielmat[l];}
ne                206 src/frdcyc.c           for(l=0;l<*ne;l++){
ne                209 src/frdcyc.c                 ipkont[l+i**ne]=ipkon[l]+i**nkon;
ne                210 src/frdcyc.c                 ielmatt[mi[2]*(l+i**ne)]=ielmat[mi[2]*l];
ne                213 src/frdcyc.c                   lakont[l2+i*8**ne]=lakon[l2];
ne                216 src/frdcyc.c               else ipkont[l+i**ne]=-1;
ne                257 src/frdcyc.c       for(l=0;l<6*mi[0]**ne;l++){stit[l]=sti[l];};
ne                 44 src/getglobalresults.c 	*iparent=NULL,ifreefa=1,kflag=2,ne,netet,numnodes,nkon,
ne                174 src/getglobalresults.c     ne=anz[0].e;
ne                179 src/getglobalresults.c     NNEW(ielemnr,ITG,ne);
ne                180 src/getglobalresults.c     NNEW(kontyp,ITG,ne);
ne                181 src/getglobalresults.c     NNEW(ipkon,ITG,ne);
ne                182 src/getglobalresults.c     NNEW(kon,ITG,20*ne);
ne                214 src/getglobalresults.c     netet_=22*ne;
ne                227 src/getglobalresults.c     for(i=0;i<ne;i++){
ne                547 src/getglobalresults.c     NNEW(integerglob,ITG,5+3*ne+nkon+8*netet);
ne                551 src/getglobalresults.c     integerglob[2]=ne;
ne                558 src/getglobalresults.c     memcpy(&integerglob[7*netet+5],&kontyp[0],sizeof(ITG)*ne);
ne                559 src/getglobalresults.c     memcpy(&integerglob[ne+7*netet+5],&ipkon[0],sizeof(ITG)*ne);
ne                560 src/getglobalresults.c     memcpy(&integerglob[2*ne+7*netet+5],&kon[0],sizeof(ITG)*nkon);
ne                561 src/getglobalresults.c     memcpy(&integerglob[nkon+2*ne+7*netet+5],&iparent[0],sizeof(ITG)*netet);
ne                562 src/getglobalresults.c     memcpy(&integerglob[nkon+2*ne+8*netet+5],&ielemnr[0],sizeof(ITG)*ne);
ne                 31 src/inicont.c  	       ITG **ipep, ITG **imep, ITG *ne, ITG *ifacecount,
ne                 90 src/inicont.c    NNEW(nodface,ITG,5*6**ne);
ne                 91 src/inicont.c    FORTRAN(findsurface,(ipoface,nodface,ne,ipkon,kon,lakon,ntie,
ne                 95 src/inicont.c    RENEW(islavsurf,ITG,2*6**ne);DMEMSET(islavsurf,0,12**ne,0);
ne                 36 src/linstatic.c 	     ITG *ne, 
ne                109 src/linstatic.c   ne0=*ne;
ne                135 src/linstatic.c       ifreebody=*ne+1;
ne                140 src/linstatic.c 	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                165 src/linstatic.c   NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                170 src/linstatic.c   NNEW(stx,double,6*mi[0]**ne);
ne                172 src/linstatic.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                207 src/linstatic.c   FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounact,nboun,
ne                314 src/linstatic.c 	  NNEW(stx,double,6*mi[0]**ne);
ne                320 src/linstatic.c 	  NNEW(eei,double,6*mi[0]**ne);
ne                322 src/linstatic.c 	      NNEW(stiini,double,6*mi[0]**ne);
ne                323 src/linstatic.c 	      NNEW(enerini,double,mi[0]**ne);}
ne                329 src/linstatic.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                432 src/linstatic.c     NNEW(stx,double,6*mi[0]**ne);
ne                438 src/linstatic.c     NNEW(eei,double,6*mi[0]**ne);
ne                440 src/linstatic.c 	NNEW(stiini,double,6*mi[0]**ne);
ne                441 src/linstatic.c 	NNEW(enerini,double,mi[0]**ne);}
ne                443 src/linstatic.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                465 src/linstatic.c     memcpy(&sti[0],&stx[0],sizeof(double)*6*mi[0]**ne);
ne                479 src/linstatic.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,t1act,
ne                488 src/linstatic.c 	    NNEW(neigh,ITG,40**ne);
ne                492 src/linstatic.c 	frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                496 src/linstatic.c 	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                517 src/linstatic.c 	NNEW(neigh,ITG,40**ne);
ne                521 src/linstatic.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
ne                525 src/linstatic.c 	    mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                 27 src/mastruct.c void mastruct(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne                 61 src/mastruct.c       for(i=0;i<*ne;++i){
ne                101 src/mastruct.c       for(i=0;i<*ne;++i){
ne                221 src/mastruct.c     for(i=0;i<*ne;++i){
ne                387 src/mastruct.c     for(i=0;i<*ne;++i){
ne                 27 src/mastructcs.c void mastructcs(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne                 62 src/mastructcs.c   for(i=0;i<*ne;++i){
ne                147 src/mastructcs.c   for(i=0;i<*ne;++i){
ne                 27 src/mastructem.c void mastructem(ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne                 60 src/mastructem.c       for(i=0;i<*ne;++i){
ne                104 src/mastructem.c       for(i=0;i<*ne;++i){
ne                219 src/mastructem.c     for(i=0;i<*ne;++i){
ne                363 src/mastructem.c     for(i=0;i<*ne;++i){
ne                 27 src/mastructf.c void mastructf(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne                 43 src/mastructf.c   *neq=*ne;
ne                 47 src/mastructf.c   for(i=0;i<*ne;i++){
ne                 30 src/matrixstorage.c 		ITG *kon, ITG *ne, ITG *mei, ITG *nboun, ITG *nmpc,
ne                550 src/matrixstorage.c 			 ipkon,lakon,kon,ne));
ne                 22 src/matrixstorage.h                    char *lakon,ITG *kon,ITG *ne,ITG *mei,ITG *nboun,
ne                 37 src/nonlingeo.c 	     ITG *ne, 
ne                216 src/nonlingeo.c 	      for(i=0;i<*ne;i++){
ne                259 src/nonlingeo.c 			 ipkon,lakon,kon,ne));
ne                264 src/nonlingeo.c   NNEW(xstiff,double,(long long)27*mi[0]**ne);
ne                291 src/nonlingeo.c       ifreebody=*ne+1;
ne                296 src/nonlingeo.c 	  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                299 src/nonlingeo.c       if(inewton==1){NNEW(cgr,double,4**ne);}
ne                321 src/nonlingeo.c 		       ipkon,kon,lakon,ielmat,ne,nload,
ne                331 src/nonlingeo.c 	  radcyc(nk,kon,ipkon,lakon,ne,cs,mcs,nkon,ialset,istartset,
ne                375 src/nonlingeo.c   NNEW(nactdoh,ITG,*ne);
ne                376 src/nonlingeo.c   NNEW(nactdohinv,ITG,*ne);
ne                377 src/nonlingeo.c   for(i=0;i<*ne;++i){
ne                391 src/nonlingeo.c       NNEW(ipnei,ITG,*ne);
ne                392 src/nonlingeo.c       NNEW(neifa,ITG,6**ne);
ne                393 src/nonlingeo.c       NNEW(neiel,ITG,6**ne);
ne                394 src/nonlingeo.c       NNEW(neij,ITG,6**ne);
ne                395 src/nonlingeo.c       NNEW(ielfa,ITG,24**ne);
ne                396 src/nonlingeo.c       NNEW(ifaext,ITG,6**ne);
ne                397 src/nonlingeo.c       NNEW(isolidsurf,ITG,6**ne);
ne                398 src/nonlingeo.c       NNEW(vel,double,6**ne);
ne                399 src/nonlingeo.c       NNEW(vfa,double,6*6**ne);
ne                401 src/nonlingeo.c       FORTRAN(precfd,(ne,ipkon,kon,lakon,ipnei,neifa,neiel,ipoface,
ne                419 src/nonlingeo.c   if(*ithermal>1){NNEW(qfx,double,3*mi[0]**ne);}
ne                426 src/nonlingeo.c           mortar,&imastop,nkon,&iponoels,&inoels,&ipe,&ime,ne,ifacecount,
ne                444 src/nonlingeo.c 	      RENEW(ener,double,mi[0]*(*ne+*nslavs)*2);
ne                446 src/nonlingeo.c 	  RENEW(ipkon,ITG,*ne+*nslavs);
ne                447 src/nonlingeo.c 	  RENEW(lakon,char,8*(*ne+*nslavs));
ne                450 src/nonlingeo.c 	      RENEW(ielorien,ITG,mi[2]*(*ne+*nslavs));
ne                451 src/nonlingeo.c 	      for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielorien[k]=0;
ne                454 src/nonlingeo.c 	  RENEW(ielmat,ITG,mi[2]*(*ne+*nslavs));
ne                455 src/nonlingeo.c 	  for(k=mi[2]**ne;k<mi[2]*(*ne+*nslavs);k++) ielmat[k]=1;
ne                458 src/nonlingeo.c 	      RENEW(xstate,double,*nstate_*mi[0]*(*ne+*nslavs));
ne                459 src/nonlingeo.c 	      for(k=*nstate_*mi[0]**ne;k<*nstate_*mi[0]*(*ne+*nslavs);k++){
ne                520 src/nonlingeo.c       NNEW(xstateini,double,*nstate_*mi[0]*(*ne+*nslavs));
ne                521 src/nonlingeo.c       for(k=0;k<*nstate_*mi[0]*(*ne+*nslavs);++k){
ne                526 src/nonlingeo.c   NNEW(eei,double,6*mi[0]**ne);
ne                527 src/nonlingeo.c   NNEW(stiini,double,6*mi[0]**ne);
ne                528 src/nonlingeo.c   NNEW(emeini,double,6*mi[0]**ne);
ne                530 src/nonlingeo.c       NNEW(enerini,double,mi[0]**ne);
ne                571 src/nonlingeo.c   ne0=*ne;nkon0=*nkon;neold=*ne;
ne                621 src/nonlingeo.c 			 kon,ipkon,lakon,ne,&reltime,&newstep,xboun,fmpc,
ne                634 src/nonlingeo.c 	      kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne                648 src/nonlingeo.c       NNEW(stx,double,6*mi[0]**ne);
ne                651 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,stx,
ne                695 src/nonlingeo.c       FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounold,nboun,
ne                718 src/nonlingeo.c 	      NNEW(neigh,ITG,40**ne);
ne                727 src/nonlingeo.c 	      mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne                817 src/nonlingeo.c       NNEW(stx,double,6*mi[0]**ne);
ne                822 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne                964 src/nonlingeo.c        jqrad,irowrad,&nzsrad,icolrad,ne,iaxial);
ne               1005 src/nonlingeo.c 	  *ne=ne0;*nkon=nkon0;
ne               1031 src/nonlingeo.c                      iendset,ialset,itietri,lakon,ipkon,kon,koncont,ne,
ne               1045 src/nonlingeo.c 		      RENEW(ener,double,mi[0]*(*ne+*nintpoint)*2);
ne               1047 src/nonlingeo.c 		  RENEW(ipkon,ITG,*ne+*nintpoint);
ne               1048 src/nonlingeo.c 		  RENEW(lakon,char,8*(*ne+*nintpoint));
ne               1051 src/nonlingeo.c 		      RENEW(ielorien,ITG,mi[2]*(*ne+*nintpoint));
ne               1052 src/nonlingeo.c 		      for(k=mi[2]**ne;k<mi[2]*(*ne+*nintpoint);k++) ielorien[k]=0;
ne               1054 src/nonlingeo.c 		  RENEW(ielmat,ITG,mi[2]*(*ne+*nintpoint));
ne               1055 src/nonlingeo.c 		  for(k=mi[2]**ne;k<mi[2]*(*ne+*nintpoint);k++) ielmat[k]=1;
ne               1061 src/nonlingeo.c 		  ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,straight,nkon,
ne               1076 src/nonlingeo.c 		      for(i=0;i<*ne;i++){
ne               1093 src/nonlingeo.c 	  printf(" Number of contact spring elements=%" ITGFORMAT "\n\n",*ne-ne0);
ne               1119 src/nonlingeo.c 			  FORTRAN(interpolatestate,(ne,ipkon,kon,lakon,
ne               1149 src/nonlingeo.c 			 kon,ipkon,lakon,ne,&reltime,&newstep,xboun,fmpc,
ne               1163 src/nonlingeo.c 	  kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne               1174 src/nonlingeo.c 			     ipkon,lakon,kon,ne));
ne               1207 src/nonlingeo.c       NNEW(stx,double,6*mi[0]**ne);
ne               1251 src/nonlingeo.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne               1279 src/nonlingeo.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne               1358 src/nonlingeo.c 	     iamload,jqrad,irowrad,&nzsrad,icolrad,ne,iaxial);
ne               1371 src/nonlingeo.c 	      neold=*ne;
ne               1372 src/nonlingeo.c 	      *ne=ne0;*nkon=nkon0;
ne               1374 src/nonlingeo.c 		      ialset,itietri,lakon,ipkon,kon,koncont,ne,cg,
ne               1390 src/nonlingeo.c 			  for(i=0;i<*ne;i++){
ne               1408 src/nonlingeo.c 	         if(*ne!=neold){iflagact=1;}
ne               1410 src/nonlingeo.c 	         if(((*ne-ne0)<(neold-ne0)*0.999)||
ne               1411 src/nonlingeo.c                     ((*ne-ne0)>(neold-ne0)*1.001)){iflagact=1;}
ne               1414 src/nonlingeo.c 	      printf(" Number of contact spring elements=%" ITGFORMAT "\n\n",*ne-ne0);
ne               1426 src/nonlingeo.c 	        kon,ipkon,lakon,ne,&reltime,&newstep,xboun,fmpc,&iit,
ne               1442 src/nonlingeo.c 		kon,ipkon,lakon,ne,nactdof,icol,jq,&irow,isolver,
ne               1453 src/nonlingeo.c 				     ipkon,lakon,kon,ne));
ne               1457 src/nonlingeo.c 	      NNEW(stx,double,6*mi[0]**ne);
ne               1464 src/nonlingeo.c 	      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne               1500 src/nonlingeo.c 	FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounact,nboun,
ne               1523 src/nonlingeo.c 	    FORTRAN(mafillsmas,(co,nk,kon,ipkon,lakon,ne,nodeboun,
ne               1557 src/nonlingeo.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1595 src/nonlingeo.c 	  FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
ne               1628 src/nonlingeo.c 	      NNEW(neigh,ITG,40**ne);
ne               1637 src/nonlingeo.c 		  mi,sti,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne               1821 src/nonlingeo.c       NNEW(stx,double,6*mi[0]**ne);
ne               1825 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne               1871 src/nonlingeo.c 	  FORTRAN(negativepressure,(&ne0,ne,mi,stx,&pressureratio));
ne               1916 src/nonlingeo.c 	  ram[6]=abs((neold-ne0)-(*ne-ne0))+0.5;
ne               1985 src/nonlingeo.c       FORTRAN(writecvg,(istep,&iinc,&iit,ne,&ne0,ram,qam,cam,uam,
ne               1988 src/nonlingeo.c       checkconvergence(co,nk,kon,ipkon,lakon,ne,stn,nmethod, 
ne               2110 src/nonlingeo.c       NNEW(stx,double,6*mi[0]**ne);
ne               2127 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne               2155 src/nonlingeo.c 	frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
ne               2167 src/nonlingeo.c 	      NNEW(neigh,ITG,40**ne);
ne               2176 src/nonlingeo.c 	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne               2213 src/nonlingeo.c     NNEW(stx,double,6*mi[0]**ne);
ne               2229 src/nonlingeo.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
ne               2257 src/nonlingeo.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
ne               2270 src/nonlingeo.c 	    NNEW(neigh,ITG,40**ne);
ne               2279 src/nonlingeo.c 	    mi,stx,vr,vi,stnr,stni,vmax,stnmax,&ngraph,veold,ener,ne,
ne               2396 src/nonlingeo.c       *ne=ne0;*nkon=nkon0;
ne               2398 src/nonlingeo.c 	RENEW(ener,double,mi[0]**ne*2);
ne               2400 src/nonlingeo.c       RENEW(ipkon,ITG,*ne);
ne               2401 src/nonlingeo.c       RENEW(lakon,char,8**ne);
ne               2404 src/nonlingeo.c 	  RENEW(ielorien,ITG,mi[2]**ne);
ne               2406 src/nonlingeo.c       RENEW(ielmat,ITG,mi[2]**ne);
ne                 26 src/precontact.c         char *lakon, ITG *ipkon, ITG *kon, ITG *koncont, ITG *ne,
ne                 24 src/radcyc.c   void radcyc(ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne                 71 src/radflowload.c                  ITG *icolrad,ITG *ne,ITG *iaxial){
ne                285 src/radflowload.c 	      nelemload,xloadact,nactdog,network,mi,ne,ipkon,lakon,kon));
ne                 37 src/readinput.c       icntrl,nload,nforc,nboun,nk,ne,nmpc,nalset,nmat,ntmat,npmat,
ne                210 src/readinput.c               &ne,&nmpc,&nalset,&nmat,&ntmat,&npmat,&norien,&nam,
ne                 29 src/remastruct.c               ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne                 72 src/remastruct.c     mastruct(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,ipompc,
ne                 29 src/remastructar.c               ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne                 72 src/remastructar.c 	mastruct(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,ipompc,
ne                 81 src/remastructar.c       mastructcs(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,
ne                 29 src/remastructem.c               ITG *kon, ITG *ipkon, char *lakon, ITG *ne,
ne                 72 src/remastructem.c     mastructem(nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,nboun,ipompc,
ne                 42 src/results.c  void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
ne                151 src/results.c      if(*ne<num_cpus) num_cpus=*ne;
ne                169 src/results.c  	FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
ne                182 src/results.c  	co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;ne1=ne;v1=v;
ne                283 src/results.c          clearini1=clearini;plicon1=plicon;nplicon1=nplicon;ne1=ne;
ne                339 src/results.c      FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                 43 src/resultsinduction.c        ITG *ne,
ne                152 src/resultsinduction.c     if(*ne<num_cpus) num_cpus=*ne;
ne                176 src/resultsinduction.c 	FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
ne                188 src/resultsinduction.c 	nalcon1=nalcon;h01=h0;ne1=ne;istartset1=istartset;iendset1=iendset;
ne                290 src/resultsinduction.c     FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
ne                 37 src/steadystate.c void steadystate(double **cop, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp, ITG *ne, 
ne                210 src/steadystate.c 		       ilboun,filab,prlab,prset,nprint,ne,&cyclicsymmetry));
ne                242 src/steadystate.c       FORTRAN(elementpernode,(iponoel,inoel,lakon,ipkon,kon,ne));
ne                243 src/steadystate.c       NNEW(imdelem,ITG,*ne);
ne                282 src/steadystate.c       neg=*ne;
ne                473 src/steadystate.c       neg=*ne*ngraph;
ne                492 src/steadystate.c       RENEW(ipkon,ITG,*ne*nsectors);
ne                493 src/steadystate.c       for(i=*ne;i<*ne*nsectors;i++){ipkon[i]=-1;}
ne                494 src/steadystate.c       RENEW(lakon,char,8**ne*nsectors);
ne                495 src/steadystate.c       RENEW(ielmat,ITG,mi[2]**ne*nsectors);
ne                496 src/steadystate.c       if(*norien>0) RENEW(ielorien,ITG,mi[2]**ne*nsectors);
ne                541 src/steadystate.c       expand(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
ne                568 src/steadystate.c       RENEW(eme,double,6*mi[0]**ne);
ne                570 src/steadystate.c       if(*nener==1) RENEW(ener,double,mi[0]**ne);
ne                586 src/steadystate.c   for(i=0;i<*ne;i++){
ne                615 src/steadystate.c   FORTRAN(createinum,(ipkon,inum,kon,lakon,nk,ne,&cflag[0],nelemload,
ne                672 src/steadystate.c 	  NNEW(stx,double,6*mi[0]**ne);
ne                673 src/steadystate.c 	  NNEW(eei,double,6*mi[0]**ne);
ne                676 src/steadystate.c 	      NNEW(qfx,double,3*mi[0]**ne);}
ne                683 src/steadystate.c 	      NNEW(stiini,double,6*mi[0]**ne);
ne                684 src/steadystate.c 	      NNEW(enerini,double,mi[0]**ne);}
ne                870 src/steadystate.c 	  ifreebody=*ne+1;
ne                875 src/steadystate.c 	      RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne                957 src/steadystate.c 	  for(i=0;i<6*mi[0]**ne;i++){eme[i]=0.;}
ne                967 src/steadystate.c 	      FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
ne               1047 src/steadystate.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1192 src/steadystate.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               1593 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stnr,inum,
ne               1621 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stnr,inum,
ne               1654 src/steadystate.c 	      NNEW(neigh,ITG,40**ne);
ne               1679 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vi,stni,inum,
ne               1707 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vi,stni,inum,
ne               1856 src/steadystate.c 	      NNEW(neigh,ITG,40**ne);
ne               2189 src/steadystate.c 	  for(i=0;i<6*mi[0]**ne;i++){eme[i]=0.;}
ne               2207 src/steadystate.c 	      ifreebody=*ne+1;
ne               2212 src/steadystate.c 		  RENEW(ipobody,ITG,2*(*ne+ifreebody));
ne               2243 src/steadystate.c 		  FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
ne               2303 src/steadystate.c 	      FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
ne               2664 src/steadystate.c 	      NNEW(stx,double,6*mi[0]**ne);
ne               2668 src/steadystate.c 		  NNEW(qfx,double,3*mi[0]**ne);}
ne               2674 src/steadystate.c 	      NNEW(eei,double,6*mi[0]**ne);
ne               2676 src/steadystate.c 		  NNEW(stiini,double,6*mi[0]**ne);
ne               2677 src/steadystate.c 		  NNEW(enerini,double,mi[0]**ne);}
ne               2706 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stn,inum,
ne               2731 src/steadystate.c 		  NNEW(neigh,ITG,40**ne);
ne               2799 src/steadystate.c       *ne/=nsectors;
ne               2813 src/steadystate.c       RENEW(ipkon,ITG,*ne);
ne               2814 src/steadystate.c       RENEW(lakon,char,8**ne);
ne               2815 src/steadystate.c       RENEW(ielmat,ITG,mi[2]**ne);
ne               2816 src/steadystate.c       if(*norien>0) RENEW(ielorien,ITG,mi[2]**ne);
ne               2848 src/steadystate.c       RENEW(eme,double,6*mi[0]**ne);
ne               2849 src/steadystate.c       if(*nener==1)RENEW(ener,double,mi[0]**ne);
ne               2854 src/steadystate.c 	  if(nelemload[2*i]<=*ne*nsectors){
ne               2855 src/steadystate.c 	      nelemload[2*i]-=*ne*nelemload[2*i+1];
ne               2857 src/steadystate.c 	      nelemload[2*i]-=*ne*(nsectors+nelemload[2*i+1]-1);