Commit 0d09ac1e authored by vijaysm's avatar vijaysm
Browse files

Fix iMOAB fortran example and how it is compiled

parent da038959
......@@ -18,6 +18,7 @@ endif
LDADD = $(top_builddir)/src/libMOAB.la
MESHDIR = $(abs_top_srcdir)/MeshFiles/unittest
RMESHDIR = $(top_srcdir)/MeshFiles/unittest
AM_CPPFLAGS = -DIS_BUILDING_MB \
-DSRCDIR=$(srcdir) \
......@@ -82,7 +83,6 @@ endif
endif
endif
# merge_test \ # input files no longer exist?
# test_tag_server \ # fails
......@@ -90,7 +90,6 @@ check_PROGRAMS = $(TESTS) \
kd_tree_tool \
kd_tree_time
MOSTLYCLEANFILES = mb_write.g \
mb_write2.g \
hex_mid_volume_nodes.g \
......@@ -109,18 +108,12 @@ MOSTLYCLEANFILES = mb_write.g \
fnew.h5m
# Tests and such
test_Matrix3_SOURCES = test_Matrix3.cpp
if ENABLE_FORTRAN
imoab_testF_SOURCES = imoab_testF.F
# -DMOAB_HAVE_MPI is added just for fortran compiling; is that wrong?
# still don't know how to "stringify" for the mesh input files
if PARALLEL
imoab_testF_FFLAGS = -DMOAB_HAVE_MPI -DMESHDIR=\"$(MESHDIR)\" -ffixed-line-length-none
else
imoab_testF_FFLAGS = -DMESHDIR=\"$(MESHDIR)\" -ffixed-line-length-none
endif
imoab_testF_FFLAGS = -DMESHDIR2=\"$(RMESHDIR)\" $(FFLAGS)
imoab_testF_LDADD = $(LDADD) $(FCLIBS)
endif
imoab_test_SOURCES = imoab_test.cpp
verdict_test_SOURCES = verdict_test.cpp
range_test_SOURCES = range_test.cpp
......
SUBROUTINE errorout(ierr, message)
integer ierr
character (*) message
character*(*) message
if (ierr.ne.0) then
print *, message
call exit (1)
......@@ -9,7 +9,7 @@
return
end
#include "moab/MOABConfig.h"
program fdriver
#ifdef MOAB_HAVE_MPI
include 'mpif.h'
......@@ -51,8 +51,6 @@ C IWORK(egID) , IWORK(elID) starts for global el ID, local elem ID
C indices for surface BC element, reference surf BC, value
integer isBC, irBC, ivBC
character*100 outfile, wopts
my_id = 0
#ifdef MOAB_HAVE_MPI
......@@ -86,8 +84,8 @@ c find out MY process ID, and how many processes were started.
#endif
call errorout(ierr, 'fail to register application')
C
tmpfile = MESHDIR
filename = trim(tmpfile) // '/io/p8ex1.h5m' //CHAR(0)
tmpfile = MESHDIR2
filename = trim(tmpfile) // '/io/p8ex1.h5m' // CHAR(0)
ierr = iMOAB_ReadHeaderInfo ( filename, ngv, nge, ndim, nparts)
call errorout(ierr, 'fail to read header info')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment