Lines Matching defs:readnblk

30       subroutine readnblk  subroutine
42       real*8, target, allocatable :: xread(:,:), qread(:,:), acread(:,:)
43       real*8, target, allocatable :: uread(:,:)
44       real*8, target, allocatable :: BCinpread(:,:)
45       real*8 :: iotime
46       integer, target, allocatable :: iperread(:), iBCtmpread(:)
47       integer, target, allocatable :: ilworkread(:), nBCread(:)
48       integer, target, allocatable :: fncorpread(:)
49       integer fncorpsize
50       character*10 cname2, cname2nd
51       character*8 mach2
52       character*30 fmt1
53       character*255 fname1,fnamer,fnamelr
54       character*255 warning
55       integer igeomBAK, ibndc, irstin, ierr
56       integer, target :: intfromfile(50) ! integers read from headers
57       integer :: descriptor, descriptorG, GPID, color, nfields
58       integer ::  numparts, nppf
59       integer :: ierr_io, numprocs, itmp, itmp2
60       integer :: ignored
61       integer :: fileFmt
62       integer :: readstep
63       character*255 fname2, temp2
64       character*64 temp1
65       type(c_ptr) :: handle
66       character(len=1024) :: dataInt, dataDbl
615  994  call error ('input   ','opening ', igeomBAK)
616  995  call error ('input   ','opening ', igeomBAK)
617  997  call error ('input   ','end file', igeomBAK)
618  998  call error ('input   ','end file', igeomBAK)