86    real(wp) :: energy, sigma(3, 3), sdum(3, 3)  local
158             & cn, dcndr, dcndL, q, dqdr, dqdL, er, gdum, sdum)
172             & cn, dcndr, dcndL, q, dqdr, dqdL, el, gdum, sdum)
303    real(wp) :: energy, sigma(3, 3), sdum(3, 3)  local
373             & cn, dcndr, dcndL, q, dqdr, dqdL, er, gdum, sdum)
386             & cn, dcndr, dcndL, q, dqdr, dqdL, el, gdum, sdum)
520    real(wp) :: energy, sigma(3, 3), sdum(3, 3)  local
571             & g_a, g_c, wf, cn, dcndr, dcndL, er, gdum, sdum)
578             & g_a, g_c, wf, cn, dcndr, dcndL, el, gdum, sdum)
705    real(wp) :: energy, sigma(3, 3), sdum(3, 3)  local
756             & 15.0_wp, cn, dcndr, dcndL, er, gdum, sdum)
763             & 15.0_wp, cn, dcndr, dcndL, el, gdum, sdum)