Lines Matching defs:genblk

1         subroutine genblk (IBKSZ)  subroutine
17         integer, target, allocatable :: ientp(:,:)
18         integer mater(ibksz)
19         integer, target :: intfromfile(50) ! integers read from headers
20         character*255 fname1
21         integer :: descriptor, descriptorG, GPID, color
22         integer ::  numparts, writeLock
23         integer :: ierr_io, numprocs
24         integer, target :: itpblktot,ierr,iseven
25         character*255 fname2
26         character(len=30) :: dataInt
155 1000    format(a80,//,
159 1100    format(2x,i5,6x,27i8)