Lines Matching refs:fvarts
91 character*60 fnamepold, fvarts local
1365 character*60 fvarts local
1424 fvarts='varts/varts'
1425 fvarts=trim(fvarts)//trim(cname2(jj))
1426 fvarts=trim(fvarts)//trim(cname2(lstep))
1427 fvarts=trim(fvarts)//'.dat'
1428 fvarts=trim(fvarts)
1429 open(unit=1000+jj, file=fvarts, status='unknown')
1761 character*60 fvarts local
1820 fvarts='varts/varts'
1821 fvarts=trim(fvarts)//trim(cname2(jj))
1822 fvarts=trim(fvarts)//trim(cname2(lskeep))
1823 fvarts=trim(fvarts)//'.dat'
1824 fvarts=trim(fvarts)
1825 open(unit=ifile, file=fvarts,