!
!##################################################################
!##################################################################
!######                                                      ######
!######                  SUBROUTINE SET99                    ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!


SUBROUTINE set99 8,3
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  A dummy routine to be linked instead of the functional routine
!  set99 for the remap routines that don't use this, anyway.
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Keith Brewster
!  9/25/97
!
!  MODIFICATION HISTORY:
!
!-----------------------------------------------------------------------
!
  WRITE (6,'(a,/a)') 'You are calling a dummy function, SET99. ',       &
                     'Stopping in dummy SET99.'
  STOP

END SUBROUTINE set99
!
!##################################################################
!##################################################################
!######                                                      ######
!######                  SUBROUTINE RSTIN                    ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!


SUBROUTINE rstin 1,83
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  A dummy routine to be linked instead of the functional routine
!  rstin for the remap routines that don't use this, anyway.
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Keith Brewster
!  9/25/97
!
!  MODIFICATION HISTORY:
!
!-----------------------------------------------------------------------
!
  WRITE (6,'(a,/a)') 'You are calling a dummy function, RSTIN.',        &
                      'Stopping in dummy RSTIN.'
  STOP

END SUBROUTINE rstin


SUBROUTINE rstinsplit 1,171

  WRITE (6,'(a,/a)') 'You are calling a dummy function, RSTIN.',        &
                      'Stopping in dummy RSTIN.'
  STOP

END SUBROUTINE rstinsplit
!
!
!##################################################################
!##################################################################
!######                                                      ######
!######                SUBROUTINE EXTBDTINI                  ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!


SUBROUTINE extbdtini 1,7
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  A dummy routine to be linked instead of the functional routine
!  extbdtini for the remap routines that don't use this, anyway.
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Keith Brewster
!  9/25/97
!
!  MODIFICATION HISTORY:
!
!-----------------------------------------------------------------------
!
  WRITE (6,'(a,/a)') 'You are calling a dummy function, EXTBDTINI.',    &
                    'Stopping in dummy EXTBDTINI.'
  STOP

END SUBROUTINE extbdtini
!
!##################################################################
!##################################################################
!######                                                      ######
!######                 SUBROUTINE INIPHASE                  ######
!######                                                      ######
!######                     Developed by                     ######
!######     Center for Analysis and Prediction of Storms     ######
!######                University of Oklahoma                ######
!######                                                      ######
!##################################################################
!##################################################################
!


SUBROUTINE iniphase
!
!-----------------------------------------------------------------------
!
!  PURPOSE:
!
!  A dummy routine to be linked instead of the functional routine
!  iniphase for the remap routines that don't use this, anyway.
!
!-----------------------------------------------------------------------
!
!  AUTHOR: Keith Brewster
!  9/25/97
!
!  MODIFICATION HISTORY:
!
!-----------------------------------------------------------------------
!
  WRITE (6,'(a,/a)') 'You are calling a dummy function, INIPHASE.',    &
                    'Stopping in dummy INIPHASE.'
  STOP

END SUBROUTINE iniphase