Lines Matching refs:fname1

51       character*255 fname1,fnamer,fnamelr  local
316       write (fname1,temp1) (myrank+1),'?'
317       fname1 = trim(fname1)
320       call readheader(descriptor,fname1//char(0) ,intfromfile,
344          call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
371         write (fname1,temp1) (myrank+1),'?'
372         fname1 = trim(fname1)
374         call readheader(descriptor,fname1//char(0),intfromfile,
385           call readdatablock(descriptor,fname1//char(0) ,qread,iqsiz,
402         write (fname1,temp1) (myrank+1),'?'
403         fname1 = trim(fname1)
405         call readheader(descriptor,fname1//char(0),intfromfile,
415           call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
439           write (fname1,temp1) iphavg,(myrank+1),'?'
440           fname1 = trim(fname1)
442           call readheader(descriptor,fname1//char(0),intfromfile,
458             call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
484         write (fname1,temp1) (myrank+1),'?'
485         fname1 = trim(fname1)
487         call readheader(descriptor,fname1//char(0),intfromfile,
499           call readdatablock(descriptor,fname1//char(0),qread,iqsiz,
518         write (fname1,temp1) (myrank+1),'?'
519         fname1 = trim(fname1)
521         call readheader(descriptor,fname1//char(0),intfromfile,
535           call readdatablock(descriptor,fname1//char(0),qread1,iqsiz,