Merge pull request #161 from issp-center-dev/modify_hermite_check_pro…

…cedure Modify hermite check procedure
issp-center-dev · May 2, 2024 · 5a0b76d · 5a0b76d
2 parents d0c011e + f674795
commit 5a0b76d
Show file tree

Hide file tree

Showing 2 changed files with 370 additions and 38 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,