cleaned up old code, and removed DEBUG(81)

Author: victorkemp

Source/Interfaces/MATADD_SSS_Interface.f90

@@ -28,25 +28,21 @@ MODULE MATADD_SSS_Interface
 
    INTERFACE
 
-      SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA, MAT_B_NAME, NTERM_B, I_B, J_B, B, BETA,  &
-
+      SUBROUTINE MATADD_SSS ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, A, ALPHA,  &
+                                     MAT_B_NAME, NTERM_B, I_B, J_B, B, BETA,   &
                                      MAT_C_NAME, NTERM_C, I_C, J_C, C )
 
       USE PENTIUM_II_KIND, ONLY       :  BYTE, LONG, DOUBLE
       USE IOUNT1, ONLY                :  WRT_ERR, WRT_LOG, ERR, F04, F06
       USE SCONTR, ONLY                :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                :  TSEC
-      USE CONSTANTS_1, ONLY           :  ZERO
-      USE DEBUG_PARAMETERS, ONLY      :  DEBUG
-      USE SPARSE_ALG_ARRAYS, ONLY     :  LOGICAL_VEC, REAL_VEC
       USE SUBR_BEGEND_LEVELS, ONLY    :  MATADD_SSS_BEGEND
 
       IMPLICIT NONE
 
       CHARACTER(LEN=*), INTENT(IN)    :: MAT_A_NAME        ! Name of matrix A
       CHARACTER(LEN=*), INTENT(IN)    :: MAT_B_NAME        ! Name of matrix B
       CHARACTER(LEN=*), INTENT(IN)    :: MAT_C_NAME        ! Name of matrix C
-      CHARACTER( 2*BYTE)              :: ALG               ! Which algorithm is used in solving for the terms in a row of C
 
       INTEGER(LONG), INTENT(IN )      :: NROWS             ! Number of rows in input matrices A and B
       INTEGER(LONG), INTENT(IN )      :: NTERM_A           ! Number of nonzero terms in input matrix A

Source/Interfaces/MATADD_SSS_NTERM_Interface.f90

@@ -28,17 +28,14 @@ MODULE MATADD_SSS_NTERM_Interface
 
    INTERFACE
 
-      SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B_NAME, NTERM_B, I_B, J_B, SYM_B,             &
-
+      SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A,             &
+                                           MAT_B_NAME, NTERM_B, I_B, J_B, SYM_B,             &
                                            MAT_C_NAME, NTERM_C )
 
       USE PENTIUM_II_KIND, ONLY       :  BYTE, LONG, DOUBLE
       USE IOUNT1, ONLY                :  WRT_ERR, WRT_LOG, ERR, F04, F06
-      USE SCONTR, ONLY                :  BLNK_SUB_NAM, FATAL_ERR, WARN_ERR
+      USE SCONTR, ONLY                :  BLNK_SUB_NAM, FATAL_ERR
       USE TIMDAT, ONLY                :  TSEC
-      USE PARAMS, ONLY                :  SUPWARN
-      USE DEBUG_PARAMETERS, ONLY      :  DEBUG
-      USE SPARSE_ALG_ARRAYS, ONLY     :  LOGICAL_VEC
       USE SUBR_BEGEND_LEVELS, ONLY    :  MATADD_SSS_NTERM_BEGEND
 
       IMPLICIT NONE
@@ -48,7 +45,6 @@ SUBROUTINE MATADD_SSS_NTERM ( NROWS, MAT_A_NAME, NTERM_A, I_A, J_A, SYM_A, MAT_B
       CHARACTER(LEN=*), INTENT(IN)    :: MAT_C_NAME        ! Name of matrix C
       CHARACTER(LEN=*), INTENT(IN)    :: SYM_A             ! Flag for whether matrix A is stored sym (terms on and above diag)
       CHARACTER(LEN=*), INTENT(IN)    :: SYM_B             ! Flag for whether matrix B is stored sym (terms on and above diag)
-      CHARACTER( 2*BYTE)              :: ALG               ! Which algorithm is used in solving for the terms in a row of C
 
       INTEGER(LONG), INTENT(IN )      :: NROWS             ! Number of rows in input matrices A and B
       INTEGER(LONG), INTENT(IN )      :: NTERM_A           ! Number of nonzero terms in input matrix A

Source/Modules/DEBUG_PARAMETERS.f90

@@ -141,10 +141,6 @@ MODULE DEBUG_PARAMETERS
 !        DEBUG  67    Not used
 !        DEBUG  80  > 0 print LAPACK_S scale factors, in subr EQUILIBRATE, used to equilibrate the stiffness matrices
 
-!        DEBUG  81  = 1 print data from subr MATADD_SSS_NTERM
-!                     2 print data from subr MATADD_SSS
-!                     3 print data from both subrs
- 
 !        DEBUG  82  = 1 print data from subr MATMULT_SFF
 
 !        DEBUG  83  = 1 print data from subr MATMULT_SFS_NTERM

Source/USE_IFs/MATADD_SSS_NTERM_USE_IFs.f90

@@ -29,7 +29,5 @@ MODULE MATADD_SSS_NTERM_USE_IFs
 
       USE OURTIM_Interface
       USE OUTA_HERE_Interface
-      USE ALLOCATE_SPARSE_ALG_Interface
-      USE DEALLOCATE_SPARSE_ALG_Interface
 
       END MODULE MATADD_SSS_NTERM_USE_IFs

Source/USE_IFs/MATADD_SSS_USE_IFs.f90

@@ -28,8 +28,5 @@ MODULE MATADD_SSS_USE_IFs
 ! USE Interface statements for all subroutines called by SUBROUTINE MATADD_SSS
 
       USE OURTIM_Interface
-      USE ALLOCATE_SPARSE_ALG_Interface
-      USE ARRAY_SIZE_ERROR_1_Interface
-      USE DEALLOCATE_SPARSE_ALG_Interface
 
       END MODULE MATADD_SSS_USE_IFs