Updated deformation functions: included many collision systems.

alisw · Nov 4, 2024 · e4b321d · e4b321d
1 parent 0b277a3
commit e4b321d
Show file tree

Hide file tree

Showing 2 changed files with 450 additions and 63 deletions.
diff --git a/src/KW/ems.f b/src/KW/ems.f
@@ -2599,7 +2599,7 @@ integer function igetJval(maproj,matarg,engy)
 c----------------------------------------------------------------------
       function piDeform(M,z,maproj,matarg,engy) !polynomial interpolation (linear)
 c----------------------------------------------------------------------
-      parameter (KDIM=8,NSYSDIM=30,MDIM=5)  
+      parameter (KDIM=8,NSYSDIM=75,MDIM=5)  
       real zar(KDIM),war(KDIM)
       real zx(NSYSDIM,KDIM),wx(NSYSDIM,KDIM,MDIM),engyx(NSYSDIM)
       integer maprojx(NSYSDIM),matargx(NSYSDIM)