From 4b95038531a96c4f7dc48b25cf44287e90f505cf Mon Sep 17 00:00:00 2001
From: yye00 <yye00@daab82bb-f315-4ad1-b6d0-9353ff8b6e27>
Date: Fri, 29 Apr 2005 21:25:30 +0000
Subject: more \r to \n conversion

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyFreeF90/trunk@76 daab82bb-f315-4ad1-b6d0-9353ff8b6e27
---
 src/InitSymBound.F90 | 39 ---------------------------------------
 1 file changed, 39 deletions(-)

(limited to 'src/InitSymBound.F90')

diff --git a/src/InitSymBound.F90 b/src/InitSymBound.F90
index 8822a73..e69de29 100644
--- a/src/InitSymBound.F90
+++ b/src/InitSymBound.F90
@@ -1,39 +0,0 @@
- /*@@
-   @file    InitSymBound.F90
-   @date    
-   @author  Gabrielle Allen
-   @desc
-            Sets the symmetries across the coordinate axes
-   @enddesc
- @@*/
-
-#include "cctk.h"
-#include "cctk_Arguments.h"
-
- /*@@
-   @routine    WaveToyFreeF90_InitSymBound
-   @date      
-   @author     Gabrielle Allen
-   @desc 
-               Sets the symmetries for Wave Toy
-   @enddesc 
-   @calls     
-   @calledby   
-   @history 
- 
-   @endhistory 
-
-@@*/
-
-subroutine WaveToyFreeF90_InitSymBound(CCTK_ARGUMENTS)
-  
-  implicit none
-  
-  DECLARE_CCTK_ARGUMENTS 
-
-  INTEGER :: ierr  
-  INTEGER, DIMENSION(3) :: sym = 1
-  
-  call SetCartSymVN(ierr, cctkGH, sym, 'wavetoy::phi')
-  
-end subroutine WaveToyFreeF90_InitSymbound
-- 
cgit v1.2.3