Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
c2ca9f1333ac8dac834dc58836065a2f7445529e
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
reg_tests
/
bug118955.f90
blob: 9b5ce8e73d18825a5ce78818faa852f2012c9f07 [
file
] [
log
] [
blame
]
IDENT
=
RESHAPE
(
(
/ (1, (0, II=1,N), JJ=1,N-1), 1 /
),
(
/ N,N /
)
)
a
=
reshape
(
(
/ (1.0, (real(k), i=1,N), j=1,N), 1.0 /
),
&
(
/ N, N /
)
)
STOKES
=
DEN
&
&
SITY
-
11.11
end