C RARCO0: INIT PHASE ROUTINE OF /RISCARCO
C-----------------------------------------------------------------------
C PURPOSE: routine with no input parameters and trace in/trace out
C		processing (hard-wired algorithm in EXEC)
c		Simply put algorithm in HARDAX.f, compile, relink
c		and run with simple call to /HARDWIRA
C-----------------------------------------------------------------------
C WINDOW ARGUMENTS:
C NAME    TYP  DIM  IO  DESCRIPTION
C ------  ---  ---  --  -----------
C
C-----------------------------------------------------------------------
C COMMON ARGUMENTS:
C NAME    TYP  DIM  IO  INCLUDE  DESCRIPTION
C ------  ---  ---  --  -------  -----------
C
C-----------------------------------------------------------------------
C PROGRAM HISTORY:
C NAME  DDMMMYY  DESCRIPTION
C ----  -------  -----------
C DAO   25JAN90  Initial installment
c dao	05mar92	 install into IRIS-SEIS v1.5
c dao	12mar92	 Modified from /EASYIN's EASYIN.f and EASYEX.f
c dao	29jul92	 installed.
C Copyright (c) none - academic routine
C All Rights Reserved.
C
C-----------------------------------------------------------------------
      SUBROUTINE RARCO0
C-----------------------------------------------------------------------
C GLOBAL DECLARATIONS:
C
c#include "SSCOM.INC"
c#include "SSCUNI.INC"
	include "SSCOM.INC"
	include "SSCUNI.INC"

C-----------------------------------------------------------------------
C LOCAL DECLARATIONS:
      CHARACTER*8 NAME
C-----------------------------------------------------------------------
C START OF SUBPROGRAM HARDA0:
C-----------------------------------------------------------------------

C Initialize variables.   (clear variables and preset defaults)
C ---------------------
      NAME = 'HARDWIRA'

      CALL DRTABL ('DUMMY   ','DEC ',idum,1,1,.FALSE.)
      CALL DRPRMS (IRETC,NVALS)
	

C reserve data trace and work space buffers
      CALL DRGNCL (NAME,KNSAMP,KNSAMP)


      RETURN
      END