diff --git a/src/hazFXnga13l.f b/src/hazFXnga13l.f
index d91bda9..f354a26 100644
--- a/src/hazFXnga13l.f
+++ b/src/hazFXnga13l.f
@@ -1152,8 +1152,14 @@
 c     &  weight2 , mb to M conv."
       read(1,*) iatten(ip,ia),wt(ip,ia,1),wtdist(ip,ia),wt(ip,ia,2),
      &   icode(ip,ia)
-c insure that Campbell CEUS relation is called with negative ipia when vs30 > 1200 m/s. Mod sept 21 2016 SH
-	if(iatten(ip,ia).eq.10 .and. vs30 .gt.1200.)iatten(ip,ia)= -10
+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
       ipia=iatten(ip,ia)
 	if(ipia.eq.35)then
 	F_inferred=1.0