removed call to offsetof, because it used to crash by rangechecking.
authorMilind Bhandarkar <milind@cs.uiuc.edu>
Tue, 8 Aug 2000 20:47:49 +0000 (20:47 +0000)
committerMilind Bhandarkar <milind@cs.uiuc.edu>
Tue, 8 Aug 2000 20:47:49 +0000 (20:47 +0000)
tests/fem/femtest/fpgm.f90

index afcd6ab5a19ae0abf9987e2adc0167e1fe3ecb31..17219b69986d551b32757c34977ef6da5fb5e1cf 100644 (file)
@@ -47,7 +47,7 @@ include 'femf.h'
   do i=1,nnodes
     if (nnums(i) .eq. 1) nodes(i) = 1.0
   enddo
-  fid = FEM_Create_Field(FEM_DOUBLE, 1, 0, offsetof(nodes(1),nodes(2)))
+  fid = FEM_Create_Field(FEM_DOUBLE, 1, 0, 8)
   do i=1,nelems
     do j=1,npere
       elements(i) = elements(i) + nodes(conn(i,j))