Lines Matching refs:j
71 int i, j, k, N_geombc_double, N_geombc_integer, N_restart_double; in main() local
205 j = 0; in main()
209 sprintf(gfname,"./%d-procs_case/restart.%d.%d", N_parts, N_steps, startpart+j); in main()
216 subdir = (startpart+j-1) / DIR_FANOUT; in main()
218 sprintf(gfname,"./%d-procs_case/%d/restart.%d.%d",N_parts, subdir, N_steps, startpart+j); in main()
244 for ( j = 0; j < nppp; j++ ) in main()
245 …numVariables[j] = iarray[1]; //iarray[i] contains the number of variables from the header of the s… in main()
371 for ( j = 0; j < N_geombc_double; j++ ) in main()
375 paraD[i][j] = new int[expectD[j]]; in main()
381 WriteLockD[j]=0; in main()
383 fieldNameD[j], in main()
385 &expectD[j], in main()
389 WriteLockD[j]=1; in main()
397 for ( k = 0; k < expectD[j]; k++ ) in main()
398 paraD[i][j][k] = iarray[k]; in main()
400 …if ( WriteLockD[j]==1) // Put the value of the expected integers in the header to 0 when field not… in main()
401 for ( k = 0; k < expectD[j]; k++ ) in main()
402 paraD[i][j][k] = 0; in main()
419 if ( cscompare("block",headerTypeD[j]) ) in main()
438 isize = computenitems(i,j,myrank,fieldNameD[j],paraD,expectD[j],numVariables[i]); in main()
441 Dfield[i][j] = new double[isize]; in main()
443 fieldNameD[j], in main()
444 (void*)Dfield[i][j], in main()
465 for ( j = 0; j < N_geombc_integer; j++ ) in main()
467 if (cscompare("connectivity interior",fieldNameI[j])) in main()
472 else if (cscompare("connectivity boundary",fieldNameI[j])) in main()
502 for ( j = 0; j < N_geombc_integer; j++ ) in main()
506 paraI[i][j] = new int[expectI[j]]; in main()
513 WriteLockI[j]=0; in main()
516 if ( cscompare("total number of interior tpblocks",fieldNameI[j] ) ) in main()
520 else if ( cscompare("total number of boundary tpblocks",fieldNameI[j] ) ) in main()
527 fieldNameI[j], in main()
529 &expectI[j], in main()
533 WriteLockI[j]=1; // The field was not found in the posix geombc file in main()
552 for ( k = 0; k < expectI[j]; k++ ) in main()
553 paraI[i][j][k] = iarray[k]; in main()
555 … if ( WriteLockI[j]==1) //The field is not present but SyncIO needs it to read collectively. Put 0. in main()
556 for ( k = 0; k < expectI[j]; k++ ) in main()
557 paraI[i][j][k] = 0; in main()
559 if ( cscompare("block",headerTypeI[j]) ) in main()
577 isize = computenitems(i,j,myrank,fieldNameI[j],paraI,expectI[j],numVariables[i]); in main()
580 Ifield[i][j] = new int[isize]; in main()
582 fieldNameI[j], in main()
583 (void*)Ifield[i][j], in main()
623 for ( j = 0; j < N_geombc_double; j++ ) in main()
634 if (cscompare("nbc values",fieldNameD[j])) in main()
638 bzero((void*)fieldNameD[j],128); in main()
639 sprintf(fieldNameD[j],"nbc values%d",valuesMark[i]); in main()
646 sprintf(fieldtag,"%s@%d",fieldNameD[j],GPID); in main()
660 if ( cscompare("header",headerTypeD[j]) ) in main()
663 isize = computenitems(i,j,myrank,fieldNameD[j],paraD,expectD[j],numVariables[i]); in main()
665 for ( k = 0; k < expectD[j]; k++ ) in main()
666 iarray[k] = paraD[i][j][k]; in main()
673 &expectD[j], in main()
679 (void*)Dfield[i][j], in main()
684 if ( cscompare("block",headerTypeD[j]) ) in main()
685 delete [] Dfield[i][j]; in main()
687 delete [] paraD[i][j]; in main()
704 for ( j = 0; j < N_geombc_integer; j++ ) in main()
713 if (cscompare("connectivity interior",fieldNameI[j])) in main()
716 bzero((void*)fieldNameI[j],128); in main()
717 sprintf(fieldNameI[j],"connectivity interior%d",interiorMark[i]); in main()
725 if (cscompare("connectivity boundary",fieldNameI[j])) in main()
728 bzero((void*)fieldNameI[j],128); in main()
729 sprintf(fieldNameI[j],"connectivity boundary%d",boundaryMark[i]); in main()
737 if (cscompare("nbc codes",fieldNameI[j])) in main()
741 bzero((void*)fieldNameI[j],128); in main()
742 sprintf(fieldNameI[j],"nbc codes%d",codesMark[i]); in main()
749 sprintf(fieldtag,"%s@%d",fieldNameI[j],GPID); in main()
765 if ( cscompare("header",headerTypeI[j]) ) in main()
768 isize = computenitems(i,j,myrank,fieldNameI[j],paraI,expectI[j],numVariables[i]); in main()
770 for ( k = 0; k < expectI[j]; k++ ) in main()
771 iarray[k] = paraI[i][j][k]; in main()
778 &expectI[j], in main()
784 (void*)Ifield[i][j], in main()
789 if ( cscompare("block",headerTypeI[j]) ){ in main()
791 delete [] Ifield[i][j]; in main()
796 delete [] paraI[i][j]; in main()
968 for ( j = 0; j < nppp; j++ ) in main()
972 subdir = (startpart+j-1) / DIR_FANOUT; in main()
973 sprintf(gfname,"./%d-procs_case/%d/restart.%d.%d",N_parts, subdir, N_steps,startpart+j); in main()
976 sprintf(gfname,"./%d-procs_case/restart.%d.%d",N_parts, N_steps, startpart+j); in main()
983 paraD[i][j] = new int[expectD[i]]; in main()
994 paraD[i][j][k] = iarray[k]; in main()
1003 isize = paraD[i][j][0]; in main()
1005 isize = paraD[i][j][0] * paraD[i][j][1]; in main()
1007 Dfield[i][j] = new double[isize]; in main()
1010 (void*)Dfield[i][j], in main()
1029 for ( j = 0; j < nppp; j++ ) in main()
1033 subdir = (startpart+j-1) / DIR_FANOUT; in main()
1034 sprintf(gfname,"./%d-procs_case/%d/restart.%d.%d",N_parts, subdir, N_steps, startpart+j); in main()
1037 sprintf(gfname,"./%d-procs_case/restart.%d.%d",N_parts, N_steps, startpart+j); in main()
1044 paraI[i][j] = new int[expectI[i]]; in main()
1055 paraI[i][j][k] = iarray[k]; in main()
1065 isize = paraI[i][j][0]; in main()
1067 isize = paraI[i][j][0] * paraI[i][j][1]; in main()
1069 Ifield[i][j] = new int[isize]; in main()
1072 (void*)Ifield[i][j], in main()
1104 for ( j = 0; j < nppp; j++ ) in main()
1109 GPID = startpart + j; in main()
1114 isize = paraD[i][j][0]; in main()
1116 isize = paraD[i][j][0] * paraD[i][j][1]; in main()
1119 iarray[k] = paraD[i][j][k]; in main()
1134 (void*)Dfield[i][j], in main()
1139 delete [] Dfield[i][j]; in main()
1141 delete [] paraD[i][j]; in main()
1152 for ( j = 0; j < nppp; j++ ) in main()
1157 GPID = startpart + j; in main()
1162 isize = paraI[i][j][0]; in main()
1164 isize = paraI[i][j][0] * paraI[i][j][1]; in main()
1167 iarray[k] = paraI[i][j][k]; in main()
1182 (void*)Ifield[i][j], in main()
1188 delete [] Ifield[i][j]; in main()
1190 delete [] paraI[i][j]; in main()