Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
parser-test-code
/
reg_tests
/
bug308196.f90
blob: 987254b9d143731059838962bd2a58b824442d62 [
file
] [
log
] [
blame
]
FORALL
(
I
=
1
:
NAT
)
DIPOLES
(
3
*
I
-
2
:
3
*
I
,:)
=
ALPHA
(:,:,
I
)
end
program