Searched defs:gensidcount (Results 1 – 1 of 1) sorted by relevance
517 subroutine gensidcount(nsidg) subroutine536 integer newflag, i, j local537 integer nsidl ! number of surface IDs on-proc538 integer nsidt ! sum of all nsidl's539 integer nsidg ! number of surface IDs globally540 integer nsid(numpe) ! array of nsidl's541 integer idisp(numpe) ! needed by mpi: see note below542 type llnod ! structure for one node in a linked list546 type (llnod), pointer :: sidlist ! points to first elt of linked list547 type (llnod), pointer :: sidelt ! points to generic elt of linked list[all …]