Lines Matching refs:itmp
76 integer :: ierr_io, numprocs, itmp, itmp2 local
198 itmp = int(log10(float(myrank+1)))+1
209 write (temp1,"('(''number of nodes@'',i',i1,',A1)')") itmp
214 write (temp1,"('(''number of modes@'',i',i1,',A1)')") itmp
220 & itmp
226 & itmp
232 & "('(''maximum number of element nodes@'',i',i1,',A1)')") itmp
238 & itmp
244 & itmp
250 & "('(''number of nodes with Dirichlet BCs@'',i',i1,',A1)')") itmp
256 & itmp
304 itmp=1
305 if (irstart .gt. 0) itmp = int(log10(float(irstart+1)))+1
307 write (fmt1,"('(''restart-dat.'',i',i1,',1x)')") itmp
325 itmp = int(log10(float(myrank+1)))+1
326 write (temp1,"('(''solution@'',i',i1,',A1)')") itmp
387 itmp = int(log10(float(myrank+1)))+1
388 write (temp1,"('(''ybar@'',i',i1,',a1)')") itmp
417 itmp = int(log10(float(myrank+1)))+1
418 write (temp1,"('(''errors@'',i',i1,',a1)')") itmp
448 itmp = int(log10(float(myrank+1)))+1
452 & itmp2, itmp
494 itmp = int(log10(float(myrank+1)))+1
495 write (temp1,"('(''vorticity@'',i',i1,',a1)')") itmp
527 & itmp
569 itmp=1
570 if (irstartmap .gt. 0) itmp = int(log10(float(irstartmap+1)))+1
572 write (fmt1,"('(''restart-dat.'',i',i1,',1x)')") itmp
590 itmp = int(log10(float(myrank+1)))+1
592 & itmp
616 & itmp
1122 itmp=1
1123 if (l .gt. 0) itmp = int(log10(float(l)))+1
1124 write (fmt1,"('(''restartMap.'',i',i1,',1x)')") itmp
1261 itmp=1
1262 if (l .gt. 0) itmp = int(log10(float(l)))+1
1263 write (fmt1,"('(''restartMap.'',i',i1,',1x)')") itmp