subroutine exec(command)
      implicit none
      integer strlen
      character*100 command
      
      call system(command(1:strlen(command)))
      
      return
      end