diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90
index ae5c0af2..073fcbbd 100644
--- a/base/tools/psb_cspasb.f90
+++ b/base/tools/psb_cspasb.f90
@@ -122,11 +122,11 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold)
   end if
 
   
-  IF (debug_level >= psb_debug_ext_) then 
+  if (debug_level >= psb_debug_ext_) then 
     ch_err=a%get_fmt()
     write(debug_unit, *) me,' ',trim(name),':  From SPCNV',&
          & info,' ',ch_err
-  end IF
+  end if
   
   if (psb_errstatus_fatal()) then    
     info=psb_err_from_subroutine_
diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90
index c2434c09..542e6901 100644
--- a/base/tools/psb_dspasb.f90
+++ b/base/tools/psb_dspasb.f90
@@ -122,11 +122,11 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold)
   end if
 
   
-  IF (debug_level >= psb_debug_ext_) then 
+  if (debug_level >= psb_debug_ext_) then 
     ch_err=a%get_fmt()
     write(debug_unit, *) me,' ',trim(name),':  From SPCNV',&
          & info,' ',ch_err
-  end IF
+  end if
   
   if (psb_errstatus_fatal()) then    
     info=psb_err_from_subroutine_
diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90
index 58241a92..01187497 100644
--- a/base/tools/psb_sspasb.f90
+++ b/base/tools/psb_sspasb.f90
@@ -122,11 +122,11 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold)
   end if
 
   
-  IF (debug_level >= psb_debug_ext_) then 
+  if (debug_level >= psb_debug_ext_) then 
     ch_err=a%get_fmt()
     write(debug_unit, *) me,' ',trim(name),':  From SPCNV',&
          & info,' ',ch_err
-  end IF
+  end if
   
   if (psb_errstatus_fatal()) then    
     info=psb_err_from_subroutine_
diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90
index 9db28550..6cdfc61f 100644
--- a/base/tools/psb_zspasb.f90
+++ b/base/tools/psb_zspasb.f90
@@ -122,11 +122,11 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold)
   end if
 
   
-  IF (debug_level >= psb_debug_ext_) then 
+  if (debug_level >= psb_debug_ext_) then 
     ch_err=a%get_fmt()
     write(debug_unit, *) me,' ',trim(name),':  From SPCNV',&
          & info,' ',ch_err
-  end IF
+  end if
   
   if (psb_errstatus_fatal()) then    
     info=psb_err_from_subroutine_