*-----------------------------------------------------------------------
*     SWRQNP / SWRQID / SWRQCP / SWRQVL / SWRSVL
*-----------------------------------------------------------------------
      SUBROUTINE SWRQNP(NCP)
      INTEGER   NCP
      CHARACTER CP*(*)

      CHARACTER CMSG*80

      NCP = 0

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

      IDX = 0

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

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

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

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

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

      RETURN
*-----------------------------------------------------------------------
      ENTRY SWRQVL(IDX, RPARA)

      RPARA = 0

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

      RETURN
*-----------------------------------------------------------------------
      ENTRY SWRSVL(IDX, RPARA)

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

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

      IN = 0

      RETURN
      END
