num, star: cleanup after mtx quad precision removal

Author: VincentVanlaer

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

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