[Dart-dev] [4231] DART/trunk/filter/filter.dopplerfold.f90: same fix as filter. f90 - the args to write() for an error

[nancy at ucar.edu]

Revision: 4231
Author:   nancy
Date:     2010-01-27 14:07:15 -0700 (Wed, 27 Jan 2010)
Log Message:
-----------
same fix as filter.f90 - the args to write() for an error
message were reversed.

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

-------------- next part --------------
Modified: DART/trunk/filter/filter.dopplerfold.f90
===================================================================
--- DART/trunk/filter/filter.dopplerfold.f90	2010-01-27 16:33:09 UTC (rev 4230)
+++ DART/trunk/filter/filter.dopplerfold.f90	2010-01-27 21:07:15 UTC (rev 4231)
@@ -959,7 +959,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