Lines Matching refs:itmp
59 integer :: itmp, itmp2 local
184 itmp=1
185 if (timestep .gt. 0) itmp = int(log10(float(timestep+1)))+1
186 write (fmt1,"('(''restart-dat.'',i',i1,',1x)')") itmp
211 itmp = int(log10(float(myrank+1)))+1
212 write (temp1,"('(''ybar@'',i',i1,',A1)')") itmp
247 & itmp
282 itmp = int(log10(float(myrank+1)))+1
288 & itmp2, itmp
336 itmp = int(log10(float(myrank+1)))+1
337 write (temp1,"('(''solution@'',i',i1,',A1)')") itmp
367 & itmp
395 & itmp