Lines Matching refs:i
71 int i, j, k, N_geombc_double, N_geombc_integer, N_restart_double; in main() local
251 for ( i = 0; i < nppp; i++ ) in main()
253 Dfield[i] = new double*[N_geombc_double]; // Space for the datablock of double format in main()
254 … paraD[i] = new int*[N_geombc_double]; // Integers in the header of each field of double format in main()
255 Ifield[i] = new int*[N_geombc_integer]; // Space for the datablock of integer format in main()
256 …paraI[i] = new int*[N_geombc_integer]; // Integers in the header of each field of integer format in main()
275 for ( i = 0; i < N_geombc_double; i++ ) in main()
277 WriteLockD[i]=0; in main()
279 fieldNameD[i] = new char[128]; in main()
280 fileTypeD[i] = new char[128]; in main()
281 dataTypeD[i] = new char[128]; in main()
282 headerTypeD[i] = new char[128]; in main()
285 for ( i = 0; i < N_geombc_integer; i++ ) in main()
287 …WriteLockI[i]=0; //This take value 1 if the field requested in IO.input is not found (typically fo… in main()
289 fieldNameI[i] = new char[128]; in main()
290 fileTypeI[i] = new char[128]; in main()
291 dataTypeI[i] = new char[128]; in main()
292 headerTypeI[i] = new char[128]; in main()
304 for ( i = 0; i < N_geombc_double+N_geombc_integer; i++ ) in main()
358 for ( i = 0; i < nppp; i++ ) in main()
361 subdir = (startpart+i-1) / DIR_FANOUT; in main()
362 sprintf(gfname,"./%d-procs_case/%d/geombc.dat.%d",N_parts, subdir, startpart+i); in main()
365 sprintf(gfname,"./%d-procs_case/geombc.dat.%d",N_parts,startpart+i); in main()
375 paraD[i][j] = new int[expectD[j]]; in main()
398 paraD[i][j][k] = iarray[k]; in main()
402 paraD[i][j][k] = 0; 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()
444 (void*)Dfield[i][j], in main()
487 for ( i = 0; i < nppp; i++ ) in main()
490 subdir = (startpart+i-1) / DIR_FANOUT; in main()
491 sprintf(gfname,"./%d-procs_case/%d/geombc.dat.%d",N_parts, subdir, startpart+i); in main()
494 sprintf(gfname,"./%d-procs_case/geombc.dat.%d", N_parts, startpart+i); in main()
506 paraI[i][j] = new int[expectI[j]]; in main()
553 paraI[i][j][k] = iarray[k]; in main()
557 paraI[i][j][k] = 0; 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()
583 (void*)Ifield[i][j], in main()
618 for ( i = 0; i < nppp; i++ ) in main()
620 valuesMark[i]=0; in main()
625 for ( i = 0; i < nppp; i++ ) in main()
630 GPID = startpart + i; in main()
637 valuesMark[i]++; in main()
639 sprintf(fieldNameD[j],"nbc values%d",valuesMark[i]); in main()
663 isize = computenitems(i,j,myrank,fieldNameD[j],paraD,expectD[j],numVariables[i]); in main()
666 iarray[k] = paraD[i][j][k]; in main()
679 (void*)Dfield[i][j], in main()
685 delete [] Dfield[i][j]; in main()
687 delete [] paraD[i][j]; in main()
691 for ( i = 0; i < nppp; i++ ) in main()
693 interiorMark[i]=0; in main()
694 boundaryMark[i]=0; in main()
695 codesMark[i]=0; in main()
706 for ( i = 0; i < nppp; i++ ) in main()
710 GPID = startpart + i; in main()
715 interiorMark[i]++; in main()
717 sprintf(fieldNameI[j],"connectivity interior%d",interiorMark[i]); in main()
727 boundaryMark[i]++; in main()
729 sprintf(fieldNameI[j],"connectivity boundary%d",boundaryMark[i]); in main()
740 codesMark[i]++; in main()
742 sprintf(fieldNameI[j],"nbc codes%d",codesMark[i]); in main()
768 isize = computenitems(i,j,myrank,fieldNameI[j],paraI,expectI[j],numVariables[i]); in main()
771 iarray[k] = paraI[i][j][k]; in main()
784 (void*)Ifield[i][j], in main()
791 delete [] Ifield[i][j]; in main()
796 delete [] paraI[i][j]; in main()
814 for ( i = 0; i < nppp; i++ ) in main()
816 delete [] Dfield[i]; in main()
817 delete [] paraD[i]; in main()
819 delete [] Ifield[i]; in main()
820 delete [] paraI[i]; in main()
824 for ( i = 0; i < N_geombc_double; i++ ) in main()
826 delete [] fieldNameD[i]; in main()
827 delete [] fileTypeD[i]; in main()
828 delete [] dataTypeD[i]; in main()
829 delete [] headerTypeD[i]; in main()
832 for ( i = 0; i < N_geombc_integer; i++ ) in main()
835 delete [] fieldNameI[i]; in main()
836 delete [] fileTypeI[i]; in main()
837 delete [] dataTypeI[i]; in main()
838 delete [] headerTypeI[i]; in main()
889 for ( i = 0; i < N_restart_double; i++ ) in main()
891 WriteLockD[i]=0; in main()
892 Dfield[i] = new double*[nppp]; in main()
894 paraD[i] = new int*[nppp]; in main()
896 fieldNameD[i] = new char[128]; in main()
897 fileTypeD[i] = new char[128]; in main()
898 dataTypeD[i] = new char[128]; in main()
899 headerTypeD[i] = new char[128]; in main()
903 for ( i = 0; i < N_restart_integer; i++ ) in main()
905 WriteLockI[i]=0; in main()
906 Ifield[i] = new int*[nppp]; in main()
908 paraI[i] = new int*[nppp]; in main()
910 fieldNameI[i] = new char[128]; in main()
911 fileTypeI[i] = new char[128]; in main()
912 dataTypeI[i] = new char[128]; in main()
913 headerTypeI[i] = new char[128]; in main()
923 for ( i = 0; i < N_restart_double+N_restart_integer; i++ ) in main()
966 for ( i = 0; i < N_restart_double; i++ ) in main()
983 paraD[i][j] = new int[expectD[i]]; in main()
987 fieldNameD[i], in main()
989 &expectD[i], in main()
993 for ( k = 0; k < expectD[i]; k++ ) in main()
994 paraD[i][j][k] = iarray[k]; in main()
997 WriteLockD[i]=1; in main()
998 if ( WriteLockD[i]==0 ) in main()
1000 if ( cscompare("block",headerTypeD[i]) ) in main()
1002 if ( expectD[i]==1) 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()
1009 fieldNameD[i], in main()
1010 (void*)Dfield[i][j], in main()
1027 for ( i = 0; i < N_restart_integer; i++ ) in main()
1044 paraI[i][j] = new int[expectI[i]]; in main()
1048 fieldNameI[i], in main()
1050 &expectI[i], in main()
1054 for ( k = 0; k < expectI[i]; k++ ) in main()
1055 paraI[i][j][k] = iarray[k]; in main()
1058 WriteLockI[i]=1; in main()
1059 if ( WriteLockI[i]==0 ) in main()
1062 if ( cscompare("block",headerTypeI[i]) ) in main()
1064 if ( expectI[i]==1) 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()
1071 fieldNameI[i], in main()
1072 (void*)Ifield[i][j], in main()
1102 for ( i = 0; i < N_restart_double; i++ ) in main()
1107 if (WriteLockD[i]==0) in main()
1111 sprintf(fieldtag,"%s@%d",fieldNameD[i],GPID); in main()
1113 if ( expectD[i]==1) in main()
1114 isize = paraD[i][j][0]; in main()
1116 isize = paraD[i][j][0] * paraD[i][j][1]; in main()
1118 for ( k = 0; k < expectD[i]; k++ ) in main()
1119 iarray[k] = paraD[i][j][k]; in main()
1121 if ( cscompare("header",headerTypeD[i]) ) in main()
1127 &expectD[i], in main()
1134 (void*)Dfield[i][j], in main()
1138 if ( cscompare("block",headerTypeD[i]) ) in main()
1139 delete [] Dfield[i][j]; in main()
1141 delete [] paraD[i][j]; in main()
1150 for ( i = 0; i < N_restart_integer; i++ ) in main()
1155 if (WriteLockI[i]==0) in main()
1159 sprintf(fieldtag,"%s@%d",fieldNameI[i],GPID); in main()
1161 if ( expectI[i]==1) in main()
1162 isize = paraI[i][j][0]; in main()
1164 isize = paraI[i][j][0] * paraI[i][j][1]; in main()
1166 for ( k = 0; k < expectI[i]; k++ ) in main()
1167 iarray[k] = paraI[i][j][k]; in main()
1169 if ( cscompare("header",headerTypeI[i]) ) in main()
1175 &expectI[i], in main()
1182 (void*)Ifield[i][j], in main()
1187 if ( cscompare("block",headerTypeI[i]) ) in main()
1188 delete [] Ifield[i][j]; in main()
1190 delete [] paraI[i][j]; in main()
1209 for ( i = 0; i < N_restart_double; i++ ) in main()
1211 delete [] Dfield[i]; in main()
1212 delete [] paraD[i]; in main()
1214 delete [] fieldNameD[i]; in main()
1215 delete [] fileTypeD[i]; in main()
1216 delete [] dataTypeD[i]; in main()
1217 delete [] headerTypeD[i]; in main()
1220 for ( i = 0; i < N_restart_integer; i++ ) in main()
1222 delete [] Ifield[i]; in main()
1223 delete [] paraI[i]; in main()
1225 delete [] fieldNameI[i]; in main()
1226 delete [] fileTypeI[i]; in main()
1227 delete [] dataTypeI[i]; in main()
1228 delete [] headerTypeI[i]; in main()