- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Email to a Friend
- Report Inappropriate Content
I have a subroutine (please see the below). After debug, there are 3 errors (please see the screenshot). Actually, x(dim, maxn) , vx(dim, maxn) are dynamic arrays, but they are treated as static arrays. Would you help me to make IVF 2013 recognize them as dynamic? Many thanks in advance.
implicit none
include 'param.inc'
subroutine shear_cavity(x, vx, mass, rho, p, u, itype, hsml, ntotal)
integer itype(maxn), ntotal
double precision mass(maxn), x(dim, maxn), vx(dim, maxn),
& rho(maxn), p(maxn), u(maxn), hsml(maxn)
integer i, j, d, m, n, mp, np, k
double precision xl, yl, dx, dy
c Giving mass and smoothing length as well as other data.
m = 41
n = 41
mp = m-1
np = n-1
ntotal = mp * np
xl = 1.e-3
yl = 1.e-3
dx = xl/mp
dy = yl/np
do i = 1, mp
do j = 1, np
k = j + (i-1)*np
x(1, k) = (i-1)*dx + dx/2.
x(2, k) = (j-1)*dy + dy/2.
enddo
enddo
do i = 1, mp*np
vx(1, i) = 0.
vx(2, i) = 0.
rho (i) = 1000.
mass(i) = dx*dy*rho(i)
p(i)= 0.
u(i)=357.1
itype(i) = 2
hsml(i) = dx
enddo
Link Copied

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page