Lines Matching refs:fnamer
50 character*255 fname1,fnamer,fnamelr local
78 fnamer='AcuStat_input.dat'
79 fnamer = trim(fnamer) // char(0)
80 inquire(file=fnamer,exist=exinput)
82 open(unit=24,file=fnamer,status='old')
90 & trim(fnamer),' does not exist!'
187 write (fnamer,fmt1) timestep
188 fnamer = trim(fnamer) // cname2(color+1)
191 write(*,*)myrank,timestep,nfiles,numparts,trim(adjustl(fnamer))
197 call queryphmpiio(fnamer//char(0), nfields, nppf);
206 call openfile( fnamer//char(0), 'read'//char(0), descriptor )