Lines Matching defs:rwvelb

1         subroutine rwvelb (code,  q, ifail)  subroutine
8         character*4 code
9         character*5  cname
10         character*8  mach2
11         character*20 fname1,  fmt1
12         character*20 fname2
13         character*60 syscmd
16        logical exlog
64  888         continue
65  877         continue    
115 995     call error ('velb  ','opening ', irstin)
116 996     call error ('velb  ','opening ', irstou)