<commit_before>module tt_adapt_als

  use iso_c_binding

  implicit none
  real(8), allocatable :: result_core(:)
!   character*120 :: matlab_ist_dumme_kuh

  type :: dpoint
     !   double precision,dimension(:),pointer :: p=>null()
     real(8), allocatable :: p(:)
  end type dpoint

contains





!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  !! TT and svd stuff
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  subroutine compute_ps(d,r,n,ps)
    integer, intent(in) :: d,r(*),n(*)
    integer, intent(out) :: ps(*)
    integer i

    ps(1)=1;<commit_msg>Some slight fixes<commit_after>module tt_adapt_als

  use iso_c_binding

  implicit none
  real(8), allocatable :: result_core(:)
!   character*120 :: matlab_ist_dumme_kuh

  type :: dpoint
     !   double precision,dimension(:),pointer :: p=>null()
     real(8), allocatable :: p(:)
  end type dpoint

contains


subroutine deallocate_result
  if ( allocated(result_core) ) then
    deallocate(result_core)
  end if
end subroutine deallocate_result


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  !! TT and svd stuff
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

  subroutine compute_ps(d,r,n,ps)
    integer, intent(in) :: d,r(*),n(*)
    integer, intent(out) :: ps(*)
    integer i

    ps(1)=1;
{'fraction_non_alphanumeric': 0.251792828685259, 'fraction_numerical': 0.011155378486055778, 'mean_word_length': 4.437229437229437, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '7344409', 'n_tokens_mistral': 462, 'n_tokens_neox': 410, 'n_words': 88}