[Dart-dev] [4230] DART/trunk/filter/filter.f90: the args to write() were backwards - the format and

[nancy at ucar.edu]

Revision: 4230
Author:   nancy
Date:     2010-01-27 09:33:09 -0700 (Wed, 27 Jan 2010)
Log Message:
-----------
the args to write() were backwards - the format and
target string were reversed.

Modified Paths:
--------------
    DART/trunk/filter/filter.f90

-------------- next part --------------
Modified: DART/trunk/filter/filter.f90
===================================================================
--- DART/trunk/filter/filter.f90	2010-01-26 00:19:44 UTC (rev 4229)
+++ DART/trunk/filter/filter.f90	2010-01-27 16:33:09 UTC (rev 4230)
@@ -954,7 +954,7 @@
    ! Need 1 new qc field for the DART quality control
    qc_num_inc = 1
 else
-   write(*, msgstring) 'input obs_seq file has ', tnum_qc, ' qc fields; must be < 2'
+   write(msgstring, *) 'input obs_seq file has ', tnum_qc, ' qc fields; must be < 2'
    call error_handler(E_ERR,'filter_setup_obs_sequence', msgstring, source, revision, revdate)
 endif