danh
/
pywafo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
master
Per A Brodtkorb 8 years ago
parent 217b607a4c
commit 52b6b42968
1 changed files with 134 additions and 134 deletions
Show Stats Download Patch File Download Diff File

6
wafo/source/mvn/mvndst.f
Unescape Escape View File

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

Write Preview
Loading…
Cancel
Save