diff --git a/ompi/mpi/f90/xml/chasm-mpi-test.c.xsl b/ompi/mpi/f90/xml/chasm-mpi-test.c.xsl
deleted file mode 100644
index 4de575f143..0000000000
--- a/ompi/mpi/f90/xml/chasm-mpi-test.c.xsl
+++ /dev/null
@@ -1,312 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ,
-
-
-
- , int* ierr
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- , STR_VAL, STR_LEN) != 0)
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- != MPI_AINT_VAL)
-
-
-
- != INT_VAL)
-
-
-
-
-
- != VOID_VAL)
-
-
- != INT_VAL)
-
-
-
-
- != INT_VAL)
-
-
-
- != CHAR_VAL)
-
-
-
- != UNSUPPORTED_VAL)
-
-
-
-
- != FLOAT_VAL)
-
-
-
-
-
-
-
-
-
-
- != REF_VAL)
-
-
-
-
-
-
-
-
-
- != MPI_AINT_VAL)
-
-
- != INT64_VAL)
-
-
- != STATUS_VAL)
-
-
-
-
- != USER_INT_VAL)
-
-
- != UNSUPPORTED_VAL)
-
-
-
-
-
- != UNSUPPORTED_VAL
-
-
-
-
-
-
-
-
-
- void
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/chasm-mpi-test.f90.xsl b/ompi/mpi/f90/xml/chasm-mpi-test.f90.xsl
deleted file mode 100644
index 90fd8575a2..0000000000
--- a/ompi/mpi/f90/xml/chasm-mpi-test.f90.xsl
+++ /dev/null
@@ -1,559 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- integer :: ierr
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
-
- echo "end subroutine ${proc}"
- echo
- done
- echo
-done
-echo
-
-
-
-
-
-
-
- call
-
-
-
-
-
-
-
-
- ,
-
-
-
-
-
-
- ,
-
- ierr
-
-
-
-
-
-
-
-
-
-
- ,
-
-
- &
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- integer(kind=MPI_ADDRESS_KIND)
-
-
-
- integer
-
-
-
-
-
-
-
- integer(kind=MPI_INTEGER${kind}_KIND)
- , dimension(${dim})
-
-
- integer
-
-
-
-
- integer
-
-
-
-
- integer
-
-
- character
-
- (len=STR_LEN)
-
-
-
- UNSUPPORTED
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
- , dimension(
-
- ARRAY_LEN
- D
-
- ,
-
-
- )
-
-
-
-
-
-
-
-
-
-
-
- integer(kind=MPI_ADDRESS_KIND)
-
-
- integer(kind=MPI_OFFSET_KIND)
-
-
- integer, dimension(MPI_STATUS_SIZE)
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
-
-
- integer
-
-
- UNSUPPORTED
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
- integer(kind=MPI_INTEGER4_KIND), dimension(8) ::
- 1DI4
- integer(kind=MPI_INTEGER4_KIND), dimension(2,4) ::
- 2DI4
- integer(kind=MPI_INTEGER4_KIND), dimension(2,1,4) ::
- 3DI4
- integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,4) ::
- 4DI4
- integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,1,4) ::
- 5DI4
- integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,1,1,4) ::
- 6DI4
- integer(kind=MPI_INTEGER4_KIND), dimension(2,1,1,1,1,1,4) ::
- 7DI4
-
-
-
-
-
-
-
-
-
-
-
-
-
- = MPI_AINT_VAL
-
-
-
- = INT_VAL
-
-
-
-
-
- = VOID_VAL
-
-
- = INT_VAL
-
-
-
-
- = INT_VAL
-
-
-
- = CHAR_VAL
-
-
-
- = UNSUPPORTED_VAL
-
-
-
-
- = FLOAT_VAL
-
-
-
-
-
-
-
-
- = REF_VAL
-
-
-
-
-
-
-
-
-
- = MPI_AINT_VAL
-
-
- = INT64_VAL
-
-
- = STATUS_VAL
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- = USER_INT_VAL
-
-
- = UNSUPPORTED_VAL
-
-
-
-
-
- = UNSUPPORTED_VAL
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- D
-
-
-
-
-
-
-
-
-
-
- !
-
- ! Fortran program to test F90 interface to C function
-
-
- !
-
- program main
-
- use mpi
-
- implicit none
-
- include 'F90TestValues.h'
-
-
-
-
-
-
-
- if (ierr /= 0) print *, "ERROR running
- "
-
- end program
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/chasm-mpi.f90.sh.xsl b/ompi/mpi/f90/xml/chasm-mpi.f90.sh.xsl
deleted file mode 100644
index 64f6710ce5..0000000000
--- a/ompi/mpi/f90/xml/chasm-mpi.f90.sh.xsl
+++ /dev/null
@@ -1,511 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _C.c
-
-
-
-
-
-
- _C.h
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-output() {
- procedure=$1
-
-
-
-
-
- rank=$3
- type=$5
- proc="$2$3D$4"
-
-
-
-
-
- rank=$2
- type=$4
- proc="$1$2D$3"
-
-
-
-
-
-
- cat <<EOF
-
-
-
-
-
-
-EOF
-}
-
-for rank in $allranks
-do
- case "$rank" in 0) dim='' ; esac
- case "$rank" in 1) dim=', dimension(*)' ; esac
- case "$rank" in 2) dim=', dimension(1,*)' ; esac
- case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
- case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
- case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
- case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
- case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
-
-
-
- output
-
-
-
- ${rank} CH "character${dim}"
-
- output
-
-
-
- ${rank} L "logical${dim}"
-
-
- for kind in $ikinds
-
- do
-
- output
-
-
-
- ${rank} I${kind} "integer*${kind}${dim}"
-
- done
-
-
- for kind in $rkinds
-
- do
-
- output
-
-
-
- ${rank} R${kind} "real*${kind}${dim}"
-
- done
-
-
- for kind in $ckinds
-
- do
-
- output
-
-
-
- ${rank} C${kind} "complex*${kind}${dim}"
-
- done
-
-
- done
-
-
-
-
-
-
-
-
- subroutine ${proc}(
- )
-
- include "mpif-config.h"
-
-
-
-
-
-
-
-
-
-
- integer, intent(out) :: ierr
-
-
-
- call ${procedure}(
- )
-
- end subroutine ${proc}
-
-
-
-
-
-
-
-
-
-
- ,
-
-
- &
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- logical
-
-
-
-
- integer
-
-
- character
-
- (len=*)
-
-
-
- UNSUPPORTED
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- , dimension(
-
-
-
- ,
-
-
- )
-
-
-
-
-
-
-
-
-
-
-
- integer
-
-
- integer(kind=MPI_ADDRESS_KIND)
-
-
- integer(kind=MPI_OFFSET_KIND)
-
-
- integer, dimension(MPI_STATUS_SIZE)
-
-
-
-
- integer
-
-
- UNSUPPORTED
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-#
-# Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
-# University Research and Technology
-# Corporation. All rights reserved.
-# Copyright (c) 2004-2005 The Regents of the University of California.
-# All rights reserved.
-# Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
-# $COPYRIGHT$
-#
-# Additional copyrights may follow
-#
-# $HEADER$
-#
-
-
-
-
-
-
-
-
-
-#
-# This file generates a Fortran code to bridge between an explicit F90
-# generic interface and the F77 implementation.
-#
-# This file is automatically generated by either of the scripts
-# ../xml/create_mpi_f90_medium.f90.sh or
-# ../xml/create_mpi_f90_large.f90.sh
-#
-
-
-
-
-
-
-
-
-
- #! /bin/sh
-
-
-
- . "$1/fortran_kinds.sh"
-
-
-
- # This entire file is only generated in medium/large
- modules. So if
-
- # we're not at least medium, bail now.
-
-
-
- check_size
-
- if test "$output" = "0"; then
-
- exit 0
-
- fi
-
-
-
- # Ok, we should continue.
-
-
-
- allranks="0 $ranks"
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/chasm-mpi.f90.xsl b/ompi/mpi/f90/xml/chasm-mpi.f90.xsl
deleted file mode 100644
index ddfa6c42f3..0000000000
--- a/ompi/mpi/f90/xml/chasm-mpi.f90.xsl
+++ /dev/null
@@ -1,657 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _C.c
-
-
-
-
-
-
- _C.h
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- procedure='
-
- '
-
-
-
-
-
- echo
-
- echo
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- procedure='
-
- '
-
-
-
-
-
- echo
-
- echo
-
-
-
-
-
-
-
-
-
-
-
-
-
- proc="${procedure}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
-
-echo "end subroutine ${proc}"
-echo
-
-
-
-
-
-
-
-
- rank=0
-
- for kind in $lkinds
-
- do
-
- proc="${procedure}${rank}DL${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
-done
-
-
-
- rank=0
-
- for kind in $ikinds
-
- do
-
- proc="${procedure}${rank}DI${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
-done
-
-
-
- rank=0
-
- for kind in $rkinds
-
- do
-
- proc="${procedure}${rank}DR${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
-done
-
-
-
- rank=0
-
- for kind in $ckinds
-
- do
-
- proc="${procedure}${rank}DC${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
-done
-
-
-
-
-for rank in $ranks
-do
- case "$rank" in 1) dim='*' ; esac
- case "$rank" in 2) dim='1,*' ; esac
- case "$rank" in 3) dim='1,1,*' ; esac
- case "$rank" in 4) dim='1,1,1,*' ; esac
- case "$rank" in 5) dim='1,1,1,1,*' ; esac
- case "$rank" in 6) dim='1,1,1,1,1,*' ; esac
- case "$rank" in 7) dim='1,1,1,1,1,1,*' ; esac
-
-
-
- for kind in $lkinds
-
- do
-
- proc="${procedure}${rank}DL${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
- done
-
-
-
- for kind in $ikinds
-
- do
-
- proc="${procedure}${rank}DI${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
- done
-
-
-
- for kind in $rkinds
-
- do
-
- proc="${procedure}${rank}DR${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
- done
-
-
-
- for kind in $ckinds
-
- do
-
- proc="${procedure}${rank}DC${kind}"
-
- echo "subroutine ${proc}(
- )"
-
- echo " use mpi_kinds"
-
-
-
-
-
-
-
-
-
- echo " integer, intent(out) :: ierr"
-
-
-
- echo " call ${procedure}(
- )"
-
-
-
- echo "end subroutine ${proc}"
- echo
- done
-done
-
-
-
-
-
-
-
-
-
-
- ,
-
-
- &
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- echo "
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- (kind=MPI_
-
- ${kind}_KIND)
-
- , dimension(${dim})
-
-
-
- integer
-
-
-
-
- integer
-
-
- character
-
- (len=*)
-
-
-
- UNSUPPORTED
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
- , dimension(
-
-
-
- ,
-
-
- )
-
-
-
-
-
-
-
-
-
-
-
- integer(kind=MPI_ADDRESS_KIND)
-
-
- integer(kind=MPI_OFFSET_KIND)
-
-
- integer, dimension(MPI_STATUS_SIZE)
-
-
-
-
- integer
-
-
- UNSUPPORTED
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
- #! /bin/sh
-
-
- . fortran_kinds.sh
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl b/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl
deleted file mode 100644
index faf141dd2b..0000000000
--- a/ompi/mpi/f90/xml/chasm-mpi.i.f90.xsl
+++ /dev/null
@@ -1,723 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _C.c
-
-
-
-
-
-
- _C.h
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#------------------------------------------------------------------------
-
-output_ () {
- if test "$output" = "0"; then
- return 0
- fi
-
- procedure=$1
- cat <<EOF
-
-
-
- subroutine ${procedure}(
- )
-
- include 'mpif-config.h'
-
-
-
-
-
-
-
-
-
- integer, intent(out) :: ierr
-
-
-
-
-end subroutine ${procedure}
-
-EOF
-}
-
-start
-
-
-
-
-
-
-
-
-
-
-
-output_
-
-end
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-#------------------------------------------------------------------------
-
-output_ () {
- if test "$output" = "0"; then
- return 0
- fi
-
- procedure=$1
- rank=$2
- type=$4
- proc="$1$2D$3"
- cat <<EOF
-
-
-
- subroutine ${proc}(
- )
-
- include 'mpif-config.h'
-
-
-
-
-
-
-
-
-
-
- integer, intent(out) :: ierr
-
-
-
-
-end subroutine ${proc}
-
-EOF
-}
-
-start
-
-
-
-
-for rank in $allranks
-do
- case "$rank" in 0) dim='' ; esac
- case "$rank" in 1) dim=', dimension(*)' ; esac
- case "$rank" in 2) dim=', dimension(1,*)' ; esac
- case "$rank" in 3) dim=', dimension(1,1,*)' ; esac
- case "$rank" in 4) dim=', dimension(1,1,1,*)' ; esac
- case "$rank" in 5) dim=', dimension(1,1,1,1,*)' ; esac
- case "$rank" in 6) dim=', dimension(1,1,1,1,1,*)' ; esac
- case "$rank" in 7) dim=', dimension(1,1,1,1,1,1,*)' ; esac
-
- output_
-
- ${rank} CH "character${dim}"
- output_
-
- ${rank} L "logical${dim}"
- for kind in $ikinds
- do
- output_
-
- ${rank} I${kind} "integer*${kind}${dim}"
- done
- for kind in $rkinds
- do
- output_
-
- ${rank} R${kind} "real*${kind}${dim}"
- done
- for kind in $ckinds
- do
- output_
-
- ${rank} C${kind} "complex*${kind}${dim}"
- done
-done
-end
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- medium
-
-
- trivial
-
-
-
- small
-
-
- medium
-
-
- large
-
-
-
-
-
-
-
-
-
-
-
- 1
-
-
-
-
-
-
-
-
-
-
-
- ,
-
-
- &
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- character(len=*), dimension(*)
-
-
- character(len=*), dimension(
-
- ,*)
-
-
- integer(kind=MPI_ADDRESS_KIND)
-
-
-
-
-
-
-
- ${type}
-
-
- integer
-
-
-
-
- logical
-
-
-
-
- integer
-
-
- character
-
- (len=*)
-
-
-
- UNSUPPORTED
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
- , dimension(
-
-
-
- ,
-
-
- )
-
-
-
-
-
-
-
-
-
-
-
- integer
-
-
- integer(kind=MPI_ADDRESS_KIND)
-
-
- integer(kind=MPI_OFFSET_KIND)
-
-
- integer, dimension(MPI_STATUS_SIZE)
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
- external
-
-
-
-
- integer
-
-
- UNSUPPORTED
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-#
-# Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
-# University Research and Technology
-# Corporation. All rights reserved.
-# Copyright (c) 2004-2006 The Regents of the University of California.
-# All rights reserved.
-# Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
-# $COPYRIGHT$
-#
-# Additional copyrights may follow
-#
-# $HEADER$
-#
-
-
-
-
-
-
-
-
-
-# Do a little error checking
-
-if test ! -f "$1/fortran_kinds.sh"; then
- echo "ERROR: Cannot find fortran_kinds.sh" >&2
- exit 1
-elif test -z "$1/fortran_kinds.sh"; then
- echo "ERROR: fortran_kinds.sh appears to be empty!" >&2
- exit 1
-fi
-
-# Read in the KIND information
-
-. "$1/fortran_kinds.sh"
-
-# Setup
-
-output=1
-allranks="0 $ranks"
-
-# A few hard-coded functions that cannot pass through to the F77
-# equivalents
-
-start MPI_Wtick small
-if test "$output" = "1"; then
- cat <
-
-
-
-
-
-
-
- #! /bin/sh
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/common-C.xsl b/ompi/mpi/f90/xml/common-C.xsl
deleted file mode 100644
index ebf4d71cd2..0000000000
--- a/ompi/mpi/f90/xml/common-C.xsl
+++ /dev/null
@@ -1,446 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
- /**
- *
-
-
-
- - this file is automatically generated
-
- */
-
-
-
-
-
-
-
-
-
-
-
-
- #if defined(c_plusplus) || defined(__cplusplus)
- extern "C" {
- #endif
-
-
-
-
-
-
- #if defined(c_plusplus) || defined(__cplusplus)
- }
- #endif
-
-
-
-
-
-
-
-
-
-
-
-
- static
-
-
-
-
-
-
- (
-
- );
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- (
-
-
-
- )
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
- {
-
-
-
-
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- PTR_
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- (
-
- )
- ;
-
-
-
-
-
-
-
-
-
-
-
-
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- no
-
-
-
-
diff --git a/ompi/mpi/f90/xml/common-f90.xsl b/ompi/mpi/f90/xml/common-f90.xsl
deleted file mode 100644
index 20aea1f0f4..0000000000
--- a/ompi/mpi/f90/xml/common-f90.xsl
+++ /dev/null
@@ -1,732 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
- /**
- * Macros to create Fortran symbols
-
- */
-
-
-
-
- #if defined(F90_SYM_CASE_LOWER)
-
-
-
-
- CH_INIT_
-
-
-
-
-
- #elif defined(F90_SYM_CASE_UPPER)
-
-
-
-
- CH_INIT_
-
-
-
- #endif /* F90_SYM_CASE */
-
-
-
-
-
-
-
-
-
-
- /**
- * Macros to create Fortran symbols
-
- */
-
-
-
-
- #if defined(F90_SYM_CASE_LOWER)
-
-
-
-
-
-
-
-
-
-
- SET_
- _
-
-
-
-
-
-
- #elif defined(F90_SYM_CASE_UPPER)
-
-
-
-
-
-
-
-
-
-
- SET_
- _
-
-
-
-
- #endif /* F90_SYM_CASE */
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- # define
- F90_SYMBOL(
- )
-
-
-
-
-
-
-
-
-
-
-
- # define
- F90_SYMBOL(
- )
-
-
-
-
-
-
- /**
- * Pointers to Fortran procedures
-
- */
-
-
-
-
- _
-
-
-
-
-
-
-
-
-
-
- CH_INIT_
-
-
- * Declare Fortran initialization routine
-
- void
- (void);
-
-
-
-
-
-
-
-
-
-
-
-
-
- (*PTR_
- )(
-
-
-
- );
-
-
-
-
-
-
-
- /**
- * Functions to set pointers to Fortran procedures
- (called from Fortran)
- */
-
-
-
-
- _
-
-
-
-
-
-
-
-
-
-
-
-
-
- void SET_
- (
-
-
-
- (*fptr)(
-
-
-
- ))
- {
- PTR_
- = fptr;
- }
-
-
-
-
-
-
-
- /**
- * Bridging functions to call Fortran procedures
-
- */
-
-
-
-
- _
-
-
-
-
-
-
-
-
-
-
-
-
- subroutine
- ()
- use
-
-
- call SET_
- _
- (
- )
-
- end subroutine
-
-
-
-
-
-
-
-
-
-
-
-
-
- ;
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _h = strlen(
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- APPEND_F90_COMPILER(createArrayDescAndHidden) (
-
- , F90_Array, &
-
- );
-
-
-
-
-
-
-
-
-
-
-
-
-
- APPEND_F90_COMPILER(freeArrayDescAndHidden) (
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- _dv
-
-
-
-
-
-
-
-
-
-
-
-
-
- _h
-
-
-
-
- _dvh
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- use
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- (
-
- )
-
-
-
-
-
-
-
-
-
-
-
-
-
- call
-
-
-
- =
-
-
-
- =
-
-
-
-
-
-
-
-
-
-
- _l
-
- ,
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/common.xsl b/ompi/mpi/f90/xml/common.xsl
deleted file mode 100644
index 60351e939f..0000000000
--- a/ompi/mpi/f90/xml/common.xsl
+++ /dev/null
@@ -1,106 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- #include <
- >
-
-
-
-
-
-
- #include "
- "
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/create_mpi_f90_large.f90.sh b/ompi/mpi/f90/xml/create_mpi_f90_large.f90.sh
deleted file mode 100755
index 8499661495..0000000000
--- a/ompi/mpi/f90/xml/create_mpi_f90_large.f90.sh
+++ /dev/null
@@ -1,18 +0,0 @@
-#! /bin/sh
-
-XSL_PATH=.
-OUT_PATH=../scripts
-
-. functions_f90_large.list
-
-if test "$1" != ""; then
- procedures=$1
-fi
-
-for proc in $procedures
-do
- lc_proc=`echo ${proc}|tr '[A-Z]' '[a-z]'`
- echo "creating ${lc_proc}_f90.f90.sh"
- Xalan -p test_function "'${proc}'" -p interface_size "'large'" -o ${OUT_PATH}/${lc_proc}_f90.f90.sh ../xml/mpi.h.xml ${XSL_PATH}/chasm-mpi.f90.sh.xsl
- chmod 755 ../scripts/${lc_proc}_f90.f90.sh
-done
diff --git a/ompi/mpi/f90/xml/create_mpi_f90_medium.f90.sh b/ompi/mpi/f90/xml/create_mpi_f90_medium.f90.sh
deleted file mode 100755
index 0563870181..0000000000
--- a/ompi/mpi/f90/xml/create_mpi_f90_medium.f90.sh
+++ /dev/null
@@ -1,18 +0,0 @@
-#! /bin/sh
-
-XSL_PATH=.
-OUT_PATH=../scripts
-
-. functions_f90_medium.list
-
-if test "$1" != ""; then
- procedures=$1
-fi
-
-for proc in $procedures
-do
- lc_proc=`echo ${proc}|tr '[A-Z]' '[a-z]'`
- echo "creating ${lc_proc}_f90.f90.sh"
- Xalan -p test_function "'${proc}'" -p interface_size "'medium'" -o ${OUT_PATH}/${lc_proc}_f90.f90.sh ../xml/mpi.h.xml ${XSL_PATH}/chasm-mpi.f90.sh.xsl
- chmod 755 ../scripts/${lc_proc}_f90.f90.sh
-done
diff --git a/ompi/mpi/f90/xml/functions_f90_large.list b/ompi/mpi/f90/xml/functions_f90_large.list
deleted file mode 100644
index 1689ad3f98..0000000000
--- a/ompi/mpi/f90/xml/functions_f90_large.list
+++ /dev/null
@@ -1,28 +0,0 @@
-proc_should_be_medium="
-MPI_Accumulate
-MPI_Get
-MPI_Put
-MPI_Sendrecv_replace
-"
-
-procedures="
-MPI_Allgather
-MPI_Allgatherv
-MPI_Allreduce
-MPI_Alltoall
-MPI_Alltoallv
-MPI_Alltoallw
-MPI_Exscan
-MPI_Gather
-MPI_Gatherv
-MPI_Pack
-MPI_Pack_external
-MPI_Reduce
-MPI_Reduce_scatter
-MPI_Scan
-MPI_Scatter
-MPI_Scatterv
-MPI_Sendrecv
-MPI_Unpack
-MPI_Unpack_external
-"
diff --git a/ompi/mpi/f90/xml/functions_f90_medium.list b/ompi/mpi/f90/xml/functions_f90_medium.list
deleted file mode 100644
index 3d848ae674..0000000000
--- a/ompi/mpi/f90/xml/functions_f90_medium.list
+++ /dev/null
@@ -1,56 +0,0 @@
-procedures="
-MPI_Accumulate
-MPI_Address
-MPI_Bcast
-MPI_Bsend
-MPI_Bsend_init
-MPI_Buffer_attach
-MPI_Buffer_detach
-MPI_File_iread
-MPI_File_iread_at
-MPI_File_iread_shared
-MPI_File_iwrite
-MPI_File_iwrite_at
-MPI_File_iwrite_shared
-MPI_File_read
-MPI_File_read_all
-MPI_File_read_all_begin
-MPI_File_read_all_end
-MPI_File_read_at
-MPI_File_read_at_all
-MPI_File_read_at_all_begin
-MPI_File_read_at_all_end
-MPI_File_read_ordered
-MPI_File_read_ordered_begin
-MPI_File_read_ordered_end
-MPI_File_read_shared
-MPI_File_write
-MPI_File_write_all
-MPI_File_write_all_begin
-MPI_File_write_all_end
-MPI_File_write_at
-MPI_File_write_at_all
-MPI_File_write_at_all_begin
-MPI_File_write_at_all_end
-MPI_File_write_ordered
-MPI_File_write_ordered_begin
-MPI_File_write_ordered_end
-MPI_File_write_shared
-MPI_Get
-MPI_Ibsend
-MPI_Irecv
-MPI_Irsend
-MPI_Isend
-MPI_Issend
-MPI_Put
-MPI_Recv
-MPI_Recv_init
-MPI_Rsend
-MPI_Rsend_init
-MPI_Send
-MPI_Send_init
-MPI_Sendrecv_replace
-MPI_Ssend
-MPI_Ssend_init
-MPI_Win_create
-"
diff --git a/ompi/mpi/f90/xml/mpi.h.xml b/ompi/mpi/f90/xml/mpi.h.xml
deleted file mode 100644
index 5cd641a636..0000000000
--- a/ompi/mpi/f90/xml/mpi.h.xml
+++ /dev/null
@@ -1,11812 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/type-conv-f90.xsl b/ompi/mpi/f90/xml/type-conv-f90.xsl
deleted file mode 100644
index e788d09ef0..0000000000
--- a/ompi/mpi/f90/xml/type-conv-f90.xsl
+++ /dev/null
@@ -1,81 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- int
-
-
-
-
-
-
-
-
-
-
-
-
- void*
-
-
-
-
-
-
-
-
- integer
-
-
- real
-
-
- complex
-
-
- logical
-
-
- character (len=
-
- )
-
-
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/type-conv-user.xsl b/ompi/mpi/f90/xml/type-conv-user.xsl
deleted file mode 100644
index 582d9259e5..0000000000
--- a/ompi/mpi/f90/xml/type-conv-user.xsl
+++ /dev/null
@@ -1,39 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/ompi/mpi/f90/xml/type-conversions.xsl b/ompi/mpi/f90/xml/type-conversions.xsl
deleted file mode 100644
index 8a3283ab7d..0000000000
--- a/ompi/mpi/f90/xml/type-conversions.xsl
+++ /dev/null
@@ -1,513 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- void
-
-
-
-
- char
-
-
- unsigned char
-
-
- short
-
-
- unsigned short
-
-
- int
-
-
- unsigned int
-
-
- long
-
-
- unsigned long
-
-
- long long
-
-
- unsigned long long
-
-
- UNSUPPORTED
-
-
-
-
-
-
- float
-
-
- double
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
- void
-
-
- int
-
-
-
-
- char
-
-
- unsigned char
-
-
- short
-
-
- unsigned short
-
-
- int
-
-
- unsigned int
-
-
- long
-
-
- unsigned long
-
-
- long long
-
-
- unsigned long long
-
-
- UNSUPPORTED
-
-
-
-
-
-
- float
-
-
- double
-
-
- UNSUPPORTED
-
-
-
-
-
-
- F90_ComplexFloat
-
-
- F90_ComplexDouble
-
-
- UNSUPPORTED
-
-
-
-
- char*
-
-
-
-
-
- UNSUPPORTED
-
-
- UNSUPPORTED
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- *
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
- void*
-
-
-
-
-
-
-
-
-
-
-
-
- *
-
-
- *
-
-
-
-
- *
-
-
-
-
-
-
- *
-
-
- *
-
-
- *
-
-
- *
-
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- rtn_
-
-
-
-
-
-
-
-
-
-
-
- rtn_
-
-
- rtn_
-
-
-
-
-
-
-
-
- rtn_
-
-
- rtn_
-
-
- rtn_
-
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- =
-
-
- =
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- =
-
-
- =
-
-
-
-
-
-
-
-
- =
-
-
- =
-
-
- =
-
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- UNSUPPORTED
-
-
-
-
-
-