Searched refs:icurv1 (Results 1 – 2 of 2) sorted by relevance
36267 if (icurv1 == 2) { in spsslur_()36268 icurv1 = 1; in spsslur_()36271 i__1 = icurv1 + 32; in spsslur_()36327 icurv1 = -icurv1; in spsslur_()36397 if (icurv1 == 5) { in spsslur_()36405 icurv1 = 6; in spsslur_()36409 i__1 = icurv1 + 32; in spsslur_()36623 icurv1 = -icurv1; in sslur_()36658 if (icurv1 == 3) { in sslur_()36659 icurv1 = 1; in sslur_()[all …]
23046 icurv1 = nint(SlurCurve)+323047 if (icurv1 .eq. 2) icurv1 = 123095 icurv1 = nint(fnum)23096 if (durq .eq. '-') icurv1 = -icurv123152 if (icurv1 .eq. 5) then23158 icurv1 = 623337 icurv1 = nint(fnum)23338 if (durq .eq. '-') icurv1 = -icurv123369 if (icurv1 .eq. 3) then23370 icurv1 = 1[all …]