[Dart-dev] [7970] DART/trunk/obs_sequence/obs_selection.f90: make 'optional' lower case.

nancy at ucar.edu nancy at ucar.edu
Tue May 12 14:09:25 MDT 2015


Revision: 7970
Author:   nancy
Date:     2015-05-12 14:09:25 -0600 (Tue, 12 May 2015)
Log Message:
-----------
make 'optional' lower case.  we don't upper case it in any
other module in the system.

Modified Paths:
--------------
    DART/trunk/obs_sequence/obs_selection.f90

-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_selection.f90
===================================================================
--- DART/trunk/obs_sequence/obs_selection.f90	2015-05-12 14:39:11 UTC (rev 7969)
+++ DART/trunk/obs_sequence/obs_selection.f90	2015-05-12 20:09:25 UTC (rev 7970)
@@ -599,7 +599,7 @@
 ! applied.  before they were completely symmetric.
 
 type(obs_sequence_type),    intent(in) :: seq1, seq2
-character(len=*), OPTIONAL, intent(in) :: fname1, fname2
+character(len=*), optional, intent(in) :: fname1, fname2
 
 integer :: num_copies1, num_qc1
 integer :: num_copies2, num_qc2
@@ -882,7 +882,7 @@
 !
 
 type(obs_sequence_type),    intent(in) :: seq1
-character(len=*), OPTIONAL, intent(in) :: fname1
+character(len=*), optional, intent(in) :: fname1
 
 integer :: num_copies , num_qc, i
 character(len=metadatalength) :: str1
@@ -1046,7 +1046,7 @@
  type(time_type),    intent(in) :: obs_time
  type(obs_def_type), intent(in) :: selection_list(:)
  integer,            intent(in) :: selection_count
- integer, OPTIONAL,  intent(in) :: startindex
+ integer, optional,  intent(in) :: startindex
  integer :: set_base
 
  integer :: i, s


More information about the Dart-dev mailing list