From 841524b8ac6313171afcec7962e951cf91e5fbcb Mon Sep 17 00:00:00 2001
From: pbrod <per.andreas.brodtkorb@gmail.com>
Date: Sun, 22 May 2016 01:32:43 +0200
Subject: [PATCH] Removed duplicated variables

---
 wafo/source/mvnprd/mvnprd.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/wafo/source/mvnprd/mvnprd.f b/wafo/source/mvnprd/mvnprd.f
index bcc32fc..d9d2a61 100644
--- a/wafo/source/mvnprd/mvnprd.f
+++ b/wafo/source/mvnprd/mvnprd.f
@@ -153,7 +153,7 @@ C
      $     , HL(NN),BB(NN)
       INTEGER INF(*), INFT(NN), LDIR(22)
       DOUBLE PRECISION ZERO, HALF, ONE, TWO, FOUR, SIX, PT1, PT24,
-     *  ONEP5, X2880, SMALL, DXMIN, SQRT2, PROB, ERRL, BI, START,
+     *  SMALL, DXMIN, SQRT2, PROB, ERRL, BI, START,
      *  Z, HINC, ADDN, EPS2, EPS1, EPS, ZU, Z2, Z3, Z4, Z5, ZZ,
      *  ERFAC, EL, EL1, BOUND, PART0, PART2, PART3, FUNC0, FUNC2,
      *  FUNCN, WT, CONTRB, DLG, DX, DA, ESTL, ESTR, TSUM, EXCESS, ERROR,