zhangyiss/spack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
4c20d9917e
spack/var/spack/repos/builtin/packages/globalarrays/ibm-xl.patch
serbanmaerean eef7d17946 Add global arrays package (#3970) 
* Added magma package

* Incorporated Serban's change

* globalarrays: add global arrays package to Spack.

* globalarray: remove extreaneous comment from package file
2017-04-24 16:04:40 -07:00

251 lines
8.2 KiB
Diff
Raw Blame History

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 2022280..dac3b7f 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -174,6 +174,15 @@ option (F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS "Set F77 macros" ON)
if (ENABLE_FORTRAN)
include( FortranCInterface )
FortranCInterface_HEADER(${CMAKE_SOURCE_DIR}/f2c_cmake.h MACRO_NAMESPACE F77_FUNC_)
+ add_custom_command(
+ OUTPUT ${CMAKE_CURRENT_SOURCE_DIR}/f2c_cmake.fh
+ COMMAND ${CMAKE_COMMAND} -D INPUT:PATH="${CMAKE_CURRENT_SOURCE_DIR}/f2c_cmake.h" -D OUTPUT:PATH="${CMAKE_CURRENT_SOURCE_DIR}/f2c_cmake.fh" -P ${PROJECT_SOURCE_DIR}/tools/f2c_cmake_fh_from_h.cmake DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/f2c_cmake.h
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/f2c_cmake.h
+ )
+ add_custom_target(
+ GenerateF2c_cmakeFH ALL
+ DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/f2c_cmake.fh
+ )
else()
CONFIGURE_FILE( ${CMAKE_SOURCE_DIR}/cmake/f2c_dummy.h.in
${CMAKE_SOURCE_DIR}/f2c_cmake.h )
@@ -336,6 +345,15 @@ if (ENABLE_FORTRAN)
set (F77_IARGC IARGC)
set (F77_FLUSH flush)
set (HAVE_F77_FLUSH 1)
+ elseif (CMAKE_Fortran_COMPILER MATCHES "xlf.*")
+ message(STATUS "Using IBM XL Fortran compiler settings")
+ set (F90_MODULE )
+ set (F77_GETARG GETARG)
+ set (F77_GETARG_ARGS "i,s")
+ set (F77_GETARG_DECLS "intrinsic GETARG")
+ set (F77_IARGC IARGC)
+ set (F77_FLUSH flush_)
+ set (HAVE_F77_FLUSH 1)
endif()
else()
# need to set these variable even if only compiling C/C++
diff --git a/cmake/config.h.in b/cmake/config.h.in
index 3ce6a32..9ad868f 100644
--- a/cmake/config.h.in
+++ b/cmake/config.h.in
@@ -58,11 +58,11 @@
#cmakedefine01 F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
-/*#define F77_FUNC(name,NAME) F77_FUNC_GLOBAL(name,NAME)*/
-/*#define F77_FUNC_(name,NAME) F77_FUNC_GLOBAL_(name,NAME)*/
+#define F77_FUNC(name,NAME) F77_FUNC_GLOBAL(name,NAME)
+#define F77_FUNC_(name,NAME) F77_FUNC_GLOBAL_(name,NAME)
-#define F77_FUNC(name,NAME) name ## _
-#define F77_FUNC_(name,NAME) name ## _
+/* #define F77_FUNC(name,NAME) name ## _ */
+/* #define F77_FUNC_(name,NAME) name ## _ */
#define FXX_MODULE ${F90_MODULE}
#define F77_GETARG ${F77_GETARG}
diff --git a/tools/config_fh_from_h.cmake b/tools/config_fh_from_h.cmake
index acdf776..fb10422 100644
--- a/tools/config_fh_from_h.cmake
+++ b/tools/config_fh_from_h.cmake
@@ -7,6 +7,13 @@ if (INPUT)
foreach (l in ${in0})
# Only retain lines that start with "#"
set(found "")
+ string(REGEX MATCH "^#include" found "${l}")
+ if (found)
+ # don't include f2c_cmake.h
+ set(out "#include \"f2c_cmake.fh\"\n")
+ continue ()
+ endif ()
+ set(found "")
string(REGEX MATCH "^#" found "${l}")
if (found)
set(out "${out}${l}\n")
diff --git a/tools/f2c_cmake_fh_from_h.cmake b/tools/f2c_cmake_fh_from_h.cmake
new file mode 100644
index 0000000..acdf776
--- /dev/null
+++ b/tools/f2c_cmake_fh_from_h.cmake
@@ -0,0 +1,21 @@
+if (INPUT)
+ if (OUTPUT)
+ file(READ "${INPUT}" in0)
+# replace carriage returns with a semi-colon
+ string (REGEX REPLACE "\n" ";" in0 "${in0}")
+ set(out "")
+ foreach (l in ${in0})
+ # Only retain lines that start with "#"
+ set(found "")
+ string(REGEX MATCH "^#" found "${l}")
+ if (found)
+ set(out "${out}${l}\n")
+ endif ()
+ endforeach ()
+ file(WRITE "${OUTPUT}" "${out}")
+ else (OUTPUT)
+ message(ERROR "OUTPUT variable must be set")
+ endif (OUTPUT)
+else (INPUT)
+ message(ERROR "INPUT variable must be set")
+endif (INPUT)
diff --git a/global/src/cnames.h b/global/src/cnames.h
index efdec60..cadfd0a 100644
--- a/global/src/cnames.h
+++ b/global/src/cnames.h
@@ -2268,6 +2268,7 @@
#define nga_iupdate_ghosts_ F77_FUNC_(nga_iupdate_ghosts,NGA_IUPDATE_GHOSTS)
#define nga_supdate_ghosts_ F77_FUNC_(nga_supdate_ghosts,NGA_SUPDATE_GHOSTS)
#define nga_zupdate_ghosts_ F77_FUNC_(nga_zupdate_ghosts,NGA_ZUPDATE_GHOSTS)
+#define nga_update_ghosts_nb_ F77_FUNC_(nga_update_ghosts_nb, NGA_UPDATE_GHOSTS_NB)
#define ga_update6_ghosts_ F77_FUNC_(ga_update6_ghosts, GA_UPDATE6_GHOSTS)
#define ga_cupdate6_ghosts_ F77_FUNC_(ga_cupdate6_ghosts,GA_CUPDATE6_GHOSTS)
#define ga_dupdate6_ghosts_ F77_FUNC_(ga_dupdate6_ghosts,GA_DUPDATE6_GHOSTS)
diff --git a/global/testing/perform.F b/global/testing/perform.F
index b18146d..e1b9641 100644
--- a/global/testing/perform.F
+++ b/global/testing/perform.F
@@ -110,7 +110,7 @@ c
& ilo,ihi,jlo,jhi
write(6,*)'bytes loop get put',
& ' accumulate'
- call flush(6)
+ call F77_FLUSH(6)
endif
call ga_sync()
c
@@ -145,7 +145,7 @@ c
if (me .eq. 0) then
write(6,77)bytes, count, tg, 1d-6*bytes/tg,
& tp, 1d-6*bytes/tp, ta, 1d-6*bytes/ta
- call flush(6)
+ call F77_FLUSH(6)
endif
enddo
c
diff --git a/global/testing/mir_perf1.F b/global/testing/mir_perf1.F
index 074e838..3548552 100644
--- a/global/testing/mir_perf1.F
+++ b/global/testing/mir_perf1.F
@@ -133,7 +133,7 @@ c
& ' accumulate'
write(6,*)' bytes dim sec MB/s sec MB/s',
& ' sec MB/s'
- call flush(6)
+ call F77_FLUSH(6)
endif
call ga_sync()
c
@@ -174,7 +174,7 @@ c
if (me .eq. 0) then
write(6,77)bytes, chunk(loop), tg,
& 1d-6*bytes/tg,tp, 1d-6*bytes/tp, ta, 1d-6*bytes/ta
- call flush(6)
+ call F77_FLUSH(6)
endif
enddo
c
@@ -388,7 +388,7 @@ c
& ' accumulate'
write(6,*)' bytes dim sec MB/s sec MB/s',
& ' sec MB/s'
- call flush(6)
+ call F77_FLUSH(6)
endif
call ga_sync()
c
@@ -427,7 +427,7 @@ c
if (me .eq. 0) then
write(6,77)bytes, chunk(loop), tg,
& 1d-6*bytes/tg,tp, 1d-6*bytes/tp, ta, 1d-6*bytes/ta
- call flush(6)
+ call F77_FLUSH(6)
endif
enddo
c
diff --git a/global/testing/mir_perf2.F b/global/testing/mir_perf2.F
index fb50398..3b3bed6 100644
--- a/global/testing/mir_perf2.F
+++ b/global/testing/mir_perf2.F
@@ -124,7 +124,7 @@ c
& ' accumulate'
write(6,*)' bytes dim sec MB/s sec MB/s',
& ' sec MB/s'
- call flush(6)
+ call F77_FLUSH(6)
endif
call ga_sync()
c
@@ -163,7 +163,7 @@ c
if (me .eq. 0) then
write(6,77)bytes, chunk(loop), tg,
& 1d-6*bytes/tg,tp, 1d-6*bytes/tp, ta, 1d-6*bytes/ta
- call flush(6)
+ call F77_FLUSH(6)
endif
enddo
c
@@ -377,7 +377,7 @@ c
& ' accumulate'
write(6,*)' bytes dim sec MB/s sec MB/s',
& ' sec MB/s'
- call flush(6)
+ call F77_FLUSH(6)
endif
call ga_sync()
c
@@ -416,7 +416,7 @@ c
if (me .eq. 0) then
write(6,77)bytes, chunk(loop), tg,
& 1d-6*bytes/tg,tp, 1d-6*bytes/tp, ta, 1d-6*bytes/ta
- call flush(6)
+ call F77_FLUSH(6)
endif
enddo
c
diff --git a/global/testing/perfmod.F b/global/testing/perfmod.F
index ec3fe37..7770be7 100644
--- a/global/testing/perfmod.F
+++ b/global/testing/perfmod.F
@@ -119,7 +119,7 @@ c
write(6,*)'bytes loop get put',
& ' accumulate'
- call flush(6)
+ call F77_FLUSH(6)
endif
call ga_sync()
c
@@ -157,7 +157,7 @@ c
if (me .eq. 0) then
write(6,77)bytes, count, tg, 1d-6*bytes/tg,
& tp, 1d-6*bytes/tp, ta, 1d-6*bytes/ta
- call flush(6)
+ call F77_FLUSH(6)
endif
enddo
c
diff --git a/global/testing/sprsmatmult.F b/global/testing/sprsmatmult.F
index 3fdeb3f..3682c3b 100644
--- a/global/testing/sprsmatmult.F
+++ b/global/testing/sprsmatmult.F
@@ -108,7 +108,7 @@ c
print *,'Comparing distributed multiply with serial multiply'
print *
#endif
- call flush(6)
+ call F77_FLUSH(6)
endif
c
c*** Initialize the MA package
Reference in New Issue View Git Blame Copy Permalink