C Copyright(c) 1999, Space Science and Engineering Center, UW-Madison
C Refer to "McIDAS Software Acquisition and Distribution Policies"
C in the file  mcidas/data/license.txt

C *** $Id: smpcore.f,v 1.0 1999/09/28 14:38:32 russd Tst $ ***

C ? SMPCORE  - McIDAS core sample program
C ?    SMPCORE   
C ? Parameters:
C ?    none
C ? Keywords:
C ?    none
C ? Remarks:
C ?    McIDAS sample program.
C ?
C ?    This application does nothing. It is intended to illustrate 
C ?    the basic format of a McIDAS application.
C ? ----------

      subroutine main0
      implicit none

c --- external functions

c --- internal functions
      integer	        xxx_utils       ! blank test function 

c --- internal variables
      integer		status    	! function status


c **************** Program Body **************

c --- set initial program status to FAILED
      call MCCODESET( -1 ) 

c --- command line argument fetchers
      status = XXX_UTILS( )
      if( status.lt.0 ) return

c --- set the program status to SUCCESS
      call MCCODESET( 0 )

c --- signal finished 
      call EDEST('Done ...',0)

      return
      end

** Name:
**	XXX_utils - core code sample
**
** Interface:
**	integer function
**	XXX_utils( )
**
** Input:
**      ??? 
**
** Input and Output:
**	???
**
** Output:
**      ??? 
**
** Return values:
**      0	- Success
**     -1	- Failed
**
** Remarks:
**	Used to illustrate basic command line retrieval functions
**
** Categories:
**	???        


      integer function XXX_utils( ) 
      implicit none

c --- parameters

c --- internal constants

c --- external functions

c --- internal variables

c ************ Function Body *************

c --- initialize the function status
      XXX_utils = -1
  

c --- set return status 
      XXX_utils = 0

      return
      end