##
##
## Create variables showing the position of the contact point on the wheel
## -----------------------------------------------------------------------
   func create_l  cpt_111r.posw  cpt_1.poswfn  cp_111r.eta
   func create_l  cpt_111l.posw  cpt_1.poswfn  cp_111l.eta
   func create_l  cpt_112r.posw  cpt_1.poswfn  cp_112r.eta
   func create_l  cpt_112l.posw  cpt_1.poswfn  cp_112l.eta
   func create_l  cpt_121r.posw  cpt_1.poswfn  cp_121r.eta
   func create_l  cpt_121l.posw  cpt_1.poswfn  cp_121l.eta
   func create_l  cpt_122r.posw  cpt_1.poswfn  cp_122r.eta
   func create_l  cpt_122l.posw  cpt_1.poswfn  cp_122l.eta

   if_then_init .exist. cpf_1.poswfn
    func create_l  cpf_111r.posw  cpf_1.poswfn  cp_111r.eta
    func create_l  cpf_111l.posw  cpf_1.poswfn  cp_111l.eta
    func create_l  cpf_112r.posw  cpf_1.poswfn  cp_112r.eta
    func create_l  cpf_112l.posw  cpf_1.poswfn  cp_112l.eta
    func create_l  cpf_121r.posw  cpf_1.poswfn  cp_121r.eta
    func create_l  cpf_121l.posw  cpf_1.poswfn  cp_121l.eta
    func create_l  cpf_122r.posw  cpf_1.poswfn  cp_122r.eta
    func create_l  cpf_122l.posw  cpf_1.poswfn  cp_122l.eta
   endif
##
##
## Create variables showing the position of the contact point on the rail
## -----------------------------------------------------------------------
   func create_l  cpt_111r.posr  cpt_1.posrfn  cp_111r.eta
   func create_l  cpt_111l.posr  cpt_1.posrfn  cp_111l.eta
   func create_l  cpt_112r.posr  cpt_1.posrfn  cp_112r.eta
   func create_l  cpt_112l.posr  cpt_1.posrfn  cp_112l.eta
   func create_l  cpt_121r.posr  cpt_1.posrfn  cp_121r.eta
   func create_l  cpt_121l.posr  cpt_1.posrfn  cp_121l.eta
   func create_l  cpt_122r.posr  cpt_1.posrfn  cp_122r.eta
   func create_l  cpt_122l.posr  cpt_1.posrfn  cp_122l.eta

   if_then_init .exist. cpf_1.posrfn
    func create_l  cpf_111r.posr  cpf_1.posrfn  cp_111r.eta
    func create_l  cpf_111l.posr  cpf_1.posrfn  cp_111l.eta
    func create_l  cpf_112r.posr  cpf_1.posrfn  cp_112r.eta
    func create_l  cpf_112l.posr  cpf_1.posrfn  cp_112l.eta
    func create_l  cpf_121r.posr  cpf_1.posrfn  cp_121r.eta
    func create_l  cpf_121l.posr  cpf_1.posrfn  cp_121l.eta
    func create_l  cpf_122r.posr  cpf_1.posrfn  cp_122r.eta
    func create_l  cpf_122l.posr  cpf_1.posrfn  cp_122l.eta
   endif