You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 lines
307 B
7 lines
307 B
integer:: z1(2),z2(2,2),z3(2,2,2),z4(2,2,2,2),z5(2,2,2,2,2),
|
|
. z6(2,2,2,2,2,2),z7(2,2,2,2,2,2,2)
|
|
real(dp)::delta(2,2)
|
|
common/Carraydef/z1,z2,z3,z4,z5,z6,z7,delta
|
|
integer,parameter::
|
|
& z1max=2,z2max=3,z3max=4,z4max=5,z5max=6,z6max=7,z7max=8
|
|
!$omp threadprivate(/Carraydef/)
|