INDEX are used in some different place
--- src/comnla.f~	Fri Aug 24 23:42:28 2001
+++ src/comnla.f	Wed Jan 17 13:49:29 2007
@@ -60,7 +60,7 @@
 C
 C     REAL INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1)
       INTEGER INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1)
-      COMMON /INDEX/ INDA,INDR,INDS,INDB
+      COMMON /INDEX_/ INDA,INDR,INDS,INDB
 C
 C     SOURCE AND RECEIVER PARAMETERS
 C
--- pulsplot/comnla.f~	Sat Feb 12 00:59:20 2000
+++ pulsplot/comnla.f	Wed Jan 17 13:50:41 2007
@@ -37,7 +37,7 @@
 C
 C     REAL INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1)
       INTEGER INDA(NLA1),INDR(NLA3),INDS(NLA3),INDB(NLA1)
-      COMMON /INDEX/ INDA,INDR,INDS,INDB
+      COMMON /INDEX_/ INDA,INDR,INDS,INDB
 C
 C     SOURCE PARAMETERS
 C