From 91bac94a807079f5328fe65703da2b0c0c85c3ef Mon Sep 17 00:00:00 2001 From: Per A Brodtkorb Date: Thu, 1 Jun 2017 18:36:47 +0200 Subject: [PATCH] Reverted change --- wafo/source/mvn/mvndst.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/wafo/source/mvn/mvndst.f b/wafo/source/mvn/mvndst.f index 0ac832a..ab259c0 100644 --- a/wafo/source/mvn/mvndst.f +++ b/wafo/source/mvn/mvndst.f @@ -131,7 +131,7 @@ C f2py mvn.pyf mvndst.f -c --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71 VALUE = 0 ERROR = 1 ELSE - INFORM = INT(MVNDNT(N, CORREL, LOWER, UPPER, INFIN, INFIS, D, E)) + INFORM = MVNDNT(N, CORREL, LOWER, UPPER, INFIN, INFIS, D, E) IF ( N-INFIS .EQ. 0 ) THEN VALUE = 1 ERROR = 0