Remove unused variables (mflag)

jacobwilliams · Aug 28, 2018 · e79b2b3 · e79b2b3
1 parent ef5c3a9
commit e79b2b3
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/bspline_sub_module.f90 b/src/bspline_sub_module.f90
@@ -511,7 +511,7 @@ pure subroutine db2val(xval,yval,idx,idy,tx,ty,nx,ny,kx,ky,bcoef,f,iflag,inbvx,i
     logical,intent(in),optional          :: extrap   !! if extrapolation is allowed
                                                      !! (if not present, default is False)
 
-    integer :: k, lefty, mflag, kcol
+    integer :: k, lefty, kcol
     real(wp),dimension(ky) :: temp
     real(wp),dimension(3*max(kx,ky)) :: work
 
@@ -799,7 +799,7 @@ pure subroutine db3val(xval,yval,zval,idx,idy,idz,&
     real(wp),dimension(kz)              :: temp2
     real(wp),dimension(3*max(kx,ky,kz)) :: work
 
-    integer :: lefty, leftz, mflag,&
+    integer :: lefty, leftz, &
                 kcoly, kcolz, j, k
 
     f = 0.0_wp
@@ -1078,8 +1078,8 @@ pure subroutine db4val(xval,yval,zval,qval,&
     real(wp),dimension(kz,kq)                :: temp2
     real(wp),dimension(kq)                   :: temp3
     real(wp),dimension(3*max(kx,ky,kz,kq))   :: work
-    integer :: lefty, leftz, leftq, mflag,&
-                kcoly, kcolz, kcolq, j, k, q
+    integer :: lefty, leftz, leftq, &
+               kcoly, kcolz, kcolq, j, k, q
 
     f = 0.0_wp
 
@@ -1435,7 +1435,7 @@ pure subroutine db5val(xval,yval,zval,qval,rval,&
     real(wp),dimension(kq,kr)                 :: temp3
     real(wp),dimension(kr)                    :: temp4
     real(wp),dimension(3*max(kx,ky,kz,kq,kr)) :: work
-    integer :: lefty, leftz, leftq, leftr, mflag,&
+    integer :: lefty, leftz, leftq, leftr, &
                kcoly, kcolz, kcolq, kcolr, j, k, q, r
 
     f = 0.0_wp
@@ -1850,7 +1850,6 @@ pure subroutine db6val(xval,yval,zval,qval,rval,sval,&
     real(wp),dimension(3*max(kx,ky,kz,kq,kr,ks))  :: work
 
     integer :: lefty,leftz,leftq,leftr,lefts,&
-               mflag,&
                kcoly,kcolz,kcolq,kcolr,kcols,&
                j,k,q,r,s