anchor.diff:  module splitwave
   !===============================================================================
   
  +   use f90sac
  +
      implicit none
   
      ! Kind parameters
  
positive.code: !
  !  Splitting operators are applied in order
  
     use f90sac
  
     implicit none
  
     type(SACtrace), intent(inout) :: t1, t2, t3
  
negative.code:    integer, parameter, private :: lu_stdin = 5, &
                                    lu_stdout = 6, &
                                    lu_stderr = 0
  
     ! Saved module variables which are private, but kept to prevent continuous
     ! allocation and deallocation (module variables are saved by default)
     type(SACtrace), private :: E_misfit, N_misfit, Z_misfit
  
     ! Hide internal routines
     private :: gaussian1, &
  