c  Mahc_Evolve: Numerical Evolution of the General Relativistic Hydro Equations
c  Copyright (C) 2001 Mark Miller

/*@@
  @file      Mahc_pred_icn_primvarsolve.F
  @date      January 2000
  @author    Mark Miller
  @desc
     Solve the primative variables from the evolved variables for 
     icn predictor step.
  @enddesc
@@*/

#include "cctk.h"
#include "cctk_Parameters.h"
#include "cctk_Arguments.h"


/*@@
  @routine    Mahc_pred_icn_primvarsolve
  @date       January 2000
  @author     Mark Miller
  @desc
     Solve the primative variables from the evolved variables for 
     icn predictor step.
  @enddesc
  @calls
  @calledby
  @history
  @endhistory
@@*/

      subroutine Mahc_pred_icn_primvarsolve(CCTK_FARGUMENTS)
      implicit none
      DECLARE_CCTK_FARGUMENTS
      DECLARE_CCTK_PARAMETERS

      call get_prim_var(CCTK_FARGUMENTS)

      return
      end