Searched refs:fnamepold (Results 1 – 1 of 1) sorted by relevance
91 character*60 fnamepold, fvarts local142 fnamepold = 'pold'143 fnamepold = trim(fnamepold)//trim(cname2(lstep))144 fnamepold = trim(fnamepold)//'.dat'145 fnamepold = trim(fnamepold)146 open (unit=8177, file=fnamepold, status='unknown')