Skip to content
Snippets Groups Projects
Commit d89f1424 authored by Houtan Bastani's avatar Houtan Bastani
Browse files

dmm: suppress conversion warning

parent f44a8941
Branches
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
mex/sources/dmm/design.f90
+ 1
− 1
View file @ d89f1424
......@@ -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)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment