tearDown Subroutine

public subroutine tearDown()

Arguments

None

Source Code

   subroutine tearDown()
      integer :: unit

      open(newunit=unit,file='dir1/exist.dat',status='old')
      close(unit, status='delete')
      open(newunit=unit,file='dir1/dir3/exist3.dat',status='old')
      close(unit, status='delete')
      open(newunit=unit,file='dir2/exist2.dat',status='old')
      close(unit, status='delete')

      call execute_command_line('rmdir dir1/dir3')
      call execute_command_line('rmdir dir1 dir2')
      
   end subroutine tearDown