From d89f1424c8262549c87093cbea5780cefb00e93e Mon Sep 17 00:00:00 2001 From: Houtan Bastani <houtan@dynare.org> Date: Thu, 27 Nov 2014 16:40:27 +0100 Subject: [PATCH] dmm: suppress conversion warning --- mex/sources/dmm/design.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mex/sources/dmm/design.f90 b/mex/sources/dmm/design.f90 index 95732d2854..84e16a7dbc 100644 --- a/mex/sources/dmm/design.f90 +++ b/mex/sources/dmm/design.f90 @@ -55,7 +55,7 @@ SUBROUTINE DESIGN(ny,nz,nx,nu,ns,nt,theta,c,H,G,a,F,R) INTEGER(C_INT), DIMENSION(6) :: nsC DO I=1,6 - nsC(I) = ns(I) + nsC(I) = INT2(ns(I)) END DO CALL designInternal(ny,nz,nx,nu,nsC,nt,theta,TRIM(mfile)//C_NULL_CHAR,c,H,G,a,F,R) -- GitLab