modernize mtx_def (trivial)

Author: pmocz

mtx/make/makefile_base

@@ -13,7 +13,7 @@ include $(MESA_DIR)/utils/makefile_header
 # SOURCES
 
 MTX_SRCS = \
-   mtx_def.f \
+   mtx_def.f90 \
    my_lapack95.f90 \
    mtx_support.f90 \
    DGBSVX_wrapper.f90 \
@@ -96,7 +96,6 @@ SRC_PATH = $(MOD_PUBLIC_DIR):$(MOD_PRIVATE_DIR)
 
 vpath %.f $(SRC_PATH)
 vpath %.f90 $(SRC_PATH)
-vpath %.F90 $(SRC_PATH)
 vpath %.dek $(SRC_PATH)
 
 vpath %.mod $(MESA_DIR)/include

mtx/public/mtx_def.f renamed to mtx/public/mtx_def.f90

@@ -23,23 +23,23 @@
 !
 ! ***********************************************************************
 
-      module mtx_def
-      
-      implicit none
-      
-      ! matrix solver options
-      integer, parameter :: lapack = 1
-      integer, parameter :: block_thomas_dble = 2
-      integer, parameter :: block_thomas_refine = 4
-      integer, parameter :: bcyclic_dble = 5
+module mtx_def
 
-      ! sparse matrix formats
-      integer, parameter :: compressed_column_sparse = 0
-      integer, parameter :: compressed_row_sparse = 1
-      
-      ! 0 based formats for internal use only
-      integer, parameter :: compressed_col_sparse_0_based = 2
-      integer, parameter :: compressed_row_sparse_0_based = 3
+   implicit none
 
-      end module mtx_def
+   ! matrix solver options
+   integer, parameter :: lapack = 1
+   integer, parameter :: block_thomas_dble = 2
+   integer, parameter :: block_thomas_refine = 4
+   integer, parameter :: bcyclic_dble = 5
+
+   ! sparse matrix formats
+   integer, parameter :: compressed_column_sparse = 0
+   integer, parameter :: compressed_row_sparse = 1
+
+   ! 0 based formats for internal use only
+   integer, parameter :: compressed_col_sparse_0_based = 2
+   integer, parameter :: compressed_row_sparse_0_based = 3
+
+end module mtx_def