Lines Matching refs:itmp
60 integer :: itmp, itmp2 local
173 itmp = int(log10(float(myrank+1)))+1
184 write (temp1,"('(''number of nodes@'',i',i1,',A1)')") itmp
189 write (temp1,"('(''number of modes@'',i',i1,',A1)')") itmp
195 & itmp
201 & itmp
207 & "('(''maximum number of element nodes@'',i',i1,',A1)')") itmp
213 & itmp
219 & itmp
225 & "('(''number of nodes with Dirichlet BCs@'',i',i1,',A1)')") itmp
231 & itmp
292 itmp=1
293 if (irstart .gt. 0) itmp = int(log10(float(irstart+1)))+1
295 write (fmt1,"('(''restartRedTmp-dat.'',i',i1,',1x)')") itmp
314 itmp = int(log10(float(myrank+1)))+1
315 write (temp1,"('(''solution@'',i',i1,',A1)')") itmp
369 itmp = int(log10(float(myrank+1)))+1
370 write (temp1,"('(''ybar@'',i',i1,',a1)')") itmp
401 & itmp
434 itmp = int(log10(float(myrank+1)))+1
438 & itmp2, itmp
482 itmp = int(log10(float(myrank+1)))+1
483 write (temp1,"('(''vorticity@'',i',i1,',a1)')") itmp
517 write (temp1,"('(''dwal@'',i',i1,',a1)')") itmp
571 itmp = int(log10(float(myrank+1)))+1
582 write (temp1,"('(''size of ilwork array@'',i',i1,',A1)')") itmp
587 write (temp1,"('(''ilwork@'',i',i1,',A1)')") itmp