anchor.diff:      include "./tridiag_src/gen.src"
     end subroutine tridiag_gen_real_dp
   
  -  ! tridiag_gen definition for double precision complex values
  +  ! tridiag_gen definition for double-precision complex values
     subroutine tridiag_gen_cmplx_dp(diag, u_diag, l_diag, vec, mat_coeff, &
       vec_coeff, res)
   
  
positive.code:   ! vec_coeff(n) :: work array
    ! res(:) :: x (unknown), where A x = b
  
    ! tridiag_gen definition for double precision real values
    subroutine tridiag_gen_real_dp(diag, u_diag, l_diag, vec, mat_coeff, &
      vec_coeff, res)
  
  
negative.code:     include "./tridiag_src/gen.src"
    end subroutine tridiag_gen_real_sp
  
    ! tridiag_gen definition for single-precision complex values
    subroutine tridiag_gen_cmplx_sp(diag, u_diag, l_diag, vec, mat_coeff, &
      vec_coeff, res)
  
  