Lines Matching refs:fnamer
58 character*255 fname1,fnamer, fnamelr local
103 fnamer='M2N_input.dat'
104 inquire(file=fnamer,exist=exinput)
106 open(unit=72,file=fnamer,status='old')
118 & trim(fnamer),' does not exist!'
192 write (fnamer,temp2) (color+1)
193 fnamer = trim(fnamer)//char(0)
200 call queryphmpiio(fnamer, nfields, nppf);
207 call openfile( fnamer, 'read'//char(0), igeom )
309 write (fnamer,fmt1) irstart
310 fnamer = trim(fnamer) // cname2(color+1)
312 call queryphmpiio(fnamer//char(0), nfields, nppf);
319 call openfile( fnamer//char(0) ,
574 write (fnamer,fmt1) irstartmap
575 fnamer = trim(fnamer) // cname2(color+1)
577 call queryphmpiio(fnamer//char(0), nfields, nppf);
584 call openfile( fnamer//char(0) ,
1125 write (fnamer,fmt1) l
1126 fnamer = trim(fnamer) // cname2(myrank+1)
1128 open(unit=700+l,file=fnamer,status='unknown',
1131 open(unit=700+l,file=fnamer,status='unknown')
1264 write (fnamer,fmt1) l
1265 fnamer = trim(fnamer) // cname2(j)
1269 inquire(file=fnamer,exist=exmap)
1273 open(unit=700+l,file=fnamer,status='unknown',
1276 open(unit=700+l,file=fnamer,status='unknown')