anchor.diff:  !     spol:     Source polarisation measured from N.
   !  E,N,Z if not already allocated
   
  -   implicit none
  -
  -   type(SACtrace), intent(inout)   :: E, N, Z
  +   use f90sac
  +
  +   implicit none
  +
  +   type(SACtrace), intent(out)   :: E, N, Z
      real, intent(in), optional :: freq, delta, noise, spol
      character(len=*), intent(in), optional :: wavetype
      real(r4), allocatable :: trace(:), random_noise(:)
  
positive.code: module splitwave
  !===============================================================================
  
     use f90sac
  
     implicit none
  
     ! Kind parameters
  
negative.code: !
  !  Splitting operators are applied in order
  
     use f90sac
  
     implicit none
  
     type(SACtrace), intent(inout) :: t1, t2, t3
  