istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

removed duplicated declaration in ic_rt

Browse Source
This commit is contained in:
Lorenzo Figini 2015-05-22 13:17:32 +00:00
parent bd8b185ddc
commit 20ce211eef
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/gray.f
View File

@ -4888,10 +4888,8 @@ c
use const_and_precisions, only : izero,zero,one,pi,cvdr=>degree, use const_and_precisions, only : izero,zero,one,pi,cvdr=>degree,
* ui=>im * ui=>im
implicit real*8 (a-h,o-z) implicit real*8 (a-h,o-z)
complex*16 ui
parameter(ndim=6,ndimm=3) parameter(ndim=6,ndimm=3)
parameter(jmx=31,kmx=36) parameter(jmx=31,kmx=36)
parameter(ui=(0.0d0,1.0d0))
dimension ywrk0(ndim,jmx,kmx),ypwrk0(ndim,jmx,kmx) dimension ywrk0(ndim,jmx,kmx),ypwrk0(ndim,jmx,kmx)
dimension ytmp(ndim),yptmp(ndim) dimension ytmp(ndim),yptmp(ndim)
dimension xc0(ndimm,jmx,kmx),du10(ndimm,jmx,kmx) dimension xc0(ndimm,jmx,kmx),du10(ndimm,jmx,kmx)
@ -5615,7 +5613,6 @@ c
end if end if
c c
return return
99 format(20(1x,e12.5))
end end
c c
c Fully relativistic case c Fully relativistic case