| 1 | c
|
|---|
| 2 | c Communication information
|
|---|
| 3 | c NOTE: NID is stored in 'SIZE' for greater accessibility
|
|---|
| 4 | integer node,pid,np,nullpid,node0
|
|---|
| 5 | common /cube1/ node,pid,np,nullpid,node0
|
|---|
| 6 | c
|
|---|
| 7 | c Maximum number of elements (limited to 2**31/12, at least for now)
|
|---|
| 8 |
|
|---|
| 9 | integer nelgt_max
|
|---|
| 10 | parameter(nelgt_max = 178956970)
|
|---|
| 11 |
|
|---|
| 12 | integer gllnid, gllel
|
|---|
| 13 |
|
|---|
| 14 | integer*8 nvtot
|
|---|
| 15 | integer nelg(0:ldimt1)
|
|---|
| 16 | $ ,lglel(lelt)
|
|---|
| 17 | $ ,nelgv,nelgt
|
|---|
| 18 | common /hcglb/ nvtot,nelg,lglel,nelgv,nelgt
|
|---|
| 19 |
|
|---|
| 20 | logical ifgprnt
|
|---|
| 21 | common /diagl/ ifgprnt
|
|---|
| 22 |
|
|---|
| 23 | integer wdsize,isize,isize8,lsize,csize,wdsizi
|
|---|
| 24 | common/precsn/ wdsize,isize,isize8,lsize,csize,wdsizi
|
|---|
| 25 |
|
|---|
| 26 | integer cr_h,gsh,gsh_fld(0:ldimt3),xxth(ldimt3)
|
|---|
| 27 | common /comm_handles/ cr_h,gsh,gsh_fld,xxth
|
|---|
| 28 |
|
|---|
| 29 | logical ifgsh_fld_same
|
|---|
| 30 | common /lcomm_handles/ ifgsh_fld_same
|
|---|
| 31 |
|
|---|
| 32 | integer dg_face(lx1*lz1*2*ldim*lelt)
|
|---|
| 33 | common /xcdg_arrays/ dg_face
|
|---|
| 34 |
|
|---|
| 35 | integer dg_hndlx,ndg_facex
|
|---|
| 36 | common /xcdg_ints/ dg_hndlx,ndg_facex
|
|---|
| 37 |
|
|---|
| 38 | c multisession
|
|---|
| 39 | integer nid_global, idsess_neighbor, intracomm, intercomm
|
|---|
| 40 | $ , iglobalcomm, npsess(0:nsessmax-1), np_neighbor, np_global
|
|---|
| 41 | common /nekmpi_global/ nid_global, idsess_neighbor
|
|---|
| 42 | $ , intracomm, intercomm, iglobalcomm
|
|---|
| 43 | $ , npsess,np_neighbor,np_global
|
|---|
| 44 |
|
|---|
| 45 | integer nsessions
|
|---|
| 46 | common /session_info/ nsessions
|
|---|
