Commit 82191953 authored by Georgino Kaleng Tshikwand's avatar Georgino Kaleng Tshikwand
Browse files

Update TSHIKWAND_JABER_FULLY_COUPLED_STRAIN_BASED_SMA_MODEL.f

parent 02c32a3c
Loading
Loading
Loading
Loading
+2 −4
Original line number Diff line number Diff line
@@ -174,8 +174,8 @@ C------------------------------------------------------------------------
 
         RPL= 0.9*(B1 + B2) + ENER(1) 
         
         DT = RPL / (DENS * CA)
         T3 = T1 + DT
C         DT = RPL / (DENS * CA)
C         T3 = T1 + DT
        
	
       
@@ -183,8 +183,6 @@ C------------------------------------------------------------------------
      STATEV(7)=XCI
      STATEV(8)=XCI_T
      STATEV(9)=XCI_D
      STATEV(10)=T3
      STATEV(11)=RPL
       
      RETURN
      END SUBROUTINE