<commit_before>      subroutine genbkif (ibksz)
c
c----------------------------------------
c    aims to read data from geombc and
c    generate the interface blocks
c----------------------------------------
        use pointer_data
        use phio
        use iso_c_binding
        use mattype_m
c
        include "common.h"
        include "mpif.h" !Required to determine the max for itpblk
c
        integer, intent(in) :: ibksz
c
        integer :: iel, iblk, itpblk,
     &             n,neltp,ioprdl,nnface,
     &             iientpsiz0,iientpsiz1
        integer, target :: intfromfile(50)
        integer, target, allocatable :: ientp(:,:)
        integer, dimension(ibksz) :: mater
        integer :: descriptor, descriptorG, GPID, color
        integer ::  numparts, writeLock
        integer :: ierr_io, numprocs
        integer, target :: itpblktot,ierr
        integer, parameter :: ione = 1, itwo = 2, iseven = 7, inine = 9
        character*255 :: fname1, fname2, tempchar
        character(len=30) :: dataInt
        integer :: tmpnenl0,tmpnenl1,tmpnshl0,tmpnshl1,tmplcsyst0,tmplcsyst1,iptr
        dataInt = c_char_'integer'//c_null_char
c
c
        iel = 1              ! element index
        itpblk = nelblif     ! number of topological blocks
        nelblif = 0         ! set a counter for the interface element blocks (size of ibksz)
c
        ! Get the total number of different interface topologies in the whole domain. 
        ! Try to read from a field. If the field does not exist, scan the geombc file.
C
C        itpblktot=1  ! hardwired to montopology for now
        call phio_readheader(fhandle,
     &   c_char_'number of interface tpblocks' // char(0),
     &   c_loc(itpblktot), ione, dataInt, iotype) 
c
        if (itpblktot == -1) then 
          ! The field 'total number of different interface tpblocks' was not found in the geombc file.<commit_msg>initialize number of interface block topologies<commit_after>      subroutine genbkif (ibksz)
c
c----------------------------------------
c    aims to read data from geombc and
c    generate the interface blocks
c----------------------------------------
        use pointer_data
        use phio
        use iso_c_binding
        use mattype_m
c
        include "common.h"
        include "mpif.h" !Required to determine the max for itpblk
c
        integer, intent(in) :: ibksz
c
        integer :: iel, iblk, itpblk,
     &             n,neltp,ioprdl,nnface,
     &             iientpsiz0,iientpsiz1
        integer, target :: intfromfile(50)
        integer, target, allocatable :: ientp(:,:)
        integer, dimension(ibksz) :: mater
        integer :: descriptor, descriptorG, GPID, color
        integer ::  numparts, writeLock
        integer :: ierr_io, numprocs
        integer, target :: itpblktot,ierr
        integer, parameter :: ione = 1, itwo = 2, iseven = 7, inine = 9
        character*255 :: fname1, fname2, tempchar
        character(len=30) :: dataInt
        integer :: tmpnenl0,tmpnenl1,tmpnshl0,tmpnshl1,tmplcsyst0,tmplcsyst1,iptr
        dataInt = c_char_'integer'//c_null_char
c
c
        iel = 1              ! element index
        itpblk = nelblif     ! number of topological blocks
        nelblif = 0         ! set a counter for the interface element blocks (size of ibksz)
c
        ! Get the total number of different interface topologies in the whole domain. 
        ! Try to read from a field. If the field does not exist, scan the geombc file.
C
        itpblktot = 0
        call phio_readheader(fhandle,
     &   c_char_'number of interface tpblocks' // char(0),
     &   c_loc(itpblktot), ione, dataInt, iotype) 
c
        if (itpblktot == -1) then 
          ! The field 'total number of different interface tpblocks' was not found in the geombc file.
{'fraction_non_alphanumeric': 0.11492734478203434, 'fraction_numerical': 0.013738441215323647, 'mean_word_length': 1.983451536643026, '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': '4707123', 'n_tokens_mistral': 1183, 'n_tokens_neox': 1153, 'n_words': 375}