<commit_before>subroutine save_data(IPP)
#include "cpp_options.h"
!output particle data
    use omp_lib
    use global, only: casename,tt,fn_ids,xyz,tsg,&
        Npts,parti_mld,DumpClock,NPP,output_dir,grad
    implicit none
    character(len=128) :: fn
    character(len=16) :: fn1
    integer*8 :: iwrite
    integer*8,intent(in) :: IPP

    iwrite=int(tt/DumpClock)+1

    write(fn,"(I10.10)") iwrite
    write(fn1,"(I4.4)") IPP

!$OMP PARALLEL SECTIONS


    !$OMP SECTION
    open(fn_ids(1,IPP),file=trim(output_dir)//'/'//trim(casename)//'_'//trim(fn1)//'.XYZ.'//trim(fn)//'.data',&
        access='direct',form='unformatted', convert='BIG_ENDIAN',recl=3*4*Npts,status='unknown')
    write(fn_ids(1,IPP),rec=1) real(xyz(:,:,IPP),4)
    close(fn_ids(1,IPP))

#ifdef saveTSG
    !$OMP SECTION
        open(fn_ids(2,IPP),file=trim(output_dir)//'/'//trim(casename)//'_'//trim(fn1)//'.TSG.'//trim(fn)//'.data',&
            access='direct',form='unformatted',convert='BIG_ENDIAN',recl=4*4*Npts,status='unknown')
        write(fn_ids(2,IPP),rec=1) real(tsg(:,:,IPP),4)
        close(fn_ids(2,IPP))

#endif<commit_msg>format<commit_after>subroutine save_data(IPP)
#include "cpp_options.h"
!output particle data
    use omp_lib
    use global, only: casename,tt,fn_ids,xyz,tsg,&
        Npts,parti_mld,DumpClock,NPP,output_dir,grad
    implicit none
    character(len=128) :: fn
    character(len=16) :: fn1
    integer*8 :: iwrite
    integer*8,intent(in) :: IPP

    iwrite=int(tt/DumpClock)+1

    write(fn,"(I10.10)") iwrite
    write(fn1,"(I4.4)") IPP

!$OMP PARALLEL SECTIONS

    !$OMP SECTION
    open(fn_ids(1,IPP),file=trim(output_dir)//'/'//trim(casename)//'_'//trim(fn1)//'.XYZ.'//trim(fn)//'.data',&
        access='direct',form='unformatted', convert='BIG_ENDIAN',recl=3*4*Npts,status='unknown')
    write(fn_ids(1,IPP),rec=1) real(xyz(:,:,IPP),4)
    close(fn_ids(1,IPP))

#ifdef saveTSG
    !$OMP SECTION
        open(fn_ids(2,IPP),file=trim(output_dir)//'/'//trim(casename)//'_'//trim(fn1)//'.TSG.'//trim(fn)//'.data',&
            access='direct',form='unformatted',convert='BIG_ENDIAN',recl=4*4*Npts,status='unknown')
        write(fn_ids(2,IPP),rec=1) real(tsg(:,:,IPP),4)
        close(fn_ids(2,IPP))

#endif
{'fraction_non_alphanumeric': 0.2127468581687612, 'fraction_numerical': 0.02872531418312388, 'mean_word_length': 4.257075471698113, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, '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': '2438235', 'n_tokens_mistral': 978, 'n_tokens_neox': 952, 'n_words': 99}