From ccb59b4820039858f75d1573f3cf0196be3d81a5 Mon Sep 17 00:00:00 2001
From: guzman <guzman@971fb155-194f-0410-9daf-e2eca44e59f5>
Date: Fri, 3 May 2002 13:58:47 +0000
Subject: Migrating -> Einstein 2

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@25 971fb155-194f-0410-9daf-e2eca44e59f5
---
 src/DistortedBHIVP.F | 28 ++++++++++++++++++++++++----
 src/make.code.defn   |  2 +-
 2 files changed, 25 insertions(+), 5 deletions(-)

diff --git a/src/DistortedBHIVP.F b/src/DistortedBHIVP.F
index 9532815..fa96088 100644
--- a/src/DistortedBHIVP.F
+++ b/src/DistortedBHIVP.F
@@ -25,9 +25,6 @@ c
 c     @endhistory 
 c@@   */
 
-c     Need include file from Einstein
-#include "CactusEinstein/Einstein/src/Einstein.h"
-
       subroutine DistortedBHIVP(CCTK_ARGUMENTS)
 
       implicit none
@@ -60,8 +57,31 @@ c     Perhaps this and others should go into cctk.h
       integer :: nx,ny,nz
       integer i,j,k,ier,nquads,nocts,order
       integer npoints,handle,ierror
+      integer make_conformal_derivs
+
+c Check if we should create and store conformal factor stuff
+
+      if (CCTK_EQUALS(metric_type, "static conformal")) then
+
+         conformal_state = 1
       
-      conformal_state = CONFORMAL_METRIC     
+         if(CCTK_EQUALS(conformal_storage,"factor+derivs")) then
+         
+            conformal_state = 2
+            make_conformal_derivs = 1
+
+          else if (CCTK_EQUALS(conformal_storage,"factor+derivs+2nd derivs")) then
+          
+            conformal_state = 3
+            make_conformal_derivs = 1
+
+          endif
+          
+       else
+       
+         make_conformal_derivs = 0
+       
+       endif
       
       pi = 4.0d0*atan(1.0d0)
 
diff --git a/src/make.code.defn b/src/make.code.defn
index e34babf..631ee7d 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -2,7 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = DistortedBHIVP.F Stab3d.F
+SRCS = DistortedBHIVP.F Stab3d.F ParamCheck.c
 
 # Subdirectories containing source files
 SUBDIRS = 
-- 
cgit v1.2.3