diff --git a/Makefile.in b/Makefile.in
index 1555fe25d..f28015009 100644
--- a/Makefile.in
+++ b/Makefile.in
@@ -107,12 +107,13 @@ encode_rs_int.o: encode_rs.c
 decode_rs_int.o: decode_rs.c
 	$(CC) $(CFLAGS) -c -DBIGSYM=1 -o decode_rs_int.o decode_rs.c
 
-plrr:   plrr.f90 sec_midn.F90 plrr_subs.c cutil.c
-	$(FC) -o plrr plrr.f90 sec_midn.F90 plrr_subs.c cutil.c
+plrr:   plrr.F90 sec_midn.F90 plrr_subs.c cutil.c
+	$(CC) -c plrs_subs.c cutil.c
+	$(FC) -o plrr -fno-second-underscore plrr.F90 sec_midn.F90 plrr_subs.o cutil.o
 
 plrs:   plrs.F90 sec_midn.F90 plrs_subs.c cutil.c
 	$(CC) -c plrs_subs.c cutil.c
-	$(FC) -o plrs plrs.F90 sec_midn.F90 plrs_subs.o cutil.o
+	$(FC) -o plrs -fno-second-underscore plrs.F90 sec_midn.F90 plrs_subs.o cutil.o
 
 .PHONY : clean
 clean:
diff --git a/deep65.F b/deep65.F
index 937e1f930..a5b2ac7b9 100644
--- a/deep65.F
+++ b/deep65.F
@@ -12,7 +12,6 @@
       character*180 line
       character*4 rpt(MAXRPT)
       integer ncode(63,2*MAXCALLS + 2 + MAXRPT)
-      integer istat23(13)
       real pp(2*MAXCALLS + 2 + MAXRPT)
       common/mrscom/ mrs(63),mrs2(63)
 
@@ -32,8 +31,6 @@
      +         'RO','RRR','73'/
       save
 
-!      call fstatqqq(23,istat23,ierr)         !@@@
-!      modified=istat23(10)                   !@@@
       modified=0                              !@@@
       if(mycall.eq.mycall0 .and. hiscall.eq.hiscall0 .and. 
      +   hisgrid.eq.hisgrid0 .and. modified.eq.modified0) go to 30
diff --git a/map65.py b/map65.py
index c6f2f2eac..39d3e0e87 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#-------------------------------------------------------------------- MAP65
+#--------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/plrr.f90 b/plrr.F90
similarity index 100%
rename from plrr.f90
rename to plrr.F90