Lines Matching defs:readnblk

37       subroutine readnblk  subroutine
43       real*8, allocatable :: xread(:,:), qread(:,:), qread1(:)
44       real*8, allocatable :: uread(:,:), acread(:,:)
45       real*8, allocatable :: BCinpread(:,:)
46       real*8 globmax,globmin
47       integer, allocatable :: iperread(:), iBCtmpread(:)
48       integer, allocatable :: ilworkread(:), nBCread(:)
49       character*10 cname2
50       character*30 fmt1
51       character*255 fname1,fnamer,fnamelr
52       character*255 warning
54       integer :: descriptor, color, nfiles, nfields
55       integer ::  numparts, nppf
56       character*255 fname2, temp2
57       character*64 temp1
58       integer :: igeom, ibndc, irstin, ierr
59       integer :: ndof, ndoferrors, ndofybar
60       integer :: itmp, itmp2
61       integer :: irstart, irstartmap, iybar
62       integer :: ierror, numphavg, ivort, idwal, idebug, iphavg
64       integer intfromfile(50) ! integers read from headers
65       logical exinput
769 925   format(A,i2,A,2(e24.17,1x))
770 926   format(A,i2,i2,A,2(e24.17,1x))
837  994  call error ('input   ','opening ', igeom)
838  995  call error ('input   ','opening ', igeom)
839  997  call error ('input   ','end file', igeom)
840  998  call error ('input   ','end file', igeom)