Lines Matching refs:fname1

50       character*255 fname1,fnamer,fnamelr  local
213         write (fname1,temp1) (myrank+1),'?'
214         fname1 = trim(fname1)
217         call readheader(descriptor,fname1//char(0),intfromfile,ithree,
235         call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
248           write (fname1,temp1) (myrank+1),'?'
249           fname1 = trim(fname1)
251           call readheader(descriptor,fname1//char(0),intfromfile,ithree,
269           call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
290             write (fname1,temp1) iphavg,(myrank+1),'?'
291             fname1 = trim(fname1)
295      &                     iphavg,' - field: ',trim(fname1)
299             call readheader(descriptor,fname1//char(0),intfromfile,
318             call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
338           write (fname1,temp1) (myrank+1),'?'
339           fname1 = trim(fname1)
342           call readheader(descriptor,fname1//char(0) ,intfromfile,
353             call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
368             write (fname1,temp1) (myrank+1),'?'
369             fname1 = trim(fname1)
371             call readheader(descriptor,fname1//char(0),intfromfile,
380               call readdatablock(descriptor,fname1//char(0),qread,
396             write (fname1,temp1) (myrank+1),'?'
397             fname1 = trim(fname1)
399             call readheader(descriptor,fname1//char(0),intfromfile,
407               call readdatablock(descriptor,fname1//char(0),qread1,