Searched refs:utrasl (Results 1 – 6 of 6) sorted by relevance
496 IF (ANY(qmmm_env%qm%utrasl /= 1.0_dp)) THEN497 transl_v = REAL(FLOOR(transl_v/qmmm_env%qm%utrasl), KIND=dp)* &498 qmmm_env%qm%utrasl
214 REAL(KIND=dp), DIMENSION(3) :: dOmmOqm, utrasl, transl_v component
1475 qmmm_env%utrasl = dr1477 qmmm_env%utrasl = 1.0_dp