$
$  ******************************************************
$  *                                                    *
$  *            Keyword Output By  R E O R G            *
$  *  Utilitiy to Organize/Diagnose/Fix LSDYNA Input    *
$  *                                                    *
$  *               Author: Suri Bala                    *
$  *                                                    *
$  *          Report any problems to suri@lstc.com      *
$  *                                                    *
$  ******************************************************
$
*KEYWORD
*PARAMETER_EXPRESSION
iimflag,0
rtsf,1
iimass,0
rstg1, &tsf * 0.01
rendtim, &tsf *  0.02
ibinary,2
*TITLE
contact thickness
$
$ *** control cards ***
$
$  ON = *CONTROL_TERMINATION
$  ON = *CONTROL_TIMESTEP
$  ON = *CONTROL_CONTACT
$  ON = *CONTROL_HOURGLASS
$  ON = *CONTROL_IMPLICIT_DYNAMICS
$  ON = *CONTROL_IMPLICIT_GENERAL
$  ON = *CONTROL_IMPLICIT_SOLUTION
$
*CONTROL_TERMINATION
$ job termination controls
$   endtim    endcyc     dtmin    endeng    endmas
&endtim            0        0.        0.        0.
*CONTROL_TIMESTEP
$ solution timstep controls
$   dtinit    tssfac      isdo    tslimt     dt2ms      lctm     erode     ms1st
$   dt2msf   dt2mslc
*CONTROL_CONTACT
$ mother of all contacts controls
$   slsfac    rwpnal    islchk    shlthk    penopt    thkchg     orien    enmass
$   usrstr    usrfrc     nsbcs    interm     xpene     ssthk      ecdt   tiedprj
$    sfric     dfric       edc       vfc        th     th_sf    pen_sf
$   ignore    frceng   skiprwg    outseg   spotstp   spotdel
*CONTROL_HOURGLASS
$ hourglass stabilization controls
$      ihq        qh
*CONTROL_IMPLICIT_DYNAMICS
$ implicit dynamics and time integration constants
$    imass     gamma      beta
&imass           0.6      0.38
*CONTROL_IMPLICIT_GENERAL
$ implicit activation
$   imflag       dt0    imform      nsbs       igs     cnstn      form
&imflag         .020         2         1         2         0         0
*CONTROL_IMPLICIT_SOLUTION
$ optional implicit solution parameters
$   nsolvr    ilimit    maxref     dctol     ectol     rctol     lstol
$    dnorm    diverg     istif   nlprint    nlnorm
$   acrctl    arcdir    arclen    arcmth    arcdmp
$
$ *** end control cards ***
$
$
$
$ *** database control cards ***
$
$  ON = *DATABASE_GLSTAT
$  ON = *DATABASE_MATSUM
$  ON = *DATABASE_RCFORC
$  ON = *DATABASE_SLEOUT
$  ON = *DATABASE_BINARY_D3PLOT
$
*DATABASE_GLSTAT
$ global statistics
$       dt    binary
       0.1&binary
*DATABASE_MATSUM
$ material summaries
$       dt    binary
     0.001&binary
*DATABASE_RCFORC
$ contact forces
$       dt    binary
     0.001&binary
*DATABASE_SLEOUT
$ contact sliding energy
$       dt    binary
     0.001&binary
*DATABASE_BINARY_D3PLOT
$ complete output states
$  dt/cycl   lcdt/nr      beam     npltc    psetid    istats    tstart      iavg
$
$ *** end database control cards ***
$
*BOUNDARY_PRESCRIBED_MOTION_RIGID
$   typeid       dof       vad      lcid        sf       vid     death     birth
*DEFINE_CURVE
$        2 Points
$     lcid      sidr       sfa       sfo      offa      offo    dattyp
$           abscissa           oridinate
&stg1                     0.00000000e+00
&endtim                   1.00000000e+00
*PART_MOVE
*CONTACT_NODES_TO_SURFACE_INTERFERENCE_TITLE
1, interference
*DEFINE_CURVE_FUNCTION
$  power of 2
MIN( POW(TIME,2)*10000, 1.0 )
$ linear
$MIN( TIME*100.0, 1.0 )
*CONTACT_AUTOMATIC_SURFACE_TO_SURFACE_TITLE
         2                                                               impacto
$     ssid      msid    sstype    mstype    sboxid    mboxid       spr       mpr
$       fs        fd        dc        vc       vdc    penchk        bt        dt
$      sfs       sfm       sst       mst      sfst      sfmt       fsf       vsf
$     soft     scscl    lcidab    maxpar     sbopt     depth     bsort    frcfrq
$   penmax    thkopt    shlthk     snlog      isym     12d3d    sldthk    sldstf
*MAT_RIGID
$      mid       rho         e        pr         n    couple         m     alias
$      cmo      con1      con2
$      lco        a2        a3        v1        v2        v3
*MAT_LOW_DENSITY_FOAM
$      mid       rho         e      lcid        tc        hu      beta      damp
$    shape      fail    bvflag        ed     beta1      kcon       ref
*PART
Block
$      pid       sid       mid       eos      hgid      grav    adpopt      tmid
*SECTION_SOLID
$      sid    elform
*HOURGLASS
$     hgid       ihq        qm       ibq        q1        q2        qb        qw
*PART
Impactor
$      pid       sid       mid       eos      hgid      grav    adpopt      tmid
*SECTION_SOLID
$      sid    elform
$ Number of Define Curve Cards: 3
*DEFINE_CURVE
$        7 Points
$     lcid      sidr       sfa       sfo      offa      offo    dattyp
$           abscissa           oridinate
*DEFINE_CURVE
$       49 Points
$     lcid      sidr       sfa       sfo      offa      offo    dattyp
$           abscissa           oridinate
$ Total number of Define Table -->          0
*NODE
$    nid               x               y               z      tc      rc
*ELEMENT_SOLID
*SET_PART
$ id in the order of input             1
$ number of parts in the set           1
$
*SET_PART
$ id in the order of input             2
$ number of parts in the set           1
$
*SET_PART
$ id in the order of input             3
$ number of parts in the set           2
$
*SET_PART
$ id in the order of input             4
$ number of parts in the set           1
$
*SET_NODE_LIST
$#     SID       DA1       DA2       DA3       DA4
$#    NID1      NID2      NID3      NID4      NID5      NID6      NID7      NID8
*DEFINE_BOX
$#   BOXID       XMN       XMX       YMN       YMX       ZMN       ZMX
*DEFINE_BOX
$#   BOXID       XMN       XMX       YMN       YMX       ZMN       ZMX
*DEFINE_BOX
$#   BOXID       XMN       XMX       YMN       YMX       ZMN       ZMX
*DEFINE_BOX
$#   BOXID       XMN       XMX       YMN       YMX       ZMN       ZMX
*DEFINE_VECTOR
$#     VID        XT        YT        ZT        XH        YH        ZH
$ Number of Define Curve Cards: 4
$        7 Points
$     lcid      sidr       sfa       sfo      offa      offo    dattyp
$           abscissa           oridinate
*BOUNDARY_SPC_SET
$#    NSID       CID      DOFX      DOFY      DOFZ     DOFRX     DOFRY     DOFRZ
$
$ *** end database control cards ***
$
$   typeid       dof       vad      lcid        sf       vid     death     birth
*END
$ Comment Lines Found After the *END keyword
*END