removed duplicated declaration in ic_rt

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