00001 #ifndef MESHTRANSFER_H
00002 #define MESHTRANSFER_H
00003
00004 class problem;
00005 class gtopology;
00006 class mechtop;
00007 class mechmat;
00008 class gnode;
00009 class lhsrhs;
00010
00011
00012 void newmeshread (const char *filename,long lcid);
00013
00014 long give_nodvals_ip (long dim,long nipcomp[],double *&nodvalues);
00015 void give_rfull (long lcid,double *rfull);
00016 void allipcoord (double **ipcoord);
00017
00018 void findout_parentel_ip (gtopology *gt_old,gtopology *gt_new,mechmat *mm_new,mechtop *mt_new,double **ipcoord,long *parentel_ip);
00019 void locintpoints (gtopology *gt_old,gtopology *gt_new,mechtop *mt_new,double **ipcoord,long *passedel1,long *passedel2,long nelheap,long *elheap,long *newelheap,long *susel,long *newsusel,long *parentel);
00020 void findout_parentel_nod (gtopology *gt_old,gtopology *gt_new,long *parentel_nod,long dim);
00021 void locnodes (gtopology *gt_old,gtopology *gt_new,long *parentel,long dim);
00022
00023 long whereispoint (gtopology *gt,long nsusel,long *susel,long *newsusel,long *passedel,double x,double y,char flag);
00024 long ispointinel (gnode *nod,long *elnod,double x,double y,long ndd);
00025 long isnodonlhsofline (gnode &n1,gnode &n2,double xx,double yy);
00026 long isnodonlhsof3pcurve (gnode &n1,gnode &n2,gnode &n3,double xx,double yy);
00027
00028 void transfvalues_ip_indirect (gtopology *gt_old,mechmat *mm_new,double **ipcoord,long *parentel,long nipcomp[],double *nodvalue);
00029 void transfvalues_ip_direct (gtopology *gt_old,mechmat *mm_new,const double **apcoord,const long *parentel,long nipcomp[],const mechmat *mm_old,long dim);
00030
00031 void transfvalues_nod (problem *po,problem *pn,long lcid,long dim,long ndofn,long *parentel,char spr);
00032
00033 void give_valuesinpoints (gtopology *gt,long eid,long npoints,double *xx,double *yy,long nval,double *nodvalues,double **pointval,char flag);
00034
00035 long adjacnode (gtopology *gt,double x,double y,double z);
00036
00037
00038 #endif