Skip to content

Commit

Permalink
Merge pull request #65 from pmpowers-usgs/tab-fix-62
Browse files Browse the repository at this point in the history
replaced spaces with tabs for prior edit
  • Loading branch information
pmpowers-usgs authored Oct 12, 2016
2 parents 5bbe347 + 7322a58 commit 8798442
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions src/hazFXnga13l.f
Original file line number Diff line number Diff line change
Expand Up @@ -1154,12 +1154,12 @@
& icode(ip,ia)
c insure that Toro, Frankel, Somerville, and Campbell CEUS relations are called with
c negative ipia when vs30 > 1200 m/s. Mod Oct 12 2016 pmpowers
if(vs30.gt.1200.)then
if(iatten(ip,ia).eq.2) iatten(ip,ia)= -2
if(iatten(ip,ia).eq.6) iatten(ip,ia)= -6
if(iatten(ip,ia).eq.7) iatten(ip,ia)= -7
if(iatten(ip,ia).eq.10) iatten(ip,ia)= -10
endif
if(vs30.gt.1200.)then
if(iatten(ip,ia).eq.2) iatten(ip,ia)= -2
if(iatten(ip,ia).eq.6) iatten(ip,ia)= -6
if(iatten(ip,ia).eq.7) iatten(ip,ia)= -7
if(iatten(ip,ia).eq.10) iatten(ip,ia)= -10
endif
ipia=iatten(ip,ia)
if(ipia.eq.35)then
F_inferred=1.0
Expand Down

0 comments on commit 8798442

Please # to comment.