Searched refs:srepeatg (Results 1 – 1 of 1) sorted by relevance
538 character(len=4) :: srepeat, srepeatg local623 write(srepeatg,'(i4)') repeatg624 srepeatg = adjustl(srepeatg)629 tform(2) = trim(srepeatg)//pform630 tform(3) = trim(srepeatg)//'J'631 tform(4) = trim(srepeatg)//pform