Lines Matching refs:pdtj
976 ! 191 ! double *dptmp, *pdm1, *pdm2, *pdn, *pdtj, pdn_0, pdm1_0;
1020 ! 205 ! pdtj=&(dt[0]);
1021 ! 206 ! for(j=jj=0;j<2*nlen;j++,jj++,pdtj++)
1024 ! 209 ! a=pdtj[0]+pdn[0]*digit;
1025 ! 210 ! b=pdtj[1]+pdm1[0]*pdm2[j+1]+a*TwoToMinus16;
1026 ! 211 ! pdtj[1]=b;
1030 ! 216 ! pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
1054 ! 243 ! pdtj=&(dt[0]);
1055 ! 245 ! for(j=0;j<32;j++,pdtj++)
1058 ! 249 ! a=pdtj[0]+pdn_0*digit;
1059 ! 250 ! b=pdtj[1]+pdm1_0*pdm2[j+1]+a*TwoToMinus16;
1060 ! 251 ! pdtj[1]=b;
1064 ! 256 ! pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
1067 ! 259 ! pdtj[2]+=pdm1[1]*m2j+pdn[1]*digit;
1068 ! 260 ! pdtj[4]+=pdm1[2]*m2j+pdn[2]*digit;
1069 ! 261 ! pdtj[6]+=pdm1[3]*m2j+pdn[3]*digit;
1070 ! 262 ! pdtj[8]+=pdm1[4]*m2j+pdn[4]*digit;
1071 ! 263 ! pdtj[10]+=pdm1[5]*m2j+pdn[5]*digit;
1072 ! 264 ! pdtj[12]+=pdm1[6]*m2j+pdn[6]*digit;
1073 ! 265 ! pdtj[14]+=pdm1[7]*m2j+pdn[7]*digit;
1074 ! 266 ! pdtj[16]+=pdm1[8]*m2j+pdn[8]*digit;
1075 ! 267 ! pdtj[18]+=pdm1[9]*m2j+pdn[9]*digit;
1076 ! 268 ! pdtj[20]+=pdm1[10]*m2j+pdn[10]*digit;
1077 ! 269 ! pdtj[22]+=pdm1[11]*m2j+pdn[11]*digit;
1078 ! 270 ! pdtj[24]+=pdm1[12]*m2j+pdn[12]*digit;
1079 ! 271 ! pdtj[26]+=pdm1[13]*m2j+pdn[13]*digit;
1080 ! 272 ! pdtj[28]+=pdm1[14]*m2j+pdn[14]*digit;
1081 ! 273 ! pdtj[30]+=pdm1[15]*m2j+pdn[15]*digit;