Commented out unused variables

wafo/source/mreg/cov2mmpdfreg_intfc.f

@@ -64,8 +64,9 @@ Cf2py integer, optional :: NIT = 2
 Cf2py real*8, intent(out), depend(Nu,Nv) :: UVdens
 Cf2py depend(Ng)  Xg
 Cf2py depend(Nt,5)  COV
-      real*8 Q0,SQ0,Q1,SQ1, U,V,VV, XL0, XL2, XL4
-      REAL*8 VDERI, CDER,SDER, DER, CONST1, F, HHHH, FM, VALUE
+      real*8 Q0,SQ0,Q1,SQ1, U,V, XL0, XL2, XL4
+      REAL*8 VDERI, DER, F, HHHH, VALUE
+C      REAL*8 VV, CDER,SDER, CONST1, FM
 C     INTEGER, PARAMETER :: MMAX = 5, NMAX = 101, RDIM = 10201
       REAL*8, DIMENSION(NMAX) :: HHT,VT,UT,Vdd,Udd
       REAL*8, DIMENSION(RDIM) :: R,R1,R2,R3
@@ -96,7 +97,7 @@ C      DIMENSION B1(NMAX),DB1(NMAX),DDB1(NMAX)
 C      DIMENSION DB2(NMAX),DDB2(NMAX)
 C      DIMENSION Q(NMAX),SQ(NMAX),VDER(NMAX),DBI(NMAX),BI(NMAX)
       INTEGER :: J,I,I1,I2,I3,IU, IV,N, NNIT, INF
-      INTEGER ::  fffff
+C     INTEGER ::  fffff
 C     REAL*8 EPS0
 C     INTEGER III01,III11,III21,III31,III41,III51
 C     *,III61,III71,III81,III91,III101 , III0

wafo/source/mvnprd/mvnprd_interface.f

@@ -5,7 +5,8 @@
       integer INFIN(N)
       integer NDF,N,IERC
       integer IFAULT
-      double precision HNC,EPS
+      double precision HNC
+C      double precision EPS
       double precision PRB, BOUND
       double precision, parameter :: infinity = 37.0d0
 Cf2py integer, intent(hide), depend(rho) :: N = len(rho)

wafo/source/rind2007/rind_interface.f

@@ -157,7 +157,8 @@ Cf2py integer, optional :: nint1 = 2
       USE rindmod
       USE rind71mod, only : rind71
       IMPLICIT NONE
-      INTEGER :: Ntd,Nj,K,I
+      INTEGER :: Ntd
+C      INTEGER :: Nj,K, I
       INTEGER :: seed1
       integer :: Nx,Nx1,Nt, Nc,Ntdc,Ni,Nb,Mb
       DOUBLE PRECISION, dimension(Ntdc,Ntdc) :: BIG