From 7322a5888618f2a2a508ca45b8d27ed86e56d4dd Mon Sep 17 00:00:00 2001 From: Peter Powers Date: Wed, 12 Oct 2016 13:07:46 -0600 Subject: [PATCH] replaced spaces with tabs for prior edit --- src/hazFXnga13l.f | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/hazFXnga13l.f b/src/hazFXnga13l.f index f354a26..e177551 100644 --- a/src/hazFXnga13l.f +++ b/src/hazFXnga13l.f @@ -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