diff --git a/Code/grids.f90 b/Code/grids.f90
index e834b62942be71a6e462d26f6c2b614be34e9691..9f1902de436a139aeadf3674146295b48ad34bf0 100644
--- a/Code/grids.f90
+++ b/Code/grids.f90
@@ -54,7 +54,7 @@ CONTAINS
          der2v(:,:),cdmpv(:,:)
     INTEGER :: i
     ALLOCATE(v(nv),der1v(nv,nv),der2v(nv,nv),cdmpv(nv,nv))
-    v=(/ ((i-1)*dv-0.5D0*FLOAT(nv-1)*dv,i=1,nv) /)
+    v=(/ ((i-1)*dv-0.5D0*REAL(nv-1,KIND(v))*dv,i=1,nv) /)
     IF(wflag) THEN
        WRITE(*,'(1X,A,I3,A,F8.4,2(A,F8.4))') name // ' direction: ',nv, &
             ' points, spacing:',dv,' ranging from ',v(1),' to ',v(nv)