<commit_before>*
* $Id$
*

      subroutine lattice_min_difference(x,y,z)
      implicit none
      real*8 x,y,z

*     **** common block ****
      real*8 ecut,wcut,omega
      real*8 ua(3,3),unitg(3,3)
      common / lattice_block / ua,unitg,ecut,wcut,omega

      real*8 ub(3,3)
      common / lattice_block2 / ub

*     *** local variables ****
      real*8 c1,c2,c3

      c1 = x*ub(1,1) + y*ub(2,1) + z*ub(3,1)
      c2 = x*ub(1,2) + y*ub(2,2) + z*ub(3,2)
      c3 = x*ub(1,3) + y*ub(2,3) + z*ub(3,3)
      c1 = c1 - ANINT(c1)
      c2 = c2 - ANINT(c2)
      c3 = c3 - ANINT(c3)
      x = ua(1,1)*c1 + ua(1,2)*c2 + ua(1,3)*c3
      y = ua(2,1)*c1 + ua(2,2)*c2 + ua(2,3)*c3
      z = ua(3,1)*c1 + ua(3,2)*c2 + ua(3,3)*c3

      return
      end

      subroutine lattice_frac_to_r1(n,f1,r1)
      implicit none
      integer n
      real*8 f1(3,*),r1(3,*)

*     **** common block ****
      real*8 ecut,wcut,omega<commit_msg>changed ANINT to DNINT ..EJB<commit_after>*
* $Id$
*

      subroutine lattice_min_difference(x,y,z)
      implicit none
      real*8 x,y,z

*     **** common block ****
      real*8 ecut,wcut,omega
      real*8 ua(3,3),unitg(3,3)
      common / lattice_block / ua,unitg,ecut,wcut,omega

      real*8 ub(3,3)
      common / lattice_block2 / ub

*     *** local variables ****
      real*8 c1,c2,c3

      c1 = x*ub(1,1) + y*ub(2,1) + z*ub(3,1)
      c2 = x*ub(1,2) + y*ub(2,2) + z*ub(3,2)
      c3 = x*ub(1,3) + y*ub(2,3) + z*ub(3,3)
      c1 = c1 - DNINT(c1)
      c2 = c2 - DNINT(c2)
      c3 = c3 - DNINT(c3)
      x = ua(1,1)*c1 + ua(1,2)*c2 + ua(1,3)*c3
      y = ua(2,1)*c1 + ua(2,2)*c2 + ua(2,3)*c3
      z = ua(3,1)*c1 + ua(3,2)*c2 + ua(3,3)*c3

      return
      end

      subroutine lattice_frac_to_r1(n,f1,r1)
      implicit none
      integer n
      real*8 f1(3,*),r1(3,*)

*     **** common block ****
      real*8 ecut,wcut,omega
{'fraction_non_alphanumeric': 0.19925412892914224, 'fraction_numerical': 0.08630793819925413, 'mean_word_length': 2.221269296740995, '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': '5881171', 'n_tokens_mistral': 942, 'n_tokens_neox': 924, 'n_words': 149}