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