<commit_before>   SUBROUTINE ElasticForce(E1,RR0,kapa,Stif,cet,Fc,Fd)

   REAL(ReKi),INTENT(IN)::E1(:),RR0(:,:),kapa(:)
   REAL(ReKi),INTENT(IN)::Stif(:,:),cet
   REAL(ReKi),INTENT(OUT)::Fc(:),Fd(:)    
 
   REAL(ReKi)::eee(6),fff(6)
   REAL(ReKi)::tempS(3),tempK(3)
   REAL(ReKi)::Wrk(3),e1s,k1s,Wrk33(3,3)

   INTEGER(IntKi):: i,j

   eee = 0.0D0 
   DO i=1,3
       eee(i) = E1(i) - RR0(i,1)
       eee(i+3) = kapa(i)

       tempS(i) = eee(i)
       tempK(i) = eee(i+3)
   ENDDO
   fff = 0.0D0 
   fff = MATMUL(Stif,eee)
<commit_msg>added comments<commit_after>   SUBROUTINE ElasticForce(E1,RR0,kapa,Stif,cet,Fc,Fd)
!----------------------------------------------------------------------------------------
! This subroutine computes Elastic Forces Fc and Fd.  Equation 37 from Dymore user manual 
!----------------------------------------------------------------------------------------
   
   REAL(ReKi),INTENT(IN)::E1(:) ! E1 = x_0^\prime + u^\prime at Gauss point
   REAL(ReKi),INTENT(IN)::RR0(:,:) ! Rotation tensor at Gauss point
   REAL(ReKi),INTENT(IN)::kapa(:) ! Curvature starin vector at Gauss point
   REAL(ReKi),INTENT(IN)::Stif(:,:) ! C/S stiffness matrix resolved in inertial frame at Gauss point
   REAL(ReKi),INTENT(IN)::cet ! Extension-torsion coefficient at Gauss point
   REAL(ReKi),INTENT(OUT)::Fc(:) ! Elastic Force (N,M)
   REAL(ReKi),INTENT(OUT)::Fd(:) ! Elastic Force (E1,N)
 
   REAL(ReKi)::eee(6),fff(6)
   REAL(ReKi)::tempS(3),tempK(3)
   REAL(ReKi)::Wrk(3),e1s,k1s,Wrk33(3,3)

   INTEGER(IntKi):: i,j

   eee = 0.0D0 
   DO i=1,3
       eee(i) = E1(i) - RR0(i,1)
       eee(i+3) = kapa(i)

       tempS(i) = eee(i)
       tempK(i) = eee(i+3)
   ENDDO
   fff = 0.0D0 
   fff = MATMUL(Stif,eee)

{'fraction_non_alphanumeric': 0.28, 'fraction_numerical': 0.03536231884057971, 'mean_word_length': 2.452, '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': '7119977', 'n_tokens_mistral': 825, 'n_tokens_neox': 758, 'n_words': 115}