use-mpi-tkr: fix ierr->ierror param names

Issue noted by Walter Spector on the user's mailing list.

Throwing to Craig Rasmussen for review.

cmr=v1.8.2:reviewer=jsquyres

This commit was SVN r31933.

ompi/mpi/fortran/use-mpi-tkr/scripts/mpi-f90-interfaces.h.sh

@@ -11294,7 +11294,7 @@ output_292() {
     cat <<EOF
 
 subroutine ${procedure}(comm_old, n, sources, degrees, destinations, &
-        weights, info, reorder, comm_dist_graph, ierr)
+        weights, info, reorder, comm_dist_graph, ierror)
   integer, intent(in) :: comm_old
   integer, intent(in) :: n
   integer, dimension(n), intent(in) :: sources
@@ -11304,7 +11304,7 @@ subroutine ${procedure}(comm_old, n, sources, degrees, destinations, &
   logical, intent(in) :: info
   logical, intent(in) :: reorder
   integer, intent(out) :: comm_dist_graph
-  integer, intent(out) :: ierr
+  integer, intent(out) :: ierror
 end subroutine ${procedure}
 
 EOF
@@ -11326,7 +11326,7 @@ output_293() {
 
 subroutine ${procedure}(comm_old, indegree, sources, sourceweights, &
        outdegree, destinations, destweights, info, reorder, &
-       comm_dist_graph, ierr)
+       comm_dist_graph, ierror)
   integer, intent(in) :: comm_old
   integer, intent(in) :: indegree
   integer, dimension(indegree), intent(in) :: sources
@@ -11337,7 +11337,7 @@ subroutine ${procedure}(comm_old, indegree, sources, sourceweights, &
   logical, intent(in) :: info
   logical, intent(in) :: reorder
   integer, intent(out) :: comm_dist_graph
-  integer, intent(out) :: ierr
+  integer, intent(out) :: ierror
 end subroutine ${procedure}
 
 EOF
@@ -11357,12 +11357,12 @@ output_294() {
     procedure=$1
     cat <<EOF
 
-subroutine ${procedure}(comm, indegree, outdegree, weighted, ierr)
+subroutine ${procedure}(comm, indegree, outdegree, weighted, ierror)
   integer, intent(in) :: comm
   integer, intent(out) :: indegree
   integer, intent(out) :: outdegree
   logical, intent(out) :: weighted
-  integer, intent(out) :: ierr
+  integer, intent(out) :: ierror
 end subroutine ${procedure}
 
 EOF
@@ -11383,7 +11383,7 @@ output_295() {
     cat <<EOF
 
 subroutine ${procedure}(comm, maxindegree, sources, sourceweights, &
-       maxoutdegree, destinations, destweights, ierr)
+       maxoutdegree, destinations, destweights, ierror)
   integer, intent(in) :: comm
   integer, intent(in) :: maxindegree
   integer, dimension(maxindegree), intent(out) :: sources
@@ -11391,7 +11391,7 @@ subroutine ${procedure}(comm, maxindegree, sources, sourceweights, &
   integer, intent(in) :: maxoutdegree
   integer, dimension(maxoutdegree), intent(out) :: destinations
   integer, dimension(maxoutdegree), intent(out) :: destweights
-  integer, intent(out) :: ierr
+  integer, intent(out) :: ierror
 end subroutine ${procedure}
 
 EOF