[Dart-dev] [4911] DART/trunk/obs_sequence/obs_common_subset.f90: Changed a variable name from a Fortran intrinsic name ('index') to a

[nancy at ucar.edu]

Revision: 4911
Author:   thoar
Date:     2011-05-19 09:05:46 -0600 (Thu, 19 May 2011)
Log Message:
-----------
Changed a variable name from a Fortran intrinsic name ('index') to a
benign 'indx' to avoid potential clashes. 

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

-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_common_subset.f90
===================================================================
--- DART/trunk/obs_sequence/obs_common_subset.f90	2011-05-13 20:49:48 UTC (rev 4910)
+++ DART/trunk/obs_sequence/obs_common_subset.f90	2011-05-19 15:05:46 UTC (rev 4911)
@@ -418,7 +418,7 @@
 character(len=*), intent(in)    :: filename_seq_list1, filename_seq_list2
 integer,          intent(out)   :: num_input_files
 
-integer :: index
+integer :: indx
 logical :: from_file1, from_file2
 character(len=32) :: source1, source2
 
@@ -466,16 +466,16 @@
 endif
 
 ! the point of this loop is to count up how many pairs of input seq files we have.
-do index = 1, max_num_input_files
+do indx = 1, max_num_input_files
    if (from_file1) &
-      filename_seq1(index) = get_next_filename(filename_seq_list1, index)
+      filename_seq1(indx) = get_next_filename(filename_seq_list1, indx)
    if (from_file2) &
-      filename_seq2(index) = get_next_filename(filename_seq_list2, index)
+      filename_seq2(indx) = get_next_filename(filename_seq_list2, indx)
 
    ! a pair of empty names ends the list and we return with the count.
    ! (unless both lists are empty and then we're unhappy)
-   if ((filename_seq1(index) == '') .and. (filename_seq2(index) == '')) then
-      if (index == 1) then
+   if ((filename_seq1(indx) == '') .and. (filename_seq2(indx) == '')) then
+      if (indx == 1) then
          call error_handler(E_ERR,'obs_common_subset', &
              trim(source1)//' contains no filenames', &
              source,revision,revdate)
@@ -483,17 +483,17 @@
 
       ! if this isn't the first entry, we are at the end of the list.
       ! set the return count before going.
-      num_input_files = index - 1
+      num_input_files = indx - 1
       return
 
    ! catch the cases where the lists aren't the same length, 2 longer than 1
-   else if (filename_seq1(index) == '') then
+   else if (filename_seq1(indx) == '') then
          call error_handler(E_ERR,'obs_common_subset', &
              trim(source2)//' contains more filenames than '//trim(source1), &
              source,revision,revdate)
 
    ! catch the other case where the lists aren't the same length, 1 longer than 2
-   else if (filename_seq2(index) == '') then
+   else if (filename_seq2(indx) == '') then
          call error_handler(E_ERR,'obs_common_subset', &
              trim(source1)//' contains more filenames than '//trim(source2), &
              source,revision,revdate)
@@ -935,7 +935,6 @@
    return
 endif
 
-
 ! all match - good return.
 good_match = .true.