Lines Matching refs:nmpc
26 ITG *kon, ITG **nodempcp, ITG *ipompc, ITG *nmpc, in interpolcycsymcfd() argument
72 FORTRAN(nident,(ikmpc,&idof,nmpc,&id)); in interpolcycsymcfd()
76 (*nmpc)++; in interpolcycsymcfd()
77 ipompc[*nmpc-1]=*mpcfree; in interpolcycsymcfd()
78 strcpy1(&labmpc[20*(*nmpc-1)],"CFDCYCL ",20); in interpolcycsymcfd()
79 for(k=*nmpc-1;k>id;k--){ in interpolcycsymcfd()
84 ilmpc[id]=*nmpc; in interpolcycsymcfd()
139 FORTRAN(nident,(ikmpc,&idof,nmpc,&id)); in interpolcycsymcfd()
144 (*nmpc)++; in interpolcycsymcfd()
145 ipompc[*nmpc-1]=*mpcfree; in interpolcycsymcfd()
146 strcpy1(&labmpc[20*(*nmpc-1)],"CFDCYCL ",20); in interpolcycsymcfd()
147 for(k=*nmpc-1;k>id;k--){ in interpolcycsymcfd()
152 ilmpc[id]=*nmpc; in interpolcycsymcfd()
235 FORTRAN(nident,(ikmpc,&idof,nmpc,&id)); in interpolcycsymcfd()
239 (*nmpc)++; in interpolcycsymcfd()
240 ipompc[*nmpc-1]=*mpcfree; in interpolcycsymcfd()
241 strcpy1(&labmpc[20*(*nmpc-1)],"CFDCYCL ",20); in interpolcycsymcfd()
242 for(k=*nmpc-1;k>id;k--){ in interpolcycsymcfd()
247 ilmpc[id]=*nmpc; in interpolcycsymcfd()
302 FORTRAN(nident,(ikmpc,&idof,nmpc,&id)); in interpolcycsymcfd()
307 (*nmpc)++; in interpolcycsymcfd()
308 ipompc[*nmpc-1]=*mpcfree; in interpolcycsymcfd()
309 strcpy1(&labmpc[20*(*nmpc-1)],"CFDCYCL ",20); in interpolcycsymcfd()
310 for(k=*nmpc-1;k>id;k--){ in interpolcycsymcfd()
315 ilmpc[id]=*nmpc; in interpolcycsymcfd()