From 475e43d3070ea43a43b5e91a944144a06c8ef573 Mon Sep 17 00:00:00 2001
From: Per A Brodtkorb <per.andreas.brodtkorb@gmail.com>
Date: Thu, 1 Jun 2017 18:29:26 +0200
Subject: [PATCH] Fixed mvndst.f

---
 wafo/source/mvn/mvndst.f | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/wafo/source/mvn/mvndst.f b/wafo/source/mvn/mvndst.f
index 6265ab8..0ac832a 100644
--- a/wafo/source/mvn/mvndst.f
+++ b/wafo/source/mvn/mvndst.f
@@ -122,16 +122,16 @@ C f2py mvn.pyf mvndst.f -c --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
 *            if INFORM = 2, N > 500 or N < 1.
 *
       EXTERNAL MVNDFN
-      INTEGER N, INFIN(*), MAXPTS, INFORM, INFIS, IVLS, MVNDNT
+      INTEGER N, INFIN(*), MAXPTS, INFORM, INFIS, IVLS
       DOUBLE PRECISION CORREL(*), LOWER(*), UPPER(*), RELEPS, ABSEPS,
-     &                 ERROR, VALUE, E, D, MVNDFN
+     &                 ERROR, VALUE, E, D, MVNDNT, MVNDFN
       COMMON /DKBLCK/IVLS
       IF ( N .GT. 500 .OR. N .LT. 1 ) THEN
          INFORM = 2
          VALUE = 0
          ERROR = 1
       ELSE
-         INFORM = MVNDNT(N, CORREL, LOWER, UPPER, INFIN, INFIS, D, E)
+         INFORM = INT(MVNDNT(N, CORREL, LOWER, UPPER, INFIN, INFIS, D, E))
          IF ( N-INFIS .EQ. 0 ) THEN
             VALUE = 1
             ERROR = 0