1!$Id:$ 2 subroutine usetci(dt,theta,gtan,cc1,cc2,cc3) 3 4! * * F E A P * * A Finite Element Analysis Program 5 6!.... Copyright (c) 1984-2017: Regents of the University of California 7! All rights reserved 8 9!-----[--.----+----.----+----.-----------------------------------------] 10! Purpose: Set parameters to perform updates for given time step 11 12! Inputs : 13! dt - Current time increment 14! theta(3) - Command line parameters 15 16! Outputs: 17! gtan(3) - Parmeters for: 1 - stiffness; 2 - damping; 3 - mass 18! e.g., S = K*gtan(1) + C*gtan(2) + M*gtan(3) 19! cc1 - Parameter to update solution at t_n+1 20! cc2 - Parameter to update increment at t_n+1 21! cc3 - Parameter to update specified boundary displacement 22!-----[--.----+----.----+----.-----------------------------------------] 23 24 implicit none 25 26 real*8 dt,cc1,cc2,cc3,theta(3),gtan(3) 27 28 save 29 30 end 31