From 0d2edc44e11c3942c8cf115fa1b137055f628f58 Mon Sep 17 00:00:00 2001 From: Vincent Vanlaer Date: Thu, 8 Aug 2024 23:10:06 -0400 Subject: [PATCH] num, star: cleanup after mtx quad precision removal --- num/public/num_def.f | 1 - star/private/star_utils.f90 | 6 ------ 2 files changed, 7 deletions(-) diff --git a/num/public/num_def.f b/num/public/num_def.f index d7fcc100a..d56e5e64f 100644 --- 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 index 335e9cd79..355369c10 100644 --- 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