  PROGRAM FMVAR
  write(6,*) 'end time:',clock, ' seconds'

  END 

