Lines Matching refs:ivel
40 doublereal ivel[3], ipos[3]; in xfmsta_() local
1085 mxv_(jacobi, &istate[3], ivel); in xfmsta_()
1092 vequ_(&istate[3], ivel); in xfmsta_()
1132 if (abs(ivel[0]) + abs(ivel[1]) == 0.) { in xfmsta_()
1142 vpack_(&c_b65, &c_b65, &ivel[2], &ostate[3]); in xfmsta_()
1148 vpack_(&ivel[2], &c_b65, &c_b65, &ostate[3]); in xfmsta_()
1154 vpack_(&ivel[2], &c_b65, &c_b65, &ostate[3]); in xfmsta_()
1160 vpack_(&c_b65, &c_b65, &ivel[2], &ostate[3]); in xfmsta_()
1166 vpack_(&c_b65, &c_b65, &ivel[2], &ostate[3]); in xfmsta_()
1261 ftnlen)1352)], abs(d__1))) * sqrt((d__2 = ivel[(i__2 = in xfmsta_()
1276 mxv_(jacobi, ivel, &ostate[3]); in xfmsta_()
1285 vequ_(ivel, &ostate[3]); in xfmsta_()