GYRE v7.0 API changes in rsp_gyre and GYRE stub

Author: warrickball

gyre/public/gyre_lib_stub.f

@@ -20,6 +20,7 @@ module gyre_lib ! stub
 
   type :: wave_t
     type(grid_t), allocatable :: gr
+    integer :: n
   contains
     procedure, public :: freq
     procedure, public :: grid
@@ -32,7 +33,6 @@ module gyre_lib ! stub
     integer :: n_pg
     integer :: n_p
     integer :: n_g
-    integer :: n_k
   end type mode_t
 
   interface gyre_set_constant

star/test_suite/rsp_gyre/src/run_star_extras.f90

@@ -238,8 +238,8 @@ subroutine process_mode_ (md, ipar, rpar, retcode)
             gr = md%grid()
 
             period(md%n_pg) = 1d0/freq
-            npts(md%n_pg) = md%n_k
-            do k = 1, md%n_k
+            npts(md%n_pg) = md%n
+            do k = 1, md%n
                r(md%n_pg,k) = gr%pt(k)%x
                v(md%n_pg,k) = md%xi_r(k)            
             end do
@@ -253,7 +253,7 @@ subroutine process_mode_ (md, ipar, rpar, retcode)
                open(NEWUNIT=unit, FILE=filename, STATUS='REPLACE')
                write(unit, 130) 'x=r/R', 'Real(xi_r/R)', 'Imag(xi_r/R)', 'Real(xi_h/R)', 'Imag(xi_h/R)', 'dW/dx'
 130               format(6(1X,A24))
-               do k = 1, md%n_k
+               do k = 1, md%n
                   write(unit, 140) gr%pt(k)%x, md%xi_r(k), md%xi_h(k), md%dW_dx(k)
 140               format(6(1X,E24.16))
                end do