Remove automatic loading of module "Messages" through module "Types"

Juha Ruokolainen · Juha Ruokolainen · commit 35dedba239b2 · 2026-02-25T13:09:48.000+02:00
diff --git a/fem/src/EigenSolve.F90 b/fem/src/EigenSolve.F90
@@ -57,6 +57,7 @@
 
 MODULE EigenSolve
 
+   USE Messages
    IMPLICIT NONE
 
 CONTAINS
diff --git a/fem/src/ElementDescription.F90 b/fem/src/ElementDescription.F90
@@ -44,6 +44,7 @@
 #include "../config.h"
 
 MODULE ElementDescription
+   USE Messages
    USE Integration
    USE LinearAlgebra
    USE CoordinateSystems
diff --git a/fem/src/GeneralUtils.F90 b/fem/src/GeneralUtils.F90
@@ -44,6 +44,7 @@
 !-----------------------------------------------------------------------------
 MODULE GeneralUtils
 
+USE Messages
 USE LoadMod
 
 #ifdef HAVE_LUA
@@ -2615,8 +2616,8 @@ END MODULE GeneralUtils
 !---------------------------------------------------------
 MODULE AscBinOutputUtils
   
-  
   USE Types
+  USE Messages
   IMPLICIT NONE
   
   LOGICAL, PRIVATE :: AsciiOutput, SinglePrec, CalcSum = .FALSE.
diff --git a/fem/src/Integration.F90 b/fem/src/Integration.F90
@@ -43,6 +43,7 @@
 !-----------------------------------------------------------------------------
 MODULE Integration
    USE LoadMod
+   USE Messages
 
    IMPLICIT NONE
 
diff --git a/fem/src/Interpolation.F90 b/fem/src/Interpolation.F90
@@ -44,6 +44,7 @@
 MODULE Interpolation
 
    USE Types
+   USE Messages
    USE SParIterGlobals
    USE CoordinateSystems
    USE ElementDescription, ONLY : GlobalToLocal, ElementInfo, GetElementType, &
diff --git a/fem/src/LinearAlgebra.F90 b/fem/src/LinearAlgebra.F90
@@ -48,6 +48,7 @@
 MODULE LinearAlgebra
 
   USE Types
+  USE Messages
   IMPLICIT NONE
 
  CONTAINS
diff --git a/fem/src/LoadMod.F90 b/fem/src/LoadMod.F90
@@ -38,6 +38,7 @@
 
 MODULE LoadMod
     USE Types
+    USE Messages
     USE, INTRINSIC :: ISO_C_BINDING
     USE huti_interfaces
     IMPLICIT NONE
diff --git a/fem/src/MainUtils.F90 b/fem/src/MainUtils.F90
@@ -43,6 +43,7 @@
 !------------------------------------------------------------------------------
 MODULE MainUtils
 !------------------------------------------------------------------------------
+  USE Messages
   USE BlockSolve
   USE IterSolve, ONLY : NumericalError
   USE LoadMod, ONLY : ExecLocalAssembly, ExecSolver
diff --git a/fem/src/PElementMaps.F90 b/fem/src/PElementMaps.F90
@@ -47,7 +47,7 @@
 
 MODULE PElementMaps
   USE Types
-  Use GeneralUtils, ONLY : I2S
+  Use GeneralUtils
 
   IMPLICIT NONE
 
diff --git a/fem/src/SParIterComm.F90 b/fem/src/SParIterComm.F90
@@ -47,6 +47,7 @@
 MODULE SParIterComm
 
   USE LoadMod, ONLY : RealTime
+  USE Messages
   USE SParIterGlobals
 
 #ifdef HAVE_XIOS
diff --git a/fem/src/TimeIntegrate.F90 b/fem/src/TimeIntegrate.F90
@@ -44,6 +44,7 @@
 MODULE TimeIntegrate
 
    USE Types
+   USE Messages
 
    IMPLICIT NONE
 
diff --git a/fem/src/Types.F90 b/fem/src/Types.F90
@@ -45,7 +45,7 @@
 
 MODULE Types
  
-   USE Messages
+!  USE Messages
    USE, INTRINSIC :: ISO_C_BINDING
 #ifdef _OPENMP
    USE omp_lib 
