*-----------------------------------------------------------------------
*     UULQNP / UULQID / UULQCP / UULQVL / UULSVL
*-----------------------------------------------------------------------
      SUBROUTINE UULQNP(NCP)
      INTEGER   NCP
      CHARACTER CP*(*)
      LOGICAL   LPARA

      CHARACTER CMSG*80

      NCP = 0

      RETURN
*-----------------------------------------------------------------------
      ENTRY UULQID(CP, IDX)

      IDX = 0

      CMSG = 'PARAMETER '''//CP(1:LENC(CP))//''' IS NOT DEFINED.'
      CALL MSGDMP('E','UULQID',CMSG)

      RETURN
*-----------------------------------------------------------------------
      ENTRY UULQCP(IDX, CP)

      CALL MSGDMP('E','UULQCP','IDX IS OUT OF RANGE.')

      RETURN
*-----------------------------------------------------------------------
      ENTRY UULQCL(IDX, CP)

      CALL MSGDMP('E','UULQCL','IDX IS OUT OF RANGE.')

      RETURN
*-----------------------------------------------------------------------
      ENTRY UULQVL(IDX, LPARA)

      LPARA = .FALSE.

      CALL MSGDMP('E','UULQVL','IDX IS OUT OF RANGE.')

      RETURN
*-----------------------------------------------------------------------
      ENTRY UULSVL(IDX, LPARA)

      CALL MSGDMP('E','UULSVL','IDX IS OUT OF RANGE.')

      RETURN
*-----------------------------------------------------------------------
      ENTRY UULQIN(CP, IN)

      IN = 0

      RETURN
      END
