Add extended API with _64 suffix to MATGEN

mkrainiuk · mkrainiuk · commit 19d3a4e63859 · 2024-02-05T10:28:26.000-08:00
diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt
@@ -47,7 +47,28 @@ if(BUILD_COMPLEX16)
 endif()
 list(REMOVE_DUPLICATES SOURCES)
 
-add_library(${TMGLIB} ${SOURCES})
+add_library(${TMGLIB}_obj OBJECT ${SOURCES})
+set_target_properties(
+  ${TMGLIB}_obj PROPERTIES
+  POSITION_INDEPENDENT_CODE ON
+  Fortran_PREPROCESS ON
+  )
+
+if(BUILD_INDEX64_EXT_API)
+  set(SOURCES_64)
+  list(APPEND SOURCES_64 ${SOURCES})
+  add_library(${TMGLIB}_64_obj OBJECT ${SOURCES_64})
+  target_compile_options(${TMGLIB}_64_obj PRIVATE ${FOPT_ILP64} -DMATGEN_64)
+  set_target_properties(
+    ${TMGLIB}_64_obj PROPERTIES
+    POSITION_INDEPENDENT_CODE ON
+    Fortran_PREPROCESS ON
+  )
+endif()
+
+add_library(${TMGLIB}
+        $<TARGET_OBJECTS:${TMGLIB}_obj>
+        $<$<BOOL:${BUILD_INDEX64_EXT_API}>: $<TARGET_OBJECTS:${TMGLIB}_64_obj>>)
 
 set_target_properties(
   ${TMGLIB} PROPERTIES
diff --git a/TESTING/MATGEN/clagge.f b/TESTING/MATGEN/clagge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAGGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/claghe.f b/TESTING/MATGEN/claghe.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAGHE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clagsy.f b/TESTING/MATGEN/clagsy.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAGSY
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clahilb.f b/TESTING/MATGEN/clahilb.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAHILB
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clakf2.f b/TESTING/MATGEN/clakf2.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAKF2
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clarge.f b/TESTING/MATGEN/clarge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLARGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clarnd.f b/TESTING/MATGEN/clarnd.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLARND
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/claror.f b/TESTING/MATGEN/claror.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAROR
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clarot.f b/TESTING/MATGEN/clarot.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLAROT
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatm1.f b/TESTING/MATGEN/clatm1.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATM1
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatm2.f b/TESTING/MATGEN/clatm2.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATM2
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatm3.f b/TESTING/MATGEN/clatm3.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATM3
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatm5.f b/TESTING/MATGEN/clatm5.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATM5
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatm6.f b/TESTING/MATGEN/clatm6.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATM6
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatme.f b/TESTING/MATGEN/clatme.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATME
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatmr.f b/TESTING/MATGEN/clatmr.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATMR
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatms.f b/TESTING/MATGEN/clatms.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATMS
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/clatmt.f b/TESTING/MATGEN/clatmt.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b CLATMT
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlagge.f b/TESTING/MATGEN/dlagge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLAGGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlagsy.f b/TESTING/MATGEN/dlagsy.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLAGSY
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlahilb.f b/TESTING/MATGEN/dlahilb.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLAHILB
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlakf2.f b/TESTING/MATGEN/dlakf2.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLAKF2
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlaran.f b/TESTING/MATGEN/dlaran.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLARAN
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlarge.f b/TESTING/MATGEN/dlarge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLARGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlarnd.f b/TESTING/MATGEN/dlarnd.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLARND
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlaror.f b/TESTING/MATGEN/dlaror.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLAROR
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlarot.f b/TESTING/MATGEN/dlarot.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLAROT
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatm1.f b/TESTING/MATGEN/dlatm1.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATM1
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatm2.f b/TESTING/MATGEN/dlatm2.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATM2
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATM3
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatm5.f b/TESTING/MATGEN/dlatm5.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATM5
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatm6.f b/TESTING/MATGEN/dlatm6.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATM6
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatm7.f b/TESTING/MATGEN/dlatm7.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATM7
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatme.f b/TESTING/MATGEN/dlatme.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATME
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatmr.f b/TESTING/MATGEN/dlatmr.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATMR
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatms.f b/TESTING/MATGEN/dlatms.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATMS
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/dlatmt.f b/TESTING/MATGEN/dlatmt.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b DLATMT
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/matgen_64.h b/TESTING/MATGEN/matgen_64.h
@@ -0,0 +1,81 @@
+#ifndef MATGEN_64_H
+#define MATGEN_64_H
+#ifdef MATGEN_64
+
+#define CLAGGE CLAGGE_64
+#define CLAGHE CLAGHE_64
+#define CLAGSY CLAGSY_64
+#define CLAHILB CLAHILB_64
+#define CLAKF2 CLAKF2_64
+#define CLARGE CLARGE_64
+#define CLARND CLARND_64
+#define CLAROR CLAROR_64
+#define CLAROT CLAROT_64
+#define CLATM1 CLATM1_64
+#define CLATM2 CLATM2_64
+#define CLATM3 CLATM3_64
+#define CLATM5 CLATM5_64
+#define CLATM6 CLATM6_64
+#define CLATME CLATME_64
+#define CLATMR CLATMR_64
+#define CLATMS CLATMS_64
+#define CLATMT CLATMT_64
+#define DLAGGE DLAGGE_64
+#define DLAGSY DLAGSY_64
+#define DLAHILB DLAHILB_64
+#define DLAKF2 DLAKF2_64
+#define DLARAN DLARAN_64
+#define DLARGE DLARGE_64
+#define DLARND DLARND_64
+#define DLAROR DLAROR_64
+#define DLAROT DLAROT_64
+#define DLATM1 DLATM1_64
+#define DLATM2 DLATM2_64
+#define DLATM3 DLATM3_64
+#define DLATM5 DLATM5_64
+#define DLATM6 DLATM6_64
+#define DLATM7 DLATM7_64
+#define DLATME DLATME_64
+#define DLATMR DLATMR_64
+#define DLATMS DLATMS_64
+#define DLATMT DLATMT_64
+#define SLAGGE SLAGGE_64
+#define SLAGSY SLAGSY_64
+#define SLAHILB SLAHILB_64
+#define SLAKF2 SLAKF2_64
+#define SLARAN SLARAN_64
+#define SLARGE SLARGE_64
+#define SLARND SLARND_64
+#define SLAROR SLAROR_64
+#define SLAROT SLAROT_64
+#define SLATM1 SLATM1_64
+#define SLATM2 SLATM2_64
+#define SLATM3 SLATM3_64
+#define SLATM5 SLATM5_64
+#define SLATM6 SLATM6_64
+#define SLATM7 SLATM7_64
+#define SLATME SLATME_64
+#define SLATMR SLATMR_64
+#define SLATMS SLATMS_64
+#define SLATMT SLATMT_64
+#define ZLAGGE ZLAGGE_64
+#define ZLAGHE ZLAGHE_64
+#define ZLAGSY ZLAGSY_64
+#define ZLAHILB ZLAHILB_64
+#define ZLAKF2 ZLAKF2_64
+#define ZLARGE ZLARGE_64
+#define ZLARND ZLARND_64
+#define ZLAROR ZLAROR_64
+#define ZLAROT ZLAROT_64
+#define ZLATM1 ZLATM1_64
+#define ZLATM2 ZLATM2_64
+#define ZLATM3 ZLATM3_64
+#define ZLATM5 ZLATM5_64
+#define ZLATM6 ZLATM6_64
+#define ZLATME ZLATME_64
+#define ZLATMR ZLATMR_64
+#define ZLATMS ZLATMS_64
+#define ZLATMT ZLATMT_64
+
+#endif
+#endif
diff --git a/TESTING/MATGEN/slagge.f b/TESTING/MATGEN/slagge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLAGGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slagsy.f b/TESTING/MATGEN/slagsy.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLAGSY
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slahilb.f b/TESTING/MATGEN/slahilb.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLAHILB
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slakf2.f b/TESTING/MATGEN/slakf2.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLAKF2
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slaran.f b/TESTING/MATGEN/slaran.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLARAN
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slarge.f b/TESTING/MATGEN/slarge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLARGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slarnd.f b/TESTING/MATGEN/slarnd.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLARND
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slaror.f b/TESTING/MATGEN/slaror.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLAROR
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slarot.f b/TESTING/MATGEN/slarot.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLAROT
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatm1.f b/TESTING/MATGEN/slatm1.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATM1
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatm2.f b/TESTING/MATGEN/slatm2.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATM2
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatm3.f b/TESTING/MATGEN/slatm3.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATM3
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatm5.f b/TESTING/MATGEN/slatm5.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATM5
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatm6.f b/TESTING/MATGEN/slatm6.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATM6
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatm7.f b/TESTING/MATGEN/slatm7.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATM7
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatme.f b/TESTING/MATGEN/slatme.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATME
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatmr.f b/TESTING/MATGEN/slatmr.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATMR
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatms.f b/TESTING/MATGEN/slatms.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATMS
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/slatmt.f b/TESTING/MATGEN/slatmt.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b SLATMT
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/zlagge.f b/TESTING/MATGEN/zlagge.f
@@ -1,3 +1,4 @@
+#include "matgen_64.h"
 *> \brief \b ZLAGGE
 *
 *  =========== DOCUMENTATION ===========
diff --git a/TESTING/MATGEN/zlaghe.f b/TESTING/MATGEN/zlaghe.f
diff --git a/TESTING/MATGEN/zlagsy.f b/TESTING/MATGEN/zlagsy.f
diff --git a/TESTING/MATGEN/zlahilb.f b/TESTING/MATGEN/zlahilb.f
diff --git a/TESTING/MATGEN/zlakf2.f b/TESTING/MATGEN/zlakf2.f
diff --git a/TESTING/MATGEN/zlarge.f b/TESTING/MATGEN/zlarge.f
diff --git a/TESTING/MATGEN/zlarnd.f b/TESTING/MATGEN/zlarnd.f
diff --git a/TESTING/MATGEN/zlaror.f b/TESTING/MATGEN/zlaror.f
diff --git a/TESTING/MATGEN/zlarot.f b/TESTING/MATGEN/zlarot.f
diff --git a/TESTING/MATGEN/zlatm1.f b/TESTING/MATGEN/zlatm1.f
diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f
diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f
diff --git a/TESTING/MATGEN/zlatm5.f b/TESTING/MATGEN/zlatm5.f
diff --git a/TESTING/MATGEN/zlatm6.f b/TESTING/MATGEN/zlatm6.f
diff --git a/TESTING/MATGEN/zlatme.f b/TESTING/MATGEN/zlatme.f
diff --git a/TESTING/MATGEN/zlatmr.f b/TESTING/MATGEN/zlatmr.f
diff --git a/TESTING/MATGEN/zlatms.f b/TESTING/MATGEN/zlatms.f
diff --git a/TESTING/MATGEN/zlatmt.f b/TESTING/MATGEN/zlatmt.f

Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAGGE`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAGHE`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAGSY`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAHILB`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAKF2`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLARGE`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLARND`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAROR`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`
Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+#include "matgen_64.h"`
`1`	`2`	`*> \brief \b CLAROT`
`2`	`3`	`*`
`3`	`4`	`* =========== DOCUMENTATION ===========`