diff --git a/wafo/source/mvnprd/mvnprd_interface.f b/wafo/source/mvnprd/mvnprd_interface.f
index 34e1b17..6891d37 100644
--- a/wafo/source/mvnprd/mvnprd_interface.f
+++ b/wafo/source/mvnprd/mvnprd_interface.f
@@ -54,7 +54,7 @@ C              D(Ndim) = D(K)
            endif
       ENDDO
       CALL MVSTUD(NDF,B,A,RHO,ABSEPS,Ndim,INFIN,D,IERC,HNC,
-     &	PRB,BOUND,IFAULT)
+     & PRB,BOUND,IFAULT)
 
 C	CALL MVNPRD(A, B, BPD, EPS, N, INF, IERC, HINC, PROB, BOUND,
 C     *  IFAULT)