Lines Matching defs:reader
2 subroutine reader(ctc,b,nneq) subroutine
36 logical lflg,setvar,palloc,pcomp
37 integer nneq
38 character cc*4,ctc*(*),ct*4,fname*15
39 real*8 b(nneq)
134 910 if(ior.gt.0) then
142 920 if(ior.gt.0) then
149 930 if(ior.gt.0) then
156 940 if(ior.gt.0) then
164 2001 format(' File name for a read has been set to ',a)
166 2002 format(' File name ',a,' closed.')
168 3000 format(' *ERROR* File ',a,' does not exist')
170 3001 format(' *ERROR* READ requested ',a4,' but found ',a4)
172 3002 format(' *ERROR* End of file on a read command for ',a4)
174 3003 format(' *ERROR* on a read command for ',a4)
176 3004 format(' *ERROR* No read file is open.')
178 3005 format(' *ERROR* File ',a,' is open. Close before new',
179 1 ' file specified.')