← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

Viewing changes to Src/m_region.F90

  • Committer: Nils Wittemeier
  • Date: 2019-02-14 07:45:07 UTC
  • mfrom: (746.1.15 trunk)
  • Revision ID: nils@4wittemeier.de-20190214074507-1mvzbmj9kw19gllr
Merged trunk 761

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_region.F90
241
241
    ! get current size
242
242
    n = r%n
243
243
    allocate(rr(n))
244
 
    rr = r%r(:n)
 
244
    rr(:) = r%r(:n)
245
245
    call rgn_list(r, n, rr, name=name)
246
246
    r%sorted = sorted
247
247