spack/var/spack/repos/builtin/packages/ppopen-appl-fdm/unused.patch
liuyangzhuan 83f97e8eba
Adding packages for gptune and its dependencies (#26936)
* added package gptune with all its dependencies: adding py-autotune, pygmo, py-pyaml, py-autotune, py-gpy, py-lhsmdu, py-hpbandster, pagmo2, py-opentuner; modifying superlu-dist, py-scikit-optimize

* adding gptune package

* minor fix for macos spack test

* update patch for py-scikit-optimize; update test files for gptune

* fixing gptune package style error

* fixing unit tests

* a few changes reviewed in the PR

* improved gptune package.py with a few newly added/improved dependencies

* fixed a few style errors

* minor fix on package name py-pyro4

* fixing more style errors

* Update var/spack/repos/builtin/packages/py-scikit-optimize/package.py

Co-authored-by: Adam J. Stewart <ajstewart426@gmail.com>

* resolved a few issues in the PR

* fixing file permissions

* a few minor changes

* style correction

* minor correction to jq package file

* Update var/spack/repos/builtin/packages/py-pyro4/package.py

Co-authored-by: Adam J. Stewart <ajstewart426@gmail.com>

* fixing a few issues in the PR

* adding py-selectors34 required by py-pyro4

* improved the superlu-dist package

* improved the superlu-dist package

* moree changes to gptune and py-selectors34 based on the PR

* Update var/spack/repos/builtin/packages/py-selectors34/package.py

Co-authored-by: Adam J. Stewart <ajstewart426@gmail.com>

Co-authored-by: Adam J. Stewart <ajstewart426@gmail.com>
2021-11-24 16:06:43 -06:00

14 lines
533 B
Diff

diff --git a/tools/seismic_2D-tools/rwav2d.f90 b/tools/seismic_2D-tools/rwav2d.f90
index ec08ea8..0f9543c 100644
--- a/tools/seismic_2D-tools/rwav2d.f90
+++ b/tools/seismic_2D-tools/rwav2d.f90
@@ -41,7 +41,7 @@ program sort_seism2d_result
integer :: station_num
integer :: ns, isx, isz
- integer :: i, k, ii, kk, j, IT
+ integer :: i, k, ii, kk, j
character(len=80) filename, filename2, tmp1
integer :: istx(5000,100), istz(5000,100), stnum(5000,100)
real(PN) :: ntime(5000,100), vxall(5000,100), vzall(5000,100)