Lines Matching refs:iddot
3169 * iddot,nptr(nkb),ibarcnt,mbrest,ibarmbr,
6814 subroutine dotmov(updot,rtdot,soutq,lsout,iddot) argument
6816 c iddot = 0 for single dot, 1 for double
6826 * 'PMXpt{',updot,'}{',rtdot,'}'//chax(48+iddot)//'}'//sq
7316 * iddot,nptr(nkb),ibarcnt,mbrest,ibarmbr,
7450 * iddot,nptr(nkb),ibarcnt,mbrest,ibarmbr,
7592 iddot = 1
8500 if (iddot .eq. 1) then
8502 iddot = 0
17605 * iddot,nptr(nkb),ibarcnt,mbrest,ibarmbr,
18577 * iddot,nptr(nkb),ibarcnt,mbrest,ibarmbr,
18739 iddot = 0