added flexibple polynomials in vbasis set. Some I/O rouintes

globalseismology · Dec 23, 2023 · 55fc867 · 55fc867
1 parent de99c46
commit 55fc867
Show file tree

Hide file tree

Showing 5 changed files with 259 additions and 63 deletions.
diff --git a/avni/f2py.cpython-37m-darwin.so.dSYM/Contents/Info.plist b/avni/f2py.cpython-37m-darwin.so.dSYM/Contents/Info.plist
diff --git a/avni/f2py/CAGCRAYS/emcommon.h b/avni/f2py/CAGCRAYS/emcommon.h
@@ -2,7 +2,7 @@
 c
       common /empar1/ emtitle
 c
-      parameter (maxlev=1000)
+      parameter (maxlev=1500)
       real*8 radlev(maxlev)
       real*8 rholev(maxlev)
       real*8 vpvlev(maxlev)
@@ -33,7 +33,7 @@ c
       real*8 gravspl(3,maxlev)
 c
       real*8 work(3,maxlev)
-c      
+c
       common /empar2/ radlev,
      #       rholev,rhospl,
      #       vpvlev,vpvspl,
@@ -61,4 +61,4 @@ c
      #       itoplev,
      #       ibotlev,
      #       numemreg
-     
+
diff --git a/avni/f2py/CAGCRAYS/emcommonb.h b/avni/f2py/CAGCRAYS/emcommonb.h
@@ -2,7 +2,7 @@
 c
       common /empar1/ emtitle
 c
-      parameter (maxlev=1000)
+      parameter (maxlev=1500)
       real*8 radlev(maxlev)
       real*8 rholev(maxlev)
       real*8 vpvlev(maxlev)