MODULE nf_wrap_stubs

  !-----------------------------------------------------------------------------
  !   stubs for NetCDF library wrappers
  !
  !   CVS:$Id: nf_wrap_stubs.F90,v 1.1 2001/09/10 22:40:28 klindsay Exp $
  !   CVS:$Name:  $
  !   CVS:$Log: nf_wrap_stubs.F90,v $
  !   CVS:Revision 1.1  2001/09/10 22:40:28  klindsay
  !   CVS:initial checkin
  !   CVS:
  !-----------------------------------------------------------------------------

  USE kinds_mod

  !*****************************************************************************

CONTAINS

  !*****************************************************************************

  SUBROUTINE nf_wrap_stop

    CALL ABORT

  END SUBROUTINE nf_wrap_stop

  !*****************************************************************************

  SUBROUTINE nf_wrap_broadcast(STAT)

    INTEGER(KIND=int_kind), INTENT(INOUT) :: STAT

    ! do nothing, program is serial

  END SUBROUTINE nf_wrap_broadcast

  !*****************************************************************************

END MODULE nf_wrap_stubs