<commit_before>      SUBROUTINE diffmtc(np,ns,spts,npts,igp,hhx,hpx)
!
! calculate Lagrangian interpolant tensor at ns points where basis
! functions are assumed to be associated with (np+1) GLL points on
! [-1,1]
!
!     INPUT:
!       np             : polynomial order of basis funcitons
!       ns             : number of points at which to eval shape/deriv
!       spts(ns)       : location of ns points at which to eval
!       npts(np+1)     : location of the (np+1) GLL points
!
!     OUTPUT
!       dPhis(np+1,ns) : derivative evaluated at ns points
!       ps(np+1,ns)    : (np+1) shape functions evaluated at ns points 

      INTEGER(IntKi),INTENT(IN):: np,ns,igp
      REAL(ReKi),INTENT(IN):: spts(:)
      REAL(ReKi),INTENT(IN):: npts(:)
      
      REAL(ReKi),INTENT(OUT):: hhx(:),hpx(:) 
      
      REAL(ReKi):: dPhis(np+1,ns),Ps(np+1,ns)
      
      REAL(ReKi):: dnum,den
      REAL(ReKi),PARAMETER:: eps = 1.0D-08
      INTEGER(IntKi):: l,j,i,k
      
      do l = 1,np+1
        do j = 1,ns
          dPhis(l,j) = 0.
          den = 1.<commit_msg>19MAY15<commit_after>      SUBROUTINE diffmtc(np,ns,spts,npts,igp,hhx,hpx)
!
! calculate Lagrangian interpolant tensor at ns points where basis
! functions are assumed to be associated with (np+1) GLL points on
! [-1,1]
!
!     INPUT:
!       np             : polynomial order of basis funcitons
!       ns             : number of points at which to eval shape/deriv
!       spts(ns)       : location of ns points at which to eval
!       npts(np+1)     : location of the (np+1) GLL points
!
!     OUTPUT
!       hpx(np+1,ns) : derivative evaluated at ns points
!       hhx(np+1,ns)    : (np+1) shape functions evaluated at ns points 

      INTEGER(IntKi),INTENT(IN):: np,ns,igp
      REAL(ReKi),INTENT(IN):: spts(:)
      REAL(ReKi),INTENT(IN):: npts(:)
      
      REAL(ReKi),INTENT(OUT):: hhx(:),hpx(:) 
      
      REAL(ReKi):: dPhis(np+1,ns),Ps(np+1,ns)
      
      REAL(ReKi):: dnum,den
      REAL(ReKi),PARAMETER:: eps = 1.0D-08
      INTEGER(IntKi):: l,j,i,k
      
      do l = 1,np+1
        do j = 1,ns
          dPhis(l,j) = 0.
          den = 1.
{'fraction_non_alphanumeric': 0.1379633974659784, 'fraction_numerical': 0.019709056780854058, 'mean_word_length': 2.2549618320610687, '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': '1947424', 'n_tokens_mistral': 858, 'n_tokens_neox': 806, 'n_words': 195}