a few more whitespaces

Author: pmocz

star/test_suite/custom_rates/src/run.f90

@@ -12,5 +12,4 @@ program run
 
    call do_run_star
 
-end program
-   
+end program run

stella/src/stl/rad_photo_cross_section.f90

@@ -12,7 +12,7 @@ module rad_photo_cross_section
     interface photoCross
      module procedure photoCrossVerner, ics_full
     end interface
-  
+
     real (kind=sp), parameter, private :: p_e_max = 5.d4
  	integer i
     integer, dimension(7) :: L, IS2Ne

stella/src/util/epsilon.f90

@@ -1,8 +1,7 @@
 
- program test_epsilon
+program test_epsilon
    real, parameter :: x = 3.143
    real(8), parameter :: y = 2.33
    print *, EPSILON(x)
    print *, EPSILON(y)
 end program test_epsilon
-                                                                   

stella/src/util/nag_sub.F90

@@ -20,12 +20,7 @@ module nag_sub
 
   implicit none
   private
-    
-  character(len=*), parameter, private :: mdl_name = 'lnag_sub' 
-  
-  public :: nag_d01gaf 
-  
-contains
+     character(len=*), parameter, private :: mdl_name = 'lnag_sub'   public :: nag_d01gaf contains
 
 !!******
 !!
@@ -45,19 +40,14 @@ module nag_sub
 !!      see SUBROUTINE D01GAF in NAG
 !!
 !!   OUTPUT
-!!       - 
-!!   SOURCE
+!!       -!!   SOURCE
 !!
 !!*** **********************************************************************
   subroutine nag_d01gaf (X,y,N,ans,err)
-    real (kind=dp), dimension(:), intent(in)   :: X 
-    real (kind=dp), dimension(:), intent(in)   ::  y 
-    integer, intent(in) :: N 
-    real (kind=dp), intent(out)  :: ans, err
+    real (kind=dp), dimension(:), intent(in)   :: X    real (kind=dp), dimension(:), intent(in)   ::  y    integer, intent(in) :: N    real (kind=dp), intent(out)  :: ans, err
     character(len=*), parameter ::  subrtn_name = 'd01gaf' &
                                        , fullPathSubrtn = mdl_name//'.'//subrtn_name
     integer  ::  ifail
- 
 
     call d01gaf(X,y,N,ans,err,ifail)
     if(ifail > 0)  then