C=======================================================================
C   FILE: TEST29.FOR
C   DATE: 21 July 2003
C
C   TEST: Check vector/scalar argument/parameter mapping.
C
C   Author/contact: Glenn Morris
C=======================================================================
      REAL x(2)
      X(1) = 1.
      X(2) = 2.

C Give the function a real vector argument.
      PRINT *, xfn(x)
      END

      FUNCTION XFN(X)
C This function expects a real scalar argument.
      REAL X, XFN
      XFN = X
      END