<commit_before>
module mod_pdgid

  implicit none

contains

! Calculates the  PDG id number given A + Z
subroutine CalculatePDGid(id, a, z)

  use, intrinsic :: iso_fortran_env

  integer(kind=int32), intent(out) :: id
  integer(kind=int16), intent(in) :: a
  integer(kind=int16), intent(in) :: z

  !Nuclear codes are given as 10-digit numbers ±10LZZZAAAI.

  if(a == 1 .and. z == 1) then
    id = 2212
    return
  end if
  id = 1000000000 + (a * 10) + (z * 10000)

end subroutine CalculatePDGid

! Calculates the A + Z given a PDG id number
subroutine CalculateAZ(id, a, z)

  use, intrinsic :: iso_fortran_env

  integer(kind=int32), intent(in) :: id
  integer(kind=int16), intent(out) :: a
  integer(kind=int16), intent(out) :: z

  integer(kind=int16) :: z1,z2,z3
  integer(kind=int16) :: a1,a2,a3
  integer(kind=int32) :: tmpid<commit_msg>... just to be safe<commit_after>
module mod_pdgid

  implicit none

contains

! Calculates the  PDG id number given A + Z
subroutine CalculatePDGid(id, a, z)

  use, intrinsic :: iso_fortran_env

  integer(kind=int32), intent(out) :: id
  integer(kind=int16), intent(in) :: a
  integer(kind=int16), intent(in) :: z

  !Nuclear codes are given as 10-digit numbers ±10LZZZAAAI.

  if(a == 1 .and. z == 1) then
    id = 2212
    return
  end if
  id = 1000000000 + int(a,int32)*10 + int(z,int32)*10000

end subroutine CalculatePDGid

! Calculates the A + Z given a PDG id number
subroutine CalculateAZ(id, a, z)

  use, intrinsic :: iso_fortran_env

  integer(kind=int32), intent(in) :: id
  integer(kind=int16), intent(out) :: a
  integer(kind=int16), intent(out) :: z

  integer(kind=int16) :: z1,z2,z3
  integer(kind=int16) :: a1,a2,a3
  integer(kind=int32) :: tmpid
{'fraction_non_alphanumeric': 0.13127187864644108, 'fraction_numerical': 0.061843640606767794, 'mean_word_length': 4.044117647058823, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 2, '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': '4392807', 'n_tokens_mistral': 755, 'n_tokens_neox': 652, 'n_words': 179}