← Back to branch summary

~ubuntu-branches/debian/stretch/abinit/stretch

« back to all changes in this revision

Viewing changes to src/83_cut3d/localorb_S.F90

  • Committer: Package Import Robot
  • Author(s): Andreas Tille
  • Date: 2014-08-21 11:33:37 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20140821113337-umpaon6uog5exeu4
Tags: 7.8.2-1
http://bugs.debian.org/747259
* New upstream version (adapted patches)
  Closes: #747259
* No need to remove documentation without source any more
  since it was removed by upstream
* moved debian/upstream to debian/upstream/metadata
* Upstream changed the way to install docs so several changes in
  d/rules and d/abinit-doc.install were needed.  Docs are now
  rebuilded from source
* Several patches needed to enable building latex source

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/83_cut3d/localorb_S.F90
39
39
!! xcrysden plottable WLO file,
40
40
!! corresponding complex data file
41
41
!! other analysis and runtime check files
42
 
 
 
42
!!
43
43
!! SIDE EFFECTS
44
44
!!
45
45
!! NOTES
1423
1423
!    ------------------------------------------------------
1424
1424
!    X Y Z projection calculation
1425
1425
!    ------------------------------------------------------
1426
 
!    goto 6776
1427
1426
     re1 = abs(rlx1)*real(ncellx1)+abs(rlx2)*real(ncelly1)+abs(rlx3)*real(ncellz1)
1428
1427
     re2 = abs(rly1)*real(ncellx1)+abs(rly2)*real(ncelly1)+abs(rly3)*real(ncellz1)
1429
1428
     re3 = abs(rlz1)*real(ncellx1)+abs(rlz2)*real(ncelly1)+abs(rlz3)*real(ncellz1)