!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
on error "return base"
! 
parse /frequency 1 1 /velocity 1 1
!
if ((pro%parse%frequency%narg.eq.-1).and.(pro%parse%velocity%narg.eq.-1)) then
   message i modify "Nothing done"
   message i modify "Usage: GO MODIFY /FREQUENCY freq /VELOCITY velo"
else
   read * 'name'
   if (pro%parse%frequency%narg.eq.1) specify frequency 'pro%parse%frequency%arg[1]'
   if (pro%parse%velocity%narg.eq.1) specify velocity  'pro%parse%velocity%arg[1]'
   write * 'name' ! *** JP: Write should write the header in this case. Right now it does nothing...
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
