diff --git a/AmberTools/src/pbsa/Makefile b/AmberTools/src/pbsa/Makefile
index 28cab99..f2ea1e2 100644
--- a/AmberTools/src/pbsa/Makefile
+++ b/AmberTools/src/pbsa/Makefile
@@ -214,7 +214,7 @@ c9x-complex:
 
 amg1r5.o: amg1r5.f
 	$(FPP) $(FPPFLAGS) $(AMBERFPPFLAGS) $< > _$<
-	$(FC) -c $(FCREAL8) $(FOPTFLAGS) $(FFLAGS) $(AMBERFFLAGS) -o $@ _$<
+	$(FC) -c $(FOPTFLAGS) $(FFLAGS) $(AMBERFFLAGS) -o $@ _$<
 
 .f.o:   $<
 	$(FPP) $(FPPFLAGS) $(AMBERFPPFLAGS) $< > _$<
diff --git a/AmberTools/src/pbsa/amg1r5.f b/AmberTools/src/pbsa/amg1r5.f
index 947bd04..85487c1 100644
--- a/AmberTools/src/pbsa/amg1r5.f
+++ b/AmberTools/src/pbsa/amg1r5.f
@@ -3710,7 +3710,7 @@ end subroutine usave
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 !+ [Enter a one-line description of real function cgeps here]
-real function cgeps(k,s2,a,u,f,ia,ja,iw, &
+_REAL_ function cgeps(k,s2,a,u,f,ia,ja,iw, &
       imin,imax,iminw,m,ierr,ium)
    
    implicit _REAL_ (a-h,o-z)
@@ -3756,7 +3756,7 @@ end function cgeps
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 !+ [Enter a one-line description of real function cgalf here]
-real function cgalf(k,s2,a,u,f,ia,ja,iw, &
+_REAL_ function cgalf(k,s2,a,u,f,ia,ja,iw, &
       imin,imax,iminw,m)
    
    implicit _REAL_ (a-h,o-z)
@@ -3974,7 +3974,7 @@ end subroutine idec
 
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 !+ [Enter a one-line description of real function random here]
-real function random(s)
+_REAL_ function random(s)
    
    !     FUNCTION TO CREATE "RANDOM" SEQUENCE OF NUMBERS BETWEEN 0 AND 0.1