Searched refs:zdota (Results 1 – 7 of 7) sorted by relevance
973 --zdota; in trstlp()1105 zdota[nact] = tot; in trstlp()1179 d__1 = zdota[kp]; in trstlp()1183 zdota[kp] = alpha * zdota[k]; in trstlp()1184 zdota[k] = temp; in trstlp()1210 zdota[nact] = temp; in trstlp()1231 zdota[nact] = alpha * zdota[k]; in trstlp()1232 zdota[k] = temp; in trstlp()1283 d__1 = zdota[kp]; in trstlp()1287 zdota[kp] = alpha * zdota[k]; in trstlp()[all …]
1053 --zdota; in acro_trstlp()1185 zdota[nact] = tot; in acro_trstlp()1260 d__1 = zdota[kp]; in acro_trstlp()1264 zdota[kp] = alpha * zdota[k]; in acro_trstlp()1265 zdota[k] = temp; in acro_trstlp()1291 zdota[nact] = temp; in acro_trstlp()1312 zdota[nact] = alpha * zdota[k]; in acro_trstlp()1313 zdota[k] = temp; in acro_trstlp()1364 d__1 = zdota[kp]; in acro_trstlp()1368 zdota[kp] = alpha * zdota[k]; in acro_trstlp()[all …]
1312 --zdota; in trstlp()1444 zdota[nact] = tot; in trstlp()1519 d__1 = zdota[kp]; in trstlp()1523 zdota[kp] = alpha * zdota[k]; in trstlp()1524 zdota[k] = temp; in trstlp()1550 zdota[nact] = temp; in trstlp()1571 zdota[nact] = alpha * zdota[k]; in trstlp()1572 zdota[k] = temp; in trstlp()1623 d__1 = zdota[kp]; in trstlp()1627 zdota[kp] = alpha * zdota[k]; in trstlp()[all …]
1321 --zdota; in trstlp()1453 zdota[nact] = tot; in trstlp()1532 d__1 = zdota[kp]; in trstlp()1536 zdota[kp] = alpha * zdota[k]; in trstlp()1537 zdota[k] = temp; in trstlp()1563 zdota[nact] = temp; in trstlp()1584 zdota[nact] = alpha * zdota[k]; in trstlp()1585 zdota[k] = temp; in trstlp()1636 d__1 = zdota[kp]; in trstlp()1640 zdota[kp] = alpha * zdota[k]; in trstlp()[all …]
20 (defun trstlp (n m a b rho dx ifull iact z zdota vmultc sdirn dxnew vmultd)23 (type (array bigfloat (cl:*)) vmultd dxnew sdirn vmultc zdota z dx31 (zdota bigfloat zdota-%data% zdota-%offset%)
20 (defun trstlp (n m a b rho dx ifull iact z zdota vmultc sdirn dxnew vmultd)23 (type (array double-float (*)) vmultd dxnew sdirn vmultc zdota z dx31 (zdota double-float zdota-%data% zdota-%offset%)
8962 --zdota; in trstlp()9094 zdota[nact] = tot; in trstlp()9169 d__1 = zdota[kp]; in trstlp()9173 zdota[kp] = alpha * zdota[k]; in trstlp()9174 zdota[k] = temp; in trstlp()9200 zdota[nact] = temp; in trstlp()9221 zdota[nact] = alpha * zdota[k]; in trstlp()9222 zdota[k] = temp; in trstlp()9273 d__1 = zdota[kp]; in trstlp()9277 zdota[kp] = alpha * zdota[k]; in trstlp()[all …]