Lines Matching defs:genbkb

1         subroutine genbkb (ibksz)  subroutine
18         integer, target, allocatable :: ientp(:,:),iBCBtp(:,:)
19         real*8, target, allocatable :: BCBtp(:,:)
20         integer materb(ibksz)
21         integer, target :: intfromfile(50) ! integers read from headers
22         character*255 fname1
23         integer :: descriptor, descriptorG, GPID, color, nfields
24         integer :: numparts, nppp, nprocs, writeLock
25         integer :: ierr_io, numprocs, itmp, itmp2 
26         integer, target :: itpblktot,ierr
27         character*255 fname2
28         character(len=30) :: dataInt, dataDbl
213  911    call error ('genbcb  ','end file',igeomBAK)
214 1000    format(a80,//,
218 1100    format(2x,i5,2x,4i2,3x,27i7)
219 2100    format(2x,i5,1p,1x,6e12.4)