Subversion Repositories slepc-dev

Rev

Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1544 Rev 1549
Line 18... Line 18...
def Check(conf):
def Check(conf):
  log.Write('='*80)
  log.Write('='*80)
  log.Println('Checking LAPACK library...')
  log.Println('Checking LAPACK library...')
 
 
  # LAPACK standard functions
  # LAPACK standard functions
  l = ['laev2','gehrd','lanhs','lange','getri','hseqr','trexc','trevc','geevx','ggevx','gelqf','gesdd','steqr']
  l = ['laev2','gehrd','lanhs','lange','getri','hseqr','trexc','trevc','geevx','ggevx','gelqf','gesdd']
 
 
  # LAPACK functions with different real and complex versions
  # LAPACK functions with different real and complex versions
  if petscconf.SCALAR == 'real':
  if petscconf.SCALAR == 'real':
    l += ['orghr','syevr','sygvd','ormlq','orgtr','sytrd']
    l += ['orghr','syevr','sygvd','ormlq']
    if petscconf.PRECISION == 'single':
    if petscconf.PRECISION == 'single':
      prefix = 's'
      prefix = 's'
    else:
    else:
      prefix = 'd'
      prefix = 'd'
  else:
  else:
Line 41... Line 41...
  for i in l:
  for i in l:
    functions.append(prefix + i)
    functions.append(prefix + i)
 
 
  # LAPACK functions which are always used in real version
  # LAPACK functions which are always used in real version
  if petscconf.PRECISION == 'single':
  if petscconf.PRECISION == 'single':
    functions += ['sstevr','sbdsdc']
    functions += ['sstevr','sbdsdc','ssteqr','sorgtr','ssytrd']
  else:
  else:
    functions += ['dstevr','dbdsdc']
    functions += ['dstevr','dbdsdc','dsteqr','dorgtr','dsytrd']
   
   
  # check for all functions at once
  # check for all functions at once
  all = []
  all = []
  for i in functions:
  for i in functions:
    f =  '#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) || defined(PETSC_BLASLAPACK_UNDERSCORE)\n'
    f =  '#if defined(PETSC_HAVE_FORTRAN_UNDERSCORE) || defined(PETSC_BLASLAPACK_UNDERSCORE)\n'