co                 78 src/CalculiX.h              double *straight,double *co,double *vold,double *xo,double *yo,
co                116 src/CalculiX.h void arpack(double *co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
co                152 src/CalculiX.h void arpackbu(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                184 src/CalculiX.h void arpackcs(double *co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
co                232 src/CalculiX.h void biosav(ITG *ipkon,ITG *kon,char *lakon,ITG *ne,double *co,
co                235 src/CalculiX.h void FORTRAN(biotsavart,(ITG *ipkon,ITG *kon,char *lakon,ITG *ne,double *co,
co                291 src/CalculiX.h void FORTRAN(calcmass,(ITG *ipkon,char *lakon,ITG *kon,double *co,ITG *mi,
co                337 src/CalculiX.h void FORTRAN(calcview,(char *sideload,double *vold,double *co,
co                346 src/CalculiX.h void FORTRAN(calinput,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                410 src/CalculiX.h void checkconvergence(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                528 src/CalculiX.h 	     double *cg,double *straight,ITG *ifree,double *co,
co                568 src/CalculiX.h              ITG *nboun,ITG *ndirboun,ITG *ithermal,double *co,
co                682 src/CalculiX.h void dynacont(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne, 
co                763 src/CalculiX.h 			double *co,ITG *nk));
co                765 src/CalculiX.h void electromagnetics(double **co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
co                811 src/CalculiX.h 		      double *shcon,ITG *ntmat_,double *co,
co                824 src/CalculiX.h void expand(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                860 src/CalculiX.h              ITG *ndim,double *orab,ITG *ielorien,double *co,ITG *iorienglob,
co                901 src/CalculiX.h 			  ITG *ipkon,ITG *kon,double *co,ITG *nflow,
co                923 src/CalculiX.h void frd(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
co                939 src/CalculiX.h void frdcyc(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,double *v,
co                951 src/CalculiX.h void FORTRAN(frdfluid,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                962 src/CalculiX.h void FORTRAN(frditeration,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                976 src/CalculiX.h                ITG *inum,char *m1,ITG *inotr,double *trab,double *co,
co                996 src/CalculiX.h              ITG *ifree,ITG *koncont,double *co,double *vold,double *xo,
co               1008 src/CalculiX.h      double *co,double *vold,double *xo,double *yo,double *zo,
co               1033 src/CalculiX.h 	  ITG *koncont,double *co,double *xo,double *yo,double *zo,
co               1041 src/CalculiX.h void FORTRAN(geomview,(double *vold,double *co,double *pmid,double *e1,
co               1076 src/CalculiX.h              ITG *iperturb,ITG *ikboun,ITG *nboun,double *co,ITG *istep,
co               1082 src/CalculiX.h              double *co,double *coel,double *cofa,ITG *nface,ITG *ielfa,
co               1096 src/CalculiX.h                          double *xbody,double *co,ITG *nbody,ITG *network,
co               1108 src/CalculiX.h                          double *xbody,double *co,ITG *nbody,ITG *network,
co               1130 src/CalculiX.h               double *straight,double *co,double *vold,double *xo,
co               1147 src/CalculiX.h void FORTRAN(jouleheating,(ITG *ipkon,char *lakon,ITG *kon,double *co,
co               1157 src/CalculiX.h void linstatic(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               1192 src/CalculiX.h void FORTRAN(mafillcorio,(double *co,ITG *nk,ITG *kon,ITG *ipkon, 
co               1217 src/CalculiX.h void FORTRAN(mafilldm,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               1243 src/CalculiX.h void FORTRAN(mafillem,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               1281 src/CalculiX.h 			ITG *ipkon,ITG *kon,double *co,ITG *nflow,
co               1301 src/CalculiX.h void FORTRAN(mafillsm,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               1334 src/CalculiX.h void FORTRAN(mafillsmas,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               1367 src/CalculiX.h void FORTRAN(mafillsmcs,(double *co,ITG *nk,ITG *kon,ITG *ipkon, 
co               1398 src/CalculiX.h void FORTRAN(mafillsmcsas,(double *co,ITG *nk,ITG *kon,ITG *ipkon, 
co               1507 src/CalculiX.h void nonlingeo(double **co,ITG *nk,ITG **konp,ITG **ipkonp,char **lakonp,
co               1553 src/CalculiX.h void FORTRAN(nonlinmpc,(double *co,double *vold,ITG *ipompc,ITG *nodempc,
co               1564 src/CalculiX.h              ITG *imastnode,ITG *nmastnode,double *xmastnor,double *co));
co               1594 src/CalculiX.h         double *cg, double *straight, double *co,double *vold,
co               1618 src/CalculiX.h              double *co,ITG *kon,double *qfx,double *ttime,double *trab,
co               1629 src/CalculiX.h              double *co,ITG *kon,double *qfx,double *ttime,double *trab,
co               1635 src/CalculiX.h void FORTRAN(printoutface,(double *co,double *rhcon,ITG *nrhcon,ITG *ntmat_,
co               1657 src/CalculiX.h        ITG *kon,double *co,ITG *kontri,ITG *ntri,
co               1677 src/CalculiX.h        double *vold,ITG *ipkon,ITG *kon,double *co,ITG *nloadtr,
co               1704 src/CalculiX.h void FORTRAN(rectcyl,(double *co,double *v,double *fn,double *stn,
co               1709 src/CalculiX.h void FORTRAN(rectcylexp,(double *co,double *v,double *fn,double *stn,
co               1715 src/CalculiX.h void FORTRAN(rectcyltrfm,(ITG *node,double *co,double *cs,ITG *cntrl,
co               1718 src/CalculiX.h void FORTRAN(rectcylvi,(double *co,double *v,double *fn,double *stn,
co               1777 src/CalculiX.h   ITG *istartset,ITG *iendset,ITG *ialset,double *co,ITG *kon,ITG *ipkon, 
co               1808 src/CalculiX.h                         ITG *ipkon,ITG *kon,double *co,ITG *nflow,
co               1825 src/CalculiX.h void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               1861 src/CalculiX.h void FORTRAN(resultsem,(double *co,ITG *kon,ITG *ipkon,char *lakon,
co               1899 src/CalculiX.h void FORTRAN(resultsmech,(double *co,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
co               1918 src/CalculiX.h void  FORTRAN(resultsprint,(double *co,ITG *nk,ITG *kon,ITG *ipkon,
co               1935 src/CalculiX.h void FORTRAN(resultstherm,(double *co,ITG *kon,ITG *ipkon,
co               1956 src/CalculiX.h void resultsinduction(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               2028 src/CalculiX.h void FORTRAN(rhs,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co               2049 src/CalculiX.h         ITG *nintpoint,ITG *koncont,double *co,double *vold,double *xo,
co               2088 src/CalculiX.h void steadystate(double **co,ITG *nk,ITG **kon,ITG **ipkon,char **lakon,ITG *ne, 
co               2136 src/CalculiX.h              double *co,ITG *itg,ITG *ntg,double *vold,
co               2162 src/CalculiX.h                ITG *iint,double *co,double *vold,ITG *itg,ITG *ntg,
co               2181 src/CalculiX.h                ITG *iint,double *co,double *vold,ITG *itg,ITG *ntg,
co               2201 src/CalculiX.h                ITG *iint,double *co,double *vold,ITG *itg,ITG *ntg,
co               2227 src/CalculiX.h 	       ITG *ithermal,double *co,double *vold,ITG *cfd,
co               2239 src/CalculiX.h 	  char *kind2,double *co,ITG *nk));
co               2246 src/CalculiX.h void FORTRAN(ufaceload,(double *co,ITG *ipkon,ITG *kon,char *lakon,
co               2255 src/CalculiX.h void FORTRAN(updatecont,(ITG *koncont,ITG *ncont,double *co,double *vold,
co               2258 src/CalculiX.h void FORTRAN(updatecontpen,(ITG *koncont,ITG *ncont,double *co,double *vold,
co               2326 src/CalculiX.h void FORTRAN(zienzhu,(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                 41 src/arpack.c   void arpack(double *co, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp,
co                189 src/arpack.c   	  iperturb,ikboun,nboun,co,istep,&xnoels);
co                248 src/arpack.c   			 cg,straight,co,vold,istep,&iinc,&iit,itiefac,
co                278 src/arpack.c   	     co,vold,ielmat,cs,elcon,istep,&iinc,&iit,ncmat_,ntmat_,
co                370 src/arpack.c        results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                388 src/arpack.c        results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                425 src/arpack.c       FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                443 src/arpack.c         FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                466 src/arpack.c   	  FORTRAN(mafillsmas,(co,nk,kon,ipkon,lakon,ne,nodeboun,
co                500 src/arpack.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                546 src/arpack.c   		  ntrans,inotr,trab,co,nk,nactdof,jobnamec,mi,ipkon,
co                809 src/arpack.c         FORTRAN(effectivemodalmass,(neq,nactdof,mi,adb,aub,jq,irow,&nev,z,co,nk));
co                881 src/arpack.c         results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                901 src/arpack.c         results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                936 src/arpack.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                 37 src/arpackbu.c void arpackbu(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
co                145 src/arpackbu.c      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                163 src/arpackbu.c      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                192 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                210 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                247 src/arpackbu.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                319 src/arpackbu.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                338 src/arpackbu.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                367 src/arpackbu.c   frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                395 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                413 src/arpackbu.c     FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                654 src/arpackbu.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                673 src/arpackbu.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                699 src/arpackbu.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                 41 src/arpackcs.c void arpackcs(double *co, ITG *nk, ITG **konp, ITG **ipkonp, char **lakonp,
co                192 src/arpackcs.c 	      iperturb,ikboun,nboun,co,istep,&xnoels);
co                251 src/arpackcs.c 			 cg,straight,co,vold,istep,&iinc,&iit,itiefac,
co                281 src/arpackcs.c 		  co,vold,ielmat,cs,elcon,istep,&iinc,&iit,ncmat_,ntmat_,
co                370 src/arpackcs.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                388 src/arpackcs.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                493 src/arpackcs.c 	  FORTRAN(mafillsmcs,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                510 src/arpackcs.c 	  FORTRAN(mafillsmcs,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                532 src/arpackcs.c 	      FORTRAN(mafillsmcsas,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
co                564 src/arpackcs.c 	  frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                610 src/arpackcs.c 			ntrans,inotr,trab,co,nk,nactdof,jobnamec,mi,ipkon,
co               1021 src/arpackcs.c 	  FORTRAN(effectivemodalmass,(neq,nactdof,mi,adb,aub,jq,irow,&nev,z,co,nk));
co               1089 src/arpackcs.c       for(l=0;l<3**nk;l++){cot[l]=co[l];}
co               1299 src/arpackcs.c 		  results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
co               1318 src/arpackcs.c 		  results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
co               1352 src/arpackcs.c 		      vray[0]=co[3*iray-3];
co               1353 src/arpackcs.c 		      vray[1]=co[3*iray-2];
co               1354 src/arpackcs.c 		      vray[2]=co[3*iray-1];
co               1383 src/arpackcs.c 		  for(l2=0;l2<3;l2++){q[l2]=co[3*l1+l2]-p1[l2];}
co               1740 src/arpackcs.c     FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
co                 31 src/biosav.c   void biosav(ITG *ipkon,ITG *kon,char *lakon,ITG *ne,double *co,
co                156 src/biosav.c       ipkon1=ipkon;kon1=kon;lakon1=lakon;ne1=ne;co1=co;qfx1=qfx;
co                 57 src/ccx_2.8.c  double *co=NULL, *xboun=NULL, *coefmpc=NULL, *xforc=NULL,*clearini=NULL,
co                213 src/ccx_2.8.c      NNEW(co,double,3*nk_);
co                496 src/ccx_2.8.c      RENEW(co,double,3*nk_);DMEMSET(co,3*nk,3*nk_,0.);
co                550 src/ccx_2.8.c    FORTRAN(calinput,(co,&nk,kon,ipkon,lakon,&nkon,&ne,
co                598 src/ccx_2.8.c         ithermal, co, vold,&icfd,&nmpc_,mi,&nk,&istep,ikboun,&nboun,
co                837 src/ccx_2.8.c    RENEW(co,double,3*nk);
co                960 src/ccx_2.8.c        FORTRAN(ufaceload,(co,ipkon,kon,lakon,&nboun,nodeboun,
co               1032 src/ccx_2.8.c  	linstatic(co,&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
co               1056 src/ccx_2.8.c  	nonlingeo(&co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
co               1094 src/ccx_2.8.c  	  arpack(co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
co               1126 src/ccx_2.8.c  	  arpackcs(co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,ndirboun,
co               1156 src/ccx_2.8.c  	arpackbu(co,&nk,kon,ipkon,lakon,&ne,nodeboun,ndirboun,xboun,&nboun, 
co               1186 src/ccx_2.8.c        dyna(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
co               1216 src/ccx_2.8.c        steadystate(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
co               1239 src/ccx_2.8.c        complexfreq(&co,&nk,&kon,&ipkon,&lakon,&ne,&nodeboun,&ndirboun,&xboun,&nboun,
co               1263 src/ccx_2.8.c  	electromagnetics(&co,&nk,&kon,&ipkon,&lakon,&ne,nodeboun,
co               1396 src/ccx_2.8.c          &nstate_,&nener,set,istartset,iendset,ialset,co,kon,ipkon,
co               1444 src/ccx_2.8.c  SFREE(co);SFREE(kon);SFREE(ipkon);SFREE(lakon);
co                 33 src/checkconvergence.c void checkconvergence(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
co                209 src/checkconvergence.c 		      ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop));
co                213 src/checkconvergence.c 		    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                330 src/checkconvergence.c 		ipkon,inum,kon,lakon,ne,mi,orab,ielorien,co,itg,ntg,vold,
co                335 src/checkconvergence.c 	    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                463 src/checkconvergence.c 	               ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop));
co                467 src/checkconvergence.c 		    frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                514 src/checkconvergence.c 			   ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop));
co                518 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                541 src/checkconvergence.c 			   ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop));
co                545 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                610 src/checkconvergence.c 			   ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop));
co                614 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                634 src/checkconvergence.c 			   ielorien,co,itg,ntg,vold,ielmat,thicke,ielprop,prop));
co                638 src/checkconvergence.c 			frd(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,nmethod,
co                 88 src/compfluid.c       *co=NULL,*vold=NULL,*coel=NULL,*cosa=NULL,*gradvel=NULL,*gradvfa=NULL,
co                103 src/compfluid.c   coefmpc=*coefmpcp;labmpc=*labmpcp;fmpc=*fmpcp;co=*cop;
co                234 src/compfluid.c   FORTRAN(initialcfd,(nef,ipkonf,kon,lakonf,co,coel,cofa,nface,
co                312 src/compfluid.c 	     co,v,itg,ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                458 src/compfluid.c 	     co,v,itg,ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co               1003 src/compfluid.c 		      &nfield,nk,nef,mi,&ndim,orab,ielorienf,co,&iorienglob,
co               1022 src/compfluid.c 		      &nfield,nk,nef,mi,&ndim,orab,ielorienf,co,&iorienglob,
co               1038 src/compfluid.c                                  xstate,ener,mi,&nstate_,ithermal,co,kon,qfx,
co               1046 src/compfluid.c 	  FORTRAN(frdfluid,(co,nk,kon,ipkonf,lakonf,nef,vold,&kode,&timef,ielmatf,
co                100 src/complexfreq.c     *co=NULL,*xboun=NULL,*xbounold=NULL,*vold=NULL,*emeini=NULL,
co                123 src/complexfreq.c   co=*cop;kon=*konp;ipkon=*ipkonp;lakon=*lakonp;ielmat=*ielmatp;
co                503 src/complexfreq.c       FORTRAN(mafillcorio,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
co               1147 src/complexfreq.c   for(l=0;l<3**nk;l++){cot[l]=co[l];}
co               1342 src/complexfreq.c 	results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
co               1361 src/complexfreq.c 	results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
co               1392 src/complexfreq.c       FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
co               1826 src/complexfreq.c   *cop=co;*konp=kon;*ipkonp=ipkon;*lakonp=lakon;*ielmatp=ielmat;
co                 26 src/contact.c  	     double *cg, double *straight, ITG *ifree, double *co,
co                 62 src/contact.c  	FORTRAN(updatecontpen,(koncont,ncont,co,vold,
co                 89 src/contact.c            co,vold,xo,yo,zo,x,y,z,nx,ny,nz,ielmat,elcon,istep,
co                 99 src/contact.c  	  lakon,cg,straight,ifree,koncont,co,vold,xo,yo,zo,x,y,z,nx,ny,nz,
co                115 src/dyna.c         *bact=NULL,*bmin=NULL,*co=NULL,*xboun=NULL,*xbounold=NULL,*vold=NULL,
co                153 src/dyna.c       co=*cop;kon=*konp;ipkon=*ipkonp;lakon=*lakonp;ielmat=*ielmatp;
co                435 src/dyna.c           RENEW(co,double,3**nk*nsectors);
co                440 src/dyna.c           for(i=3**nk;i<3**nk*nsectors;i++){co[i]=0.;}
co                547 src/dyna.c           expand(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                652 src/dyna.c           FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                704 src/dyna.c     	  iperturb,ikboun,nboun,co,istep,&xnoels);
co                906 src/dyna.c     	  nload,nodeboun,nboun,ndirboun,ithermal,co,vold,mi,ielmat));
co                950 src/dyna.c     	      ndirforc,istep,&iinc,co,vold,itg,&ntg,amname,ikboun,ilboun,
co                962 src/dyna.c       FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1047 src/dyna.c     	      co,vold,ielmat,cs,elcon,istep,&iinc,&iit,ncmat_,ntmat_,
co               1068 src/dyna.c     		  xl[j*3+j1]=co[3*(konl[j]-1)+j1];
co               1272 src/dyna.c     	      ndirforc,istep,&iinc,co,vold,itg,&ntg,amname,ikboun,ilboun,
co               1281 src/dyna.c     	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1293 src/dyna.c     	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1388 src/dyna.c     	        ndirforc,istep,&iinc,co,vold,itg,&ntg,amname,ikboun,ilboun,
co               1397 src/dyna.c     		  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1409 src/dyna.c     		  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1685 src/dyna.c     	  FORTRAN(nonlinmpc,(co,vold,ipompc,nodempc,coefmpc,labmpc,
co               1703 src/dyna.c     	  dynacont(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co               1778 src/dyna.c     	results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co               1822 src/dyna.c     	frd(co,&nkg,kon,ipkon,lakon,&neg,v,stn,inum,nmethod,
co               1883 src/dyna.c     	  FORTRAN(nonlinmpc,(co,vold,ipompc,nodempc,coefmpc,labmpc,
co               2008 src/dyna.c           RENEW(co,double,3**nk);
co               2096 src/dyna.c       *cop=co;*konp=kon;*ipkonp=ipkon;*lakonp=lakon;*ielmatp=ielmat;
co                 38 src/dynacont.c void dynacont(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon, ITG *ne, 
co                159 src/dynacont.c 	  straight,nkon,co,vold,ielmat,cs,elcon,istep,
co                179 src/dynacont.c 	      xl[j*3+j1]=co[3*(konl[j]-1)+j1];
co                319 src/dynacont.c 	        ndirforc,istep,iinc,co,vold,itg,&ntg,amname,ikboun,ilboun,
co                328 src/dynacont.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co                340 src/dynacont.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co                678 src/dynacont.c 	  FORTRAN(nonlinmpc,(co,vold,ipompc,nodempc,coefmpc,labmpc,
co                712 src/dynacont.c 	      straight,nkon,co,vold,ielmat,cs,elcon,istep,
co                730 src/dynacont.c 	    xl[j*3+j1]=co[3*(konl[j]-1)+j1];
co                123 src/electromagnetics.c          *qfn=NULL,*co=NULL,*vold=NULL,*fenv=NULL,sigma=0.,
co                159 src/electromagnetics.c   icol=*icolp;irow=*irowp;co=*cop;vold=*voldp;
co                240 src/electromagnetics.c                        v,&network,physcon,shcon,ntmat_,co,
co                248 src/electromagnetics.c                iendset,&kontri,&ntri,&co,&vold,&ntrit,inocs,mi);
co                382 src/electromagnetics.c 	      co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                419 src/electromagnetics.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                443 src/electromagnetics.c   FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounold,nboun,
co                467 src/electromagnetics.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,
co                530 src/electromagnetics.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                579 src/electromagnetics.c 	  nload,nodeboun,nboun,ndirboun,ithermal,co,vold,mi,ielmat));
co                584 src/electromagnetics.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,kode,filab,een,
co                593 src/electromagnetics.c       frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,&nmethodact,
co                619 src/electromagnetics.c   biosav(ipkon,kon,lakon,ne,co,qfx,h0,mi,inomat,nk);
co                667 src/electromagnetics.c        ithermal,co,vold,&icfd,nmpc_,mi,nk,istep,ikboun,nboun,
co                698 src/electromagnetics.c        xmastnor,co));
co                858 src/electromagnetics.c 	      co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                867 src/electromagnetics.c        shcon,nshcon,ipkon,kon,co,
co                897 src/electromagnetics.c       resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                966 src/electromagnetics.c 	       co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                975 src/electromagnetics.c                 ntmat_,vold,shcon,nshcon,ipkon,kon,co,
co                992 src/electromagnetics.c 	      FORTRAN(jouleheating,(ipkon,lakon,kon,co,elcon,nelcon,
co               1007 src/electromagnetics.c 	  FORTRAN(mafillem,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,
co               1047 src/electromagnetics.c 	      frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co               1174 src/electromagnetics.c 	  resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co               1267 src/electromagnetics.c 	  checkconvergence(co,nk,kon,ipkon,lakon,ne,stn,nmethod, 
co               1334 src/electromagnetics.c 	  resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co               1360 src/electromagnetics.c 	      frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
co               1369 src/electromagnetics.c 	      frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co               1407 src/electromagnetics.c       resultsinduction(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co               1433 src/electromagnetics.c 	  frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
co               1442 src/electromagnetics.c 	  frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co               1560 src/electromagnetics.c   *icolp=icol;*irowp=irow;*cop=co;*voldp=vold;
co                 31 src/exo.c      void exo(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
co                126 src/exo.c            x[j]   = co[3*i];
co                127 src/exo.c            y[j]   = co[3*i+1];
co                128 src/exo.c            z[j++] = co[3*i+2];
co                134 src/exo.c            x[j]   = co[3*i];
co                135 src/exo.c            y[j]   = co[3*i+1];
co                136 src/exo.c            z[j++] = co[3*i+2];
co                602 src/exo.c      		  trab,co,istartset,iendset,ialset,mi,ngraph,exoid,
co                620 src/exo.c      		    trab,co,istartset,iendset,ialset,mi,ngraph,exoid,
co                644 src/exo.c      		  trab,co,istartset,iendset,ialset,mi,ngraph,exoid,
co                846 src/exo.c      		  trab,co,istartset,iendset,ialset,mi,ngraph,exoid,
co                864 src/exo.c      		    trab,co,istartset,iendset,ialset,mi,ngraph,exoid,
co               1066 src/exo.c      	FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
co               1102 src/exo.c                FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
co                 20 src/exo.h      void exo(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
co                 43 src/exo.h                     ITG *inum,ITG *inotr,double *trab,double *co,
co                 30 src/exovector.c 	       double *co, ITG *istartset, ITG *iendset, ITG *ialset, 
co                 77 src/exovector.c 	    FORTRAN(transformatrix,(&trab[7*(inotr[2*i]-1)],&co[3*i],a));
co                 93 src/exovector.c 	      FORTRAN(transformatrix,(&trab[7*(inotr[2*i]-1)],&co[3*i],a));
co                112 src/exovector.c 		FORTRAN(transformatrix,(&trab[7*(inotr[2*i]-1)],&co[3*i],a));
co                 33 src/expand.c   void expand(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
co                160 src/expand.c   		  FORTRAN(calcmass,(ipkon,lakon,kon,co,mi,&nelem,ne,thicke,
co                186 src/expand.c   		      FORTRAN(calcmass,(ipkon,lakon,kon,co,mi,&nelem,ne,thicke,
co                243 src/expand.c       FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filabt,&imag,mi,emn));
co                253 src/expand.c   		    co[3*l+i*3**nk]=co[3*l];
co                254 src/expand.c   		    co[1+3*l+i*3**nk]=co[1+3*l]+theta;
co                255 src/expand.c   		    co[2+3*l+i*3**nk]=co[2+3*l];
co                280 src/expand.c       FORTRAN(rectcyl,(co,vt,fn,stn,qfn,een,cs,&nkt,&icntrl,t,filabt,&imag,mi,emn));
co                379 src/expand.c   	    FORTRAN(transformatrix,(&trab[7*(itr-1)],&co[3*(node-1)],atrab));
co                380 src/expand.c   	    FORTRAN(transformatrix,(&cs[5],&co[3*(node-1)],acs));
co                401 src/expand.c   	    FORTRAN(rectcyltrfm,(&node,co,cs,&icntrl,fin,fout));
co                421 src/expand.c   	    FORTRAN(rectcyltrfm,(&node,co,cs,&icntrl,fin,fout));
co                518 src/expand.c   	    results(co,nk,kon,ipkon,lakon,ne,&v[kkv],&stn[kk6],inum,
co                546 src/expand.c   	FORTRAN(rectcylexp,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filabt,&imag,mi,
co                601 src/expand.c   	FORTRAN(rectcylexp,(co,vt,fn,stn,qfn,een,cs,&nkt,&icntrl,t,filabt,
co                792 src/expand.c   						    &co[3*node-3],a));
co                797 src/expand.c   								&co[3*nodenew-3],a));
co                804 src/expand.c   								&co[3*nodenew-3],a));
co                816 src/expand.c   							    &co[3*nodenew-3],a));
co                 27 src/frd.c      void frd(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne0,
co                 92 src/frd.c          exo(co,nk,kon,ipkon,lakon,ne0,v,stn,inum,nmethod,kode,
co                225 src/frd.c      	    fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,(float)co[3*i],
co                226 src/frd.c      		  (float)co[3*i+1],(float)co[3*i+2]);
co                229 src/frd.c      	  fwrite(&co[3*i],sizeof(double),1,f1);
co                230 src/frd.c      	  fwrite(&co[3*i+1],sizeof(double),1,f1);
co                231 src/frd.c      	  fwrite(&co[3*i+2],sizeof(double),1,f1);
co                237 src/frd.c      	  fprintf(f1,"%3s%10" ITGFORMAT "%12.5E%12.5E%12.5E\n",m1,i+1,(float)co[3*i],
co                238 src/frd.c      		(float)co[3*i+1],(float)co[3*i+2]);
co                241 src/frd.c      	  fwrite(&co[3*i],sizeof(double),1,f1);
co                242 src/frd.c      	  fwrite(&co[3*i+1],sizeof(double),1,f1);
co                243 src/frd.c      	  fwrite(&co[3*i+2],sizeof(double),1,f1);
co                713 src/frd.c      	      trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
co                732 src/frd.c      		trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
co                755 src/frd.c      	      trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
co               1023 src/frd.c      	      trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
co               1043 src/frd.c      		trab,co,istartset,iendset,ialset,mi,ngraph,f1,output,m3);
co               1323 src/frd.c          FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
co               1356 src/frd.c            FORTRAN(zienzhu,(co,nk,kon,ipkon,lakon,ne0,stn,ipneigh,neigh,
co                 24 src/frdcyc.c   void frdcyc(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,double *v,
co                163 src/frdcyc.c     for(l=0;l<3**nk;l++){cot[l]=co[l];}
co                234 src/frdcyc.c     FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
co                 25 src/frdvector.c                ITG *inum,char *m1,ITG *inotr,double *trab,double *co,
co                 67 src/frdvector.c 	  FORTRAN(transformatrix,(&trab[7*(inotr[2*i]-1)],&co[3*i],a));
co                103 src/frdvector.c 	      FORTRAN(transformatrix,(&trab[7*(inotr[2*i]-1)],&co[3*i],a));
co                139 src/frdvector.c 	      FORTRAN(transformatrix,(&trab[7*(inotr[2*i]-1)],&co[3*i],a));
co                 35 src/inicont.c  	       ITG *iperturb, ITG *ikboun, ITG *nboun, double *co,
co                 72 src/inicont.c  	  ialset,itietri,lakon,ipkon,kon,koncont,kind1,kind2,co,nk));
co                 35 src/linstatic.c void linstatic(double *co, ITG *nk, ITG *kon, ITG *ipkon, char *lakon,
co                155 src/linstatic.c 	      co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                172 src/linstatic.c   results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                207 src/linstatic.c   FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounact,nboun,
co                329 src/linstatic.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                443 src/linstatic.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                479 src/linstatic.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,t1act,
co                492 src/linstatic.c 	frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                521 src/linstatic.c     frd(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,
co                 28 src/matrixstorage.c                 double *trab, double *co, ITG *nk, ITG *nactdof,
co                233 src/matrixstorage.c         FORTRAN(transformatrix,(&trab[7*itrans-7],&co[3*i],a));
co                457 src/matrixstorage.c         FORTRAN(transformatrix,(&trab[7*itrans-7],&co[3*i],a));
co                 20 src/matrixstorage.h                    ITG *ntrans,ITG *inotr,double *trab,double *co,ITG *nk,
co                133 src/nonlingeo.c          *qfn=NULL,*co=NULL,*vold=NULL,*fenv=NULL,sigma=0.,
co                148 src/nonlingeo.c   icol=*icolp;irow=*irowp;co=*cop;vold=*voldp;
co                324 src/nonlingeo.c                        v,&network,physcon,shcon,ntmat_,co,
co                332 src/nonlingeo.c 		 iendset,&kontri,&ntri,&co,&vold,&ntrit,inocs,mi);
co                429 src/nonlingeo.c 	  iperturb,ikboun,nboun,co,istep,&xnoels);
co                596 src/nonlingeo.c 	      co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                618 src/nonlingeo.c       FORTRAN(nonlinmpc,(co,vold,ipompc,nodempc,coefmpc,labmpc,
co                651 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,vold,stn,inum,stx,
co                695 src/nonlingeo.c       FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounold,nboun,
co                723 src/nonlingeo.c 	  frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
co                822 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co                948 src/nonlingeo.c 	      co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co                955 src/nonlingeo.c        shcon,nshcon,ipkon,kon,co,
co                968 src/nonlingeo.c 	  compfluid(&co,nk,&ipkonf,&kon,&lakonf,&sideface,
co               1032 src/nonlingeo.c                      cg,straight,co,vold,istep,&iinc,&iit,itiefac,
co               1062 src/nonlingeo.c 		  co,vold,ielmat,cs,elcon,istep,&iinc,&iit,ncmat_,ntmat_,
co               1146 src/nonlingeo.c       FORTRAN(nonlinmpc,(co,vold,ipompc,nodempc,coefmpc,labmpc,
co               1251 src/nonlingeo.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co               1279 src/nonlingeo.c 	  results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co               1342 src/nonlingeo.c 	      co,vold,itg,&ntg,amname,ikboun,ilboun,nelemload,sideload,mi,
co               1349 src/nonlingeo.c              ntmat_,vold,shcon,nshcon,ipkon,kon,co,
co               1375 src/nonlingeo.c                       straight,nkon,co,vold,ielmat,cs,elcon,istep,
co               1423 src/nonlingeo.c 	  FORTRAN(nonlinmpc,(co,vold,ipompc,nodempc,coefmpc,labmpc,
co               1464 src/nonlingeo.c 	      results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co               1500 src/nonlingeo.c 	FORTRAN(mafillsm,(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xbounact,nboun,
co               1523 src/nonlingeo.c 	    FORTRAN(mafillsmas,(co,nk,kon,ipkon,lakon,ne,nodeboun,
co               1557 src/nonlingeo.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1595 src/nonlingeo.c 	  FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
co               1633 src/nonlingeo.c 	  frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
co               1825 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co               1988 src/nonlingeo.c       checkconvergence(co,nk,kon,ipkon,lakon,ne,stn,nmethod, 
co               2078 src/nonlingeo.c 		   co,vold,xo,yo,zo,x,y,z,nx,ny,nz,mi,
co               2127 src/nonlingeo.c       results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co               2155 src/nonlingeo.c 	frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
co               2172 src/nonlingeo.c 	  frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
co               2229 src/nonlingeo.c     results(co,nk,kon,ipkon,lakon,ne,v,stn,inum,stx,
co               2257 src/nonlingeo.c       frdcyc(co,nk,kon,ipkon,lakon,ne,v,stn,inum,nmethod,kode,filab,een,
co               2275 src/nonlingeo.c 	frd(co,nk,kon,ipkon,lakon,&ne0,v,stn,inum,nmethod,
co               2431 src/nonlingeo.c   *icolp=icol;*irowp=irow;*cop=co;*voldp=vold;
co                 27 src/precontact.c         double *cg, double *straight, double *co,double *vold,
co                 51 src/precontact.c     FORTRAN(updatecontpen,(koncont,ncont,co,vold,
co                 82 src/precontact.c 		co,vold,xo,yo,zo,x,y,z,nx,ny,nz,istep,iinc,iit,
co                143 src/precontact.c 			lakon,straight,nintpoint,koncont,co,vold,
co                 38 src/radcyc.c        pi,*v=NULL,*fn=NULL,*stn=NULL,*een=NULL,*qfn=NULL,*co=NULL,
co                 43 src/radcyc.c     kontri=*kontrip;co=*cop;vold=*voldp;
co                129 src/radcyc.c     RENEW(co,double,3**nk*nsegments);
co                137 src/radcyc.c     FORTRAN(rectcyl,(co,v,fn,stn,qfn,een,cs,nk,&icntrl,t,filab,&imag,mi,emn));
co                147 src/radcyc.c   	  co[3*l+i*3**nk]=co[3*l];
co                148 src/radcyc.c   	  co[1+3*l+i*3**nk]=co[1+3*l]-theta;
co                149 src/radcyc.c   	  co[2+3*l+i*3**nk]=co[2+3*l];
co                157 src/radcyc.c     FORTRAN(rectcyl,(co,vt,fnt,stnt,qfnt,eent,cs,&nkt,&icntrl,t,filab,
co                160 src/radcyc.c     *kontrip=kontri;*cop=co;*voldp=vold;
co                 50 src/radflowload.c                  ITG *nshcon,ITG *ipkon,ITG *kon,double *co,
co                117 src/radflowload.c 			   xbodyact,co,nbody,network,&iin_abs,vold,set,
co                128 src/radflowload.c 			   xbodyact,co,nbody,network,&iin_abs,vold,set,
co                136 src/radflowload.c 			  lakon,ntmat_,v,shcon,nshcon,ipkon,kon,co,nflow,
co                155 src/radflowload.c 			     shcon,nshcon,ipkon,kon,co,nflow,iinc,
co                176 src/radflowload.c 				 shcon,nshcon,ipkon,kon,co,nflow,iinc,
co                193 src/radflowload.c 	       xloadact,lakon,ntmat_,v,shcon,nshcon,ipkon,kon,co,
co                292 src/radflowload.c 			    v,shcon,nshcon,ipkon,kon,co,nflow, dtime,ttime,time,
co                395 src/radflowload.c 	      FORTRAN(geomview,(vold,co,pmid,e1,e2,e3,kontri,area,
co                407 src/radflowload.c 	      sideload1=sideload;vold1=vold;co1=co;pmid1=pmid;
co                479 src/radflowload.c           xloadact,lakon,vold,ipkon,kon,co,nloadtr,tarea,tenv,physcon,
co                 42 src/results.c  void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
co                169 src/results.c  	FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
co                182 src/results.c  	co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;ne1=ne;v1=v;
co                268 src/results.c  	co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;v1=v;
co                339 src/results.c      FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                 42 src/resultsinduction.c void resultsinduction(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
co                176 src/resultsinduction.c 	FORTRAN(frditeration,(co,nk,kon,ipkon,lakon,ne,v,
co                185 src/resultsinduction.c 	co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;v1=v;elcon1=elcon;
co                219 src/resultsinduction.c 	co1=co;kon1=kon;ipkon1=ipkon;lakon1=lakon;v1=v;
co                290 src/resultsinduction.c     FORTRAN(resultsprint,(co,nk,kon,ipkon,lakon,ne,v,stn,inum,
co                104 src/steadystate.c     time,dtime,reltime,*co=NULL,*xboun=NULL,*xbounold=NULL,
co                134 src/steadystate.c   co=*cop;kon=*konp;ipkon=*ipkonp;lakon=*lakonp;ielmat=*ielmatp;
co                477 src/steadystate.c       RENEW(co,double,3**nk*nsectors);
co                482 src/steadystate.c       for(i=3**nk;i<3**nk*nsectors;i++){co[i]=0.;}
co                541 src/steadystate.c       expand(co,nk,kon,ipkon,lakon,ne,nodeboun,ndirboun,xboun,nboun,
co                616 src/steadystate.c 	  nload,nodeboun,nboun,ndirboun,ithermal,co,vold,mi,ielmat));
co                967 src/steadystate.c 	      FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
co               1019 src/steadystate.c                nodeforc,ndirforc,istep,&iinc,co,vold,itg,&ntg,amname,
co               1047 src/steadystate.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1192 src/steadystate.c 	  FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               1593 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stnr,inum,
co               1621 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stnr,inum,
co               1658 src/steadystate.c 	  frd(co,&nkg,kon,ipkon,lakon,&neg,vr,stnr,inum,nmethod,
co               1679 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vi,stni,inum,
co               1707 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vi,stni,inum,
co               1860 src/steadystate.c 	  frd(co,&nkg,kon,ipkon,lakon,&neg,vi,stni,inum,nmethod,
co               2030 src/steadystate.c 	    nodeboun,ndirboun,nodeforc,ndirforc,istep,&iinc,co,vold,itg,&ntg,
co               2243 src/steadystate.c 		  FORTRAN(mafilldm,(co,nk,kon,ipkon,lakon,ne,nodeboun,
co               2303 src/steadystate.c 	      FORTRAN(rhs,(co,nk,kon,ipkon,lakon,ne,
co               2706 src/steadystate.c 	      results(co,nk,kon,ipkon,lakon,ne,vr,stn,inum,
co               2735 src/steadystate.c 	      frd(co,&nkg,kon,ipkon,lakon,&neg,vr,stn,inum,nmethod,
co               2803 src/steadystate.c       RENEW(co,double,3**nk);
co               2890 src/steadystate.c   *cop=co;*konp=kon;*ipkonp=ipkon;*lakonp=lakon;*ielmatp=ielmat;
co                 30 src/tiedcontact.c 	       ITG *ithermal, double *co, double *vold, ITG *cfd,
co                 78 src/tiedcontact.c 	  ialset,itietri,lakon,ipkon,kon,koncont,kind1,kind2,co,nk));
co                 99 src/tiedcontact.c   FORTRAN(updatecont,(koncont,&ncont,co,vold,cg,straight,mi));
co                175 src/tiedcontact.c 	  koncont,co,xo,yo,zo,x,y,z,nx,ny,nz,nset,