Searched refs:geo_t0 (Results 1 – 1 of 1) sorted by relevance
99 type(geometry_t), pointer :: geo_t0 component210 SAFE_ALLOCATE(this%geo_t0)211 call geometry_copy(this%geo_t0, geo)466 if (any (this%td_displacements(1:this%geo_t0%natoms)%move)) then472 call geometry_end(this%geo_t0)546 …geo%atom(iatom)%x(1:geo%space%dim) = this%geo_t0%atom(iatom)%x(1:geo%space%dim) + DR(1:geo%space%d…