Lines Matching refs:pdm1
976 ! 191 ! double *dptmp, *pdm1, *pdm2, *pdn, *pdtj, pdn_0, pdm1_0;
977 ! 193 ! pdm1=&(dm1[0]);
1018 ! 202 ! a=dt[0]=pdm1[0]*pdm2[0];
1025 ! 210 ! b=pdtj[1]+pdm1[0]*pdm2[j+1]+a*TwoToMinus16;
1030 ! 216 ! pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
1039 ! 225 ! a=dt[0]=pdm1[0]*pdm2[0];
1052 ! 240 ! pdm1_0=pdm1[0];
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;