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.
6 lines
298 B
6 lines
298 B
integer:: y1(4),y2(4,4),y3(4,4,4),y4(4,4,4,4),y5(4,4,4,4,4)
|
|
integer:: y6(4,4,4,4,4,4),y7(4,4,4,4,4,4,4)
|
|
integer,parameter:: y1max=4,y2max=10,y3max=20,y4max=35,y5max=56
|
|
integer,parameter:: y6max=84,y7max=120
|
|
common/ydef/y1,y2,y3,y4,y5,y6,y7
|
|
!$omp threadprivate(/ydef/)
|