      LOGICAL FUNCTION ftrue()
************************************************************************
*     (Logical True)
*     Return the Fortran logical constant .TRUE..
*
*     This function is intended to allow programs written in other
*     languages to obtain the value of this implementation-dependent
*     Fortran constant.
*     (01-Aug-2000)
************************************************************************
      ftrue = .TRUE.
      END
