C*********************************************************************** C C File: surfac.cmn C C MSC.Marc include file C c ** Start of generated type statements ** integer iarclstr, iattch, iattold, icrvstrlst, idstring, iedgept integer ientent, iiattld, iibdycrv, iibdysrf, iidstring, iiendndcv integer iintcur, iintpnt, iintsur, iinumedgcv, iinumedgcvo integer iinumfacsf, iinumfacsfo, indatt, jintcur, jintpnt, jintsur integer kassaut, kassinm, kassrnm, kasstyp, kassvti, kassvtr integer kedgatt, kfacatt, lrgcur, lrgpnt, lrgsur, maxcrv integer maxcrvstr, maxedg, maxedgal, maxedgcv, maxfac, maxfacal integer maxpnt, maxstrng, maxsur, maxvtx, mptintc, mptintp integer mptints, mxndatt, mxndattal, mxnouc, mxnous, mxnpuc integer mxnpus, mxnpuvc, mxnpuvs, ncuralloc, ncurinalloc integer ncurrlalloc, nmcrvs, nmintsc, nmintsp, nmintss, nmpts integer nmrelsc, nmrelsp, nmrelss, nmsrfs, npntalloc, npntinalloc integer npntrlalloc, nsfnd, nsuralloc, nsurinalloc, nsurrlalloc real*8 varclcrv, vendcdcv, vrelcur, vrelpnt, vrelsur c ** End of generated type statements ** parameter (mptintp=4) parameter (mptintc=6) parameter (mptints=9) pointer (piptintp,iintpnt(mptintp,*)) pointer (piptintc,iintcur(mptintc,*)) pointer (piptints,iintsur(mptints,*)) pointer (pjptintp,jintpnt(*)) pointer (pjptintc,jintcur(*)) pointer (pjptints,jintsur(*)) pointer (piptrelp,vrelpnt(*)) pointer (piptrelc,vrelcur(*)) pointer (piptrels,vrelsur(*)) pointer (parclcrv,varclcrv(2,*)) pointer (pendcdcv,vendcdcv(2,3,*)) pointer (pdstring,iidstring(*)) pointer (pnumedgcv,iinumedgcv(*)) pointer (pnumedgcvo,iinumedgcvo(*)) pointer (pattld,iiattld(*)) pointer (pendndcv,iiendndcv(2,*)) pointer (pbdycrv,iibdycrv(*)) pointer (pbdysrf,iibdysrf(*)) pointer (pnumfacsf,iinumfacsf(*)) pointer (pnumfacsfo,iinumfacsfo(*)) integer num_surfac,num_geom_info parameter(num_surfac=48) parameter(num_geom_info=9) common/marc_surfac/ 1 maxpnt,maxcrv,maxsur,nmrelsp,nmrelsc,nmrelss, 2 iattch,indatt,mxnpuc,mxnpus,mxnouc,mxnous, 3 mxnpuvc,mxnpuvs,maxfac,kfacatt,nmintsp,nmintsc, 4 nmintss,maxvtx,kassvti,kassvtr,kasstyp,kassrnm, 5 kassaut,kassinm,maxedg,kedgatt,nmpts,nmcrvs, 6 nmsrfs,mxndatt,maxfacal,maxedgal,mxndattal,lrgpnt, 7 lrgcur,lrgsur,iedgept,nsfnd,iattold,ientent, 8 idstring,iarclstr,maxstrng,maxcrvstr,icrvstrlst,maxedgcv common/marc_spacegeom/piptintp,piptintc,piptints, * pjptintp,pjptintc,pjptints,piptrelp,piptrelc,piptrels, * parclcrv,pendcdcv,pdstring,pnumedgcv,pnumedgcvo, * pattld,pendndcv,pbdycrv,pbdysrf,pnumfacsf,pnumfacsfo common/marc_geom_info/npntalloc,npntinalloc,npntrlalloc, * ncuralloc,ncurinalloc,ncurrlalloc, * nsuralloc,nsurinalloc,nsurrlalloc c c maxpnt - maximum number of points c maxcrv - maximum number of curves c maxsur - maximum number of surfaces c iptintp - array to control information about point entity c (1,ll) point id c (2,ll) not used c (3,ll) address of first real word associated with this entity c iptintc - array to control information about curve entity c (1,ll) curve id c (2,ll) curve type c (3,ll) address of first real word associated with this entity c (4,ll) address of first integer word associated with this entitiy c (5,ll) number of control points in u direction , or number of points, etc c (6,ll) order in u direction c iptints - array to control information about surface entity c (1,ll) surface id c (2,ll) surface type c (3,ll) address of first real word associated with this entity c (4,ll) address of first integer word associated with this entitiy c (5,ll) number of control points in u direction , or number of points, etc c (6,ll) order in u direction c (7,ll) number of control points in v direction c (8,ll) order in v direction c (9,ll) number of trimming curves c nmrelsp - number of real data for points c nmrelsc - number of real data for curves c nmrelss - number of real data for surfaces c iattch - flag indicating if attach node is used c indatt - pointer to node numbers used by attach node c mxnpuc - maximum number of control points in u direction for curves c mxnpus - maximum number of control points in u direction for surfaces c mxnouc - maximum order for curves c mxnous - maximum order for surfaces c mxnpuvc - maximum number of control points u*v for curves c mxnpuvs - maximum number of control points u*v for surfaces c maxfac - maximum number of faces in used by attach face c mptintp - dimension for array iptint for points c mptintc - dimension for array iptint for curves c mptints - dimension for array iptint for surfaces c kfacatt - pointer to face information - holds surface id, element, face c nmintsp - number of integer data for points c nmintsc - number of integer data for curves c nmintss - number of integer data for surfaces c maxvtx - number of vertex points being associated c kassvti - pointer to integer data for with associativity c either element number and face number - or element number c kassvtr - pointer to real data for associativity c either 2-d xsi (edge associativity) or xsi-eta (volume associativity) c either xsi-eta (face associativity) or xsi-eta-zeta (volume associativity) c kasstyp - 2 for edge (2d) or face (3d) associativity or 1 for volume associativity c kassrnm - number of isoparametric coordinates required (1,2,or 3) c kassaut - 0 user gives initial associativity c 1 program calculates initial associativity c kassinm kasstyp+1 - dimension of kassvti array c maxfac - maximum number of edges in used by attach edge c kfacatt - pointer to edge information - holds curve id, element, edge c nmpts - number of points defined c nmcrvs - number of curves defined c nmsrfs - number of surfaces defined c mxndatt - maximum number of nodes attached to points curves or surfaces c maxfacal- maxfac allocated c maxedgal- maxedg allocated c mxndattal-mxndatt allocated c lrgpnt - largest point id c lrgcur - largest curve id c lrgsur - largest surface id c iedgept - pointer to arc length coordinates associated with edge/face c nsfnd - number of nodes on surface of element c iattold - flag indicating that surface and attach node given in old format c ientent - pointer to list of entities read through list processor c which get expanded to nodes or elements c idstring - pointer to string id of curve c iarclstr - pointer to arc length of string c maxstrng - maximum number of strings c maxcrvstr - maximum number of curves in string prior to current c curve c icrvstrlst- curves in string list c iattld - pointer to attach id, which is the one at the begining of the curve c used for arc length calculation c iendndcv - pointer to node ids that are endpoints of curve. c ibdycrv - pointer to body number of curve c ibdysrf - pointer to body number of surface c inumedgcv - pointer to number of edges attached to a given curve c maxedgcv - maximum number of edges attached to any given curve c inumedgcvo- pointer to number of edges attached to a given curve before remeshing c inumfacsf - pointer to number of faces attached to a given surface c inumfacsfo- pointer to number of faces attached to a given surface before remeshing c C C*********************************************************************** !!