From 20ce211eefc3b7c8906613c4272a9bd7670e3a3c Mon Sep 17 00:00:00 2001 From: Lorenzo Figini Date: Fri, 22 May 2015 13:17:32 +0000 Subject: [PATCH] removed duplicated declaration in ic_rt --- src/gray.f | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/gray.f b/src/gray.f index 55b3a7c..3f89652 100644 --- a/src/gray.f +++ b/src/gray.f @@ -4888,10 +4888,8 @@ c use const_and_precisions, only : izero,zero,one,pi,cvdr=>degree, * ui=>im implicit real*8 (a-h,o-z) - complex*16 ui parameter(ndim=6,ndimm=3) parameter(jmx=31,kmx=36) - parameter(ui=(0.0d0,1.0d0)) dimension ywrk0(ndim,jmx,kmx),ypwrk0(ndim,jmx,kmx) dimension ytmp(ndim),yptmp(ndim) dimension xc0(ndimm,jmx,kmx),du10(ndimm,jmx,kmx) @@ -5615,7 +5613,6 @@ c end if c return -99 format(20(1x,e12.5)) end c c Fully relativistic case