Lines Matching refs:fname1
11 character*20 fname1, fmt1 local
30 fname1='bar.latest'
31 fname1 = trim(fname1) // cname(myrank+1)
32 inquire(file=fname1,exist=exlog)
42 write (fname1,fmt1) irstart
43 fname1 = trim(fname1) // cname(myrank+1)
45 inquire(file=fname1,exist=exlog)
48 write (*,*) 'Reading bar field file : ', fname1
51 open (unit=irstin, file=fname1, status='old',
79 write (fname1,fmt1) lstep
80 fname1 = trim(fname1) // cname(myrank+1)
82 open (unit=irstou, file=fname1, status='unknown',