Lines Matching refs:fnamer
51 character*255 fname1,fnamer,fnamelr local
75 fnamer='M2N_input.dat'
76 fnamer = trim(fnamer) // char(0)
77 inquire(file=fnamer,exist=exinput)
79 open(unit=72,file=fnamer,status='old')
91 & trim(fnamer),' does not exist!'
167 write (fnamer,temp2) (color+1)
168 fnamer = trim(fnamer)//char(0)
175 call queryphmpiio(fnamer, nfields, nppf);
182 call openfile( fnamer, 'read'//char(0), igeom )
296 write (fnamer,fmt1) irstart
297 fnamer = trim(fnamer) // cname2(color+1)
299 call queryphmpiio(fnamer//char(0), nfields, nppf);
307 call openfile( fnamer//char(0) ,
565 write (fnamer,temp2) (color+1)
566 fnamer = trim(fnamer)//char(0)
573 call queryphmpiio(fnamer, nfields, nppf);
580 call openfile( fnamer, 'read'//char(0), igeom )