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