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

dmm: suppress conversion warning

parent f44a8941
No related branches found
No related tags found
No related merge requests found
Show 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) ...@@ -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 INTEGER(C_INT), DIMENSION(6) :: nsC
DO I=1,6 DO I=1,6
nsC(I) = ns(I) nsC(I) = INT2(ns(I))
END DO END DO
CALL designInternal(ny,nz,nx,nu,nsC,nt,theta,TRIM(mfile)//C_NULL_CHAR,c,H,G,a,F,R) 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