[Dart-dev] [4678] DART/trunk/utilities/utilities_mod.f90: ensure that any filename read in from a text file already

[nancy at ucar.edu]

Revision: 4678
Author:   nancy
Date:     2011-01-27 15:10:47 -0700 (Thu, 27 Jan 2011)
Log Message:
-----------
ensure that any filename read in from a text file already 
has been left justified (so any leading blanks are ignored.)

Modified Paths:
--------------
    DART/trunk/utilities/utilities_mod.f90

-------------- next part --------------
Modified: DART/trunk/utilities/utilities_mod.f90
===================================================================
--- DART/trunk/utilities/utilities_mod.f90	2011-01-27 17:45:50 UTC (rev 4677)
+++ DART/trunk/utilities/utilities_mod.f90	2011-01-27 22:10:47 UTC (rev 4678)
@@ -1589,7 +1589,7 @@
                       source, revision, revdate)   
 endif
 
-get_next_filename = string(1:len(get_next_filename))
+get_next_filename = adjustl(string(1:len(get_next_filename)))
 call close_file(funit)
 
 end function get_next_filename