Lines Matching refs:ivel
43 integer ivel,ifrc
158 ivel = freeunit ()
164 call openend (ivel,velfile)
166 open (unit=ivel,file=velfile,status='new')
171 open (unit=ivel,file=velfile,status='new')
174 write (ivel,190) ngrp,title(1:ltitle)
177 write (ivel,200) i,(vcm(j,i),j=1,3)
179 write (ivel,210) i,(wcm(j,i),j=1,3)
183 write (ivel,220) n,title(1:ltitle)
186 write (ivel,230) i,name(i),(v(j,i),j=1,3)
190 close (unit=ivel)