[Commits] [svn:einsteintoolkit] NullSHRExtract/branches/tapir/src/ (Rev. 28)

[bela at caltech.edu]

User: szilagyi
Date: 2013/11/12 02:36 PM

Modified:
 /branches/tapir/src/
  NullSHRE_modAnaCoord.F90

Log:
 fix a typo

File Changes:

Directory: /branches/tapir/src/
===============================

File [modified]: NullSHRE_modAnaCoord.F90
Delta lines: +4 -4
===================================================================
--- branches/tapir/src/NullSHRE_modAnaCoord.F90	2013-11-11 20:00:57 UTC (rev 27)
+++ branches/tapir/src/NullSHRE_modAnaCoord.F90	2013-11-12 20:36:26 UTC (rev 28)
@@ -19,16 +19,16 @@
      dstereo_dspherical(2,1)%d => tmp(:,:,3)
      dstereo_dspherical(2,2)%d => tmp(:,:,4)
 
+     call wt_dstereo_dspherical(ip,dstereo_dspherical)
+
      det = &
        dstereo_dspherical(1,1)%d * dstereo_dspherical(2,2)%d - &
        dstereo_dspherical(1,2)%d * dstereo_dspherical(2,1)%d
 
-     call wt_dstereo_dspherical(ip,dstereo_dspherical)
-
      dspherical_dstereo(1,1)%d =   dstereo_dspherical(2,2)%d / det
      dspherical_dstereo(1,2)%d = - dstereo_dspherical(1,2)%d / det
-     dspherical_dstereo(2,1)%d =   dstereo_dspherical(1,1)%d / det
-     dspherical_dstereo(2,2)%d = - dstereo_dspherical(2,1)%d / det
+     dspherical_dstereo(2,2)%d =   dstereo_dspherical(1,1)%d / det
+     dspherical_dstereo(2,1)%d = - dstereo_dspherical(2,1)%d / det
 
    end subroutine wt_dspherical_dstereo