make getdiagonal_simple, CheckInterAllHermite_simple, and ArrangeInte…

…rAllOffDiagonal
issp-center-dev · Apr 17, 2024 · 68ebc47 · 68ebc47
1 parent df0277d
commit 68ebc47
Show file tree

Hide file tree

Showing 2 changed files with 325 additions and 22 deletions.
diff --git a/src/include/readdef.h b/src/include/readdef.h
@@ -91,6 +91,17 @@ int CheckInterAllHermite
         const int iCalcModel
 );
 
+int CheckInterAllHermite_simple
+        (
+                int **InterAll,
+                double complex* ParaInterAll,
+                int **InterAllOffDiagonal,
+                double complex*ParaInterAllOffDiagonal,
+                const int NInterAllOffDiagonal,
+                const int iCalcModel
+        );
+
+
 /*
 int GetDiagonalInterAll
 (
@@ -114,6 +125,30 @@ int GetDiagonalInterAll
                                 const int iCalcModel
                 );
 
+int GetDiagonalInterAll_simple
+        (
+                int **InterAll,
+                complex double *ParaInterAll,
+                const int NInterAll,
+                int **InterAllDiagonal,
+                double *ParaInterAllDiagonal,
+                int **InterAllOffDiagonal,
+                complex double *ParaInterAllOffDiagonal,
+                int *Chemi,
+                int *SpinChemi,
+                double *ParaChemi,
+                unsigned int *NChemi,
+                const int iCalcModel
+        );
+
+int ArrangeInterAllOffDiagonal
+(
+ const int NInterAllOffDiagonal,
+ int **InterAllOffDiagonal,
+ complex double *ParaInterAllOffDiagonal,
+ const int iCalcModel
+);
+
 int JudgeDefType
 (
  const int argc,