Fixed change of value in conversion from REAL(8) to INTEGER(4) at line 134 and 719 + pep8

wafo/source/mvn/mvndst.f

@@ -122,9 +122,9 @@ 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
+      INTEGER N, INFIN(*), MAXPTS, INFORM, INFIS, IVLS, MVNDNT
       DOUBLE PRECISION CORREL(*), LOWER(*), UPPER(*), RELEPS, ABSEPS,
-     &                 ERROR, VALUE, E, D, MVNDNT, MVNDFN
+     &                 ERROR, VALUE, E, D, MVNDFN
       COMMON /DKBLCK/IVLS
       IF ( N .GT. 500 .OR. N .LT. 1 ) THEN
          INFORM = 2
@@ -716,7 +716,7 @@ C f2py mvn.pyf mvndst.f -c --fcompiler=gnu95 --compiler=mingw32 -lmsvcr71
       SUMKRO = 0
       NK = MIN( NDIM, KLIM )
       DO J = 1, NK - 1
-         JP = J + MVNUNI()*( NK + 1 - J ) 
+         JP = J + INT(MVNUNI()*( NK + 1 - J ))
          XT = VK(J)
          VK(J) = VK(JP)
          VK(JP) = XT