Lines Matching defs:genbkbSyncIO
1 subroutine genbkbSyncIO (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
203 911 call error ('genbcb ','end file',igeomBAK)
205 1000 format(a80,//,
209 1100 format(2x,i5,2x,4i2,3x,27i7)
215 2100 format(2x,i5,1p,1x,6e12.4)