      MODULE setmcp_I
      INTERFACE
!...Generated by Pacific-Sierra Research 77to90  4.3E  06:40:03  12/28/06
!...Modified by Charlotte Froese Fischer
!                     Gediminas Gaigalas  11/02/17
      SUBROUTINE setmcp (AVAIL)
      LOGICAL, INTENT(OUT) :: AVAIL
      END SUBROUTINE
      END INTERFACE
      END MODULE
