Searched refs:cname2 (Results 1 – 12 of 12) sorted by relevance
40 function cname2 (i) function43 character*10 cname2,cc local66 cname2 = "." // cc
55 character*10 cname2 local310 fnamer = trim(fnamer) // cname2(color+1)575 fnamer = trim(fnamer) // cname2(color+1)1126 fnamer = trim(fnamer) // cname2(myrank+1)1265 fnamer = trim(fnamer) // cname2(j)
48 character*10 cname2 local188 fnamer = trim(fnamer) // cname2(color+1)
49 character*10 cname2 local297 fnamer = trim(fnamer) // cname2(color+1)
49 character*10 cname2 local114 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'
50 character*10 cname2, cname2nd local83 fname1= trim(fname1) // cname2(myrank+1)89 fnamer = trim(fnamer) // cname2(myrank+1)
182 character*10 cname2 local230 fname1 = 'forces_s'//trim(cname(isrf))// cname2(lskeep+1)
78 character*10 cname2 local143 fnamepold = trim(fnamepold)//trim(cname2(lstep))1073 character*10 cname2 local1120 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'1156 fname1 = trim(fname1)//trim(cname2(lstep))//'.dat'1366 character*10 cname2 local1425 fvarts=trim(fvarts)//trim(cname2(jj))1426 fvarts=trim(fvarts)//trim(cname2(lstep))1762 character*10 cname2 local1821 fvarts=trim(fvarts)//trim(cname2(jj))[all …]
27 character*10 cname2 local