<html><head><style type='text/css'>p { margin: 0; }</style></head><body><div style='font-family: Times New Roman; font-size: 12pt; color: #000000'>Hi,<br>I don't know much about F90 compiler; I think it is crashing when it is finishing (getting out), as it is printing for me the message after set creation. <br>It seems that the vertex coords&nbsp; (coord_data) are not initialized, although this alone should not cause the crash.<br><br>Iulian<br><hr id="zwchr"><blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><br>Hi,<br><br>I'm trying to use the Fortran interface to iMesh. &nbsp;I want to create a <br>generic instance, define some vertex entities, and then put those in an <br>entity set. &nbsp;I can't figure out why the program below is giving a <br>SISSEGV error after I add the call to CreateEntSet. &nbsp;Any ideas? &nbsp; System <br>is ubuntu 10.04.3, Intel 11.1 and building off the trunk of MOAB. &nbsp;(If <br>you have an MCS account, its in ~jacob/MCTHead/examples/imesh/)<br><br>Thanks,<br>Rob<br>---------------------meshtry.F90------------------------<br>program meshtry<br><br><br>&nbsp;&nbsp; implicit none<br><br>! declarations<br>#include "iMesh_f.h"<br>&nbsp;&nbsp; integer,parameter :: mysize=20<br><br>&nbsp;&nbsp; iBase_EntityHandle :: entarry<br>&nbsp;&nbsp; iMesh_Instance :: &nbsp;mesh<br>&nbsp;&nbsp; iBase_EntitySetHandle :: sethand<br><br>&nbsp;&nbsp; IBASE_HANDLE_T :: rpcoor,rpents<br><br>&nbsp;&nbsp; real*8 coor_data(3*mysize)<br><br>&nbsp;&nbsp; pointer(rpents,entarry(0:*))<br>&nbsp;&nbsp; pointer (rpcoor, coor_data)<br><br>&nbsp;&nbsp; integer :: &nbsp;nhands,sizehand,ier,i<br>&nbsp;&nbsp; integer :: geom_dim<br><br><br>&nbsp;&nbsp; call iMesh_newMesh("MOAB", mesh, ier)<br><br><br>! try an imesh query function<br>&nbsp;&nbsp; call iMesh_getGeometricDimension(%VAL(mesh), geom_dim, ier)<br>&nbsp;&nbsp; write(0,*) "geom_dim", geom_dim,ier<br><br><br>! create vertices<br>&nbsp;&nbsp; call iMesh_createVtxArr(%VAL(mesh), %VAL(mysize), <br>%VAL(iBase_INTERLEAVED), &amp;<br>&nbsp;&nbsp; &nbsp; rpcoor,%VAL(3*mysize),rpents,nhands,sizehand,ier)<br>&nbsp;&nbsp; write(0,*) "handles",nhands,sizehand,ier<br><br>&nbsp;&nbsp; call iMesh_createEntSet(%VAL(mesh), %VAL(1), &amp;<br>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; sethand,ier)<br>&nbsp;&nbsp; write(0,*) "createset",ier<br><br><br>end<br></blockquote><br></div></body></html>