Next Up Previous Contents
Next: A.5 crash.c
Up: A.4 Profiling
Previous: A.4.2 p2.f
[ID index][Keyword index]

A.4.3 p3.f


      real function determinant(m)
      implicit none
      real m(2,2)
      determinant = m(1,1) * m(2,2) - m(1,2) * m(2,1)
      return
      end


Next Up Previous Contents
Next: A.5 crash.c
Up: A.4 Profiling
Previous: A.4.2 p2.f
[ID index][Keyword index]
Theory and Modelling Resources Cookbook
Starlink Cookbook 13
Norman Gray
2 December 2001. Release 2-5. Last updated 10 March 2003