~ubuntu-branches/ubuntu/maverick/openturns/maverick

« back to all changes in this revision

Viewing changes to lib/src/BlasLapack/ilaenv.f

  • Committer: Bazaar Package Importer
  • Author(s): Fabrice Coutadeur
  • Date: 2010-05-10 17:27:55 UTC
  • mfrom: (1.1.4 upstream) (5.1.5 sid)
  • Revision ID: james.westby@ubuntu.com-20100510172755-cb5ynskknqqi5rhp
Tags: 0.13.2-2ubuntu1
* Merge with Debian testing. No changes left.
* ubuntu_fix-python-2.6.patch: fix detection of python 2.6 libs, to not use
  LOCALMODLIBS. This pulls a dependency on SSL and makes the package FTBFS.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
      INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 )
2
2
*
3
 
*  -- LAPACK auxiliary routine (version 3.1.1) --
4
 
*     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
5
 
*     January 2007
 
3
*  -- LAPACK auxiliary routine (version 3.2.1)                        --
 
4
*
 
5
*  -- April 2009                                                      --
 
6
*
 
7
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 
8
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6
9
*
7
10
*     .. Scalar Arguments ..
8
11
      CHARACTER*( * )    NAME, OPTS
525
528
*     ILAENV = 0
526
529
      ILAENV = 1
527
530
      IF( ILAENV.EQ.1 ) THEN
528
 
         ILAENV = IEEECK( 0, 0.0, 1.0 )
 
531
         ILAENV = IEEECK( 1, 0.0, 1.0 )
529
532
      END IF
530
533
      RETURN
531
534
*
536
539
*     ILAENV = 0
537
540
      ILAENV = 1
538
541
      IF( ILAENV.EQ.1 ) THEN
539
 
         ILAENV = IEEECK( 1, 0.0, 1.0 )
 
542
         ILAENV = IEEECK( 0, 0.0, 1.0 )
540
543
      END IF
541
544
      RETURN
542
545
*