Cosmetic changes for letter case conventions

5 years ago · 26cfa837e5
parent 55666cc0fe
commit 26cfa837e5
4 changed files with 8 additions and 8 deletions
--- 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_
--- 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_
--- 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_
--- 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_