clean_scratch Subroutine

public subroutine clean_scratch()

Subroutine that removes all files with extension .scratch

Arguments

None

Source Code

   subroutine clean_scratch()
   !! Subroutine that removes all files with extension .scratch
   implicit none

      call execute_command_line( "find -type f -name ""*.scratch"" | xargs rm > err.scratch" )

   return
   endsubroutine clean_scratch