Changeset 142 for trunk/SRC/ToBeReviewed/CALCULS/determ2.pro

Timestamp:

07/21/06 14:47:49 (18 years ago)

Author:

navarro

Message:

english and nicer header (2a)

File:

• trunk/SRC/ToBeReviewed/CALCULS/determ2.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/CALCULS/determ2.pro

@@ -1 +1 @@
 ;+
-; NAME:determ2
 ;
-; PURPOSE: computes the determinant of n 2 by 2 arrays
+; file_comments
+; computes the determinant of n 2 by 2 arrays
+; Z2DS is an 2*2*n array
 ;
-; CATEGORY: no DO loops and better accuracy
+; @categories 
+; Without loop
+; 
+; @param A {in}{required}
+; n element array
+; Defined as z2ds[0, 0, *] = z1d00
 ;
-; CALLING SEQUENCE: 2 cases:
-;     res = determ2(z2ds)
-;     res = determ2(z1d00,z1d01,z1d10,z1d11)
+; @param B {in}{required}
+; n element array
+; Defined as z2ds[0, 1, *] = z1d01
 ;
-; INPUTS:
-;     z2ds: an 2*2*n array
-;     or
-;     z1d00,z1d01,z1d10,z1d11: the four n elements arrays
-;     defined as:
-;              z2ds[0, 0, *] = z1d00
-;              z2ds[0, 1, *] = z1d01
-;              z2ds[1, 0, *] = z1d10
-;              z2ds[1, 1, *] = z1d11
+; @param C {in}{required}
+; n element array
+; Defined as z2ds[1, 0, *] = z1d10
 ;
-; OUTPUTS: n elements array, the determinent of each 2*2 arrrays
+; @param D {in}{required}
+; n element array
+; Defined as z2ds[1, 1, *] = z1d11
 ;
-; EXAMPLE:
+; @returns 
+; n elements array, the determinent of each 2*2 arrrays
 ;
+; @examples
 ; a=findgen(2,2,5)
 ; print, determ2(a)
 ; FOR i=0,4 DO print, determ(a[*,*,i]) ; IDL solution
 ;
-; MODIFICATION HISTORY:
+; @history
 ;           S. Masson (smasson@lodyc.jussieu.fr)
 ;           July 11th, 2002
+;
+; @version
+; $Id$
+;
 ;-
 FUNCTION determ2, a, b, c, d