Searched refs:ptclef (Results 1 – 2 of 2) sorted by relevance
16181 ptclef(ivx) = 0.16186 * ptclef(ivx) = ptclef(ivx)+taccfac*wheadpt116187 if (isgrace) ptclef(ivx) = ptclef(ivx)+spgr16288 if (iscln) ptclef(ivx) = ptclef(ivx)+ptsadd16530 c print*,'At clef insertion, ptclef:',ptclef(iv)16531 if (ptclef(iv) .gt. 0.) then16533 if (ptclef(iv) .lt. 9.95) then16534 write(notexq(7:9),'(f3.1)')ptclef(iv)16547 if (ptclef(iv) .gt. 0.) then16549 if (ptclef(iv) .lt. 9.95) then[all …]
24187 static real ptclef[24]; in make2bar_() local24806 ptclef[commvl_1.ivx - 1] = 0.f; in make2bar_()24811 ptclef[commvl_1.ivx - 1] += taccfac * wheadpt1; in make2bar_()24814 ptclef[commvl_1.ivx - 1] += spgr; in make2bar_()24942 ptclef[commvl_1.ivx - 1] += ptsadd; in make2bar_()25362 if (ptclef[all_1.iv - 1] > 0.f) { in make2bar_()25367 if (ptclef[all_1.iv - 1] < 9.95f) { in make2bar_()25369 do_fio(&c__1, (char *)&ptclef[all_1.iv - 1], ( in make2bar_()25375 do_fio(&c__1, (char *)&ptclef[all_1.iv - 1], ( in make2bar_()25393 if (ptclef[all_1.iv - 1] > 0.f) { in make2bar_()[all …]