diff --git a/vacuum/vacuum_ma.f b/vacuum/vacuum_ma.f
index b4b3da596..97014f3c9 100644
--- a/vacuum/vacuum_ma.f
+++ b/vacuum/vacuum_ma.f
@@ -894,12 +894,12 @@ subroutine loops
       implicit real(r8) (a-h,o-z)
       implicit integer (i-n)
 
-      REAL, DIMENSION(:,:), ALLOCATABLE :: xloopin, zloopin
-      REAL, DIMENSION(:), ALLOCATABLE :: sourcemat
+      REAL(r8), DIMENSION(:,:), ALLOCATABLE :: xloopin, zloopin
+      REAL(r8), DIMENSION(:), ALLOCATABLE :: sourcemat
 
 
-      dxlin = 1.0 / (nxlpin-1)
-      dzlin = 1.0 / (nzlpin-1)
+      dxlin = 1.0_r8 / (nxlpin-1)
+      dzlin = 1.0_r8 / (nzlpin-1)
       nxzlin = nxlpin * nzlpin
       nloop = nxzlin