num, star: cleanup after mtx quad precision removal

MESAHub · Sep 30, 2024 · 0d2edc4 · 0d2edc4
1 parent 97e531b
commit 0d2edc4
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/num/public/num_def.f b/num/public/num_def.f
@@ -56,7 +56,6 @@ module num_def
       integer, parameter :: square_matrix_type = 1
       integer, parameter :: banded_matrix_type = 2
       integer, parameter :: block_tridiag_dble_matrix_type = 3
-      integer, parameter :: block_tridiag_quad_matrix_type = 4
 
 
       ! parameter indices in newton iwork array

diff --git a/star/private/star_utils.f90 b/star/private/star_utils.f90
@@ -2833,8 +2833,6 @@ end subroutine show_matrix
 
       ! e00(i,j,k) is partial of equ(i,k) wrt var(j,k)
       subroutine e00(s,i,j,k,nvar,v)
-         use num_def, only: &
-            block_tridiag_dble_matrix_type, block_tridiag_quad_matrix_type
          type (star_info), pointer :: s
          integer, intent(in) :: i, j, k, nvar
          real(dp), intent(in) :: v
@@ -2888,8 +2886,6 @@ end subroutine e00
 
       ! em1(i,j,k) is partial of equ(i,k) wrt var(j,k-1)
       subroutine em1(s,i,j,k,nvar,v)
-         use num_def, only: &
-            block_tridiag_dble_matrix_type, block_tridiag_quad_matrix_type
          type (star_info), pointer :: s
          integer, intent(in) :: i, j, k, nvar
          real(dp), intent(in) :: v
@@ -2940,8 +2936,6 @@ end subroutine em1
 
       ! ep1(i,j,k) is partial of equ(i,k) wrt var(j,k+1)
       subroutine ep1(s,i,j,k,nvar,v)
-         use num_def, only: &
-            block_tridiag_dble_matrix_type, block_tridiag_quad_matrix_type
          type (star_info), pointer :: s
          integer, intent(in) :: i, j, k, nvar
          real(dp), intent(in) :: v