File: iladiag

package info (click to toggle)
ruby-lapack 1.8.1-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 28,552 kB
  • sloc: ansic: 191,612; ruby: 3,934; makefile: 8
file content (30 lines) | stat: -rwxr-xr-x 930 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
--- 
:name: iladiag
:md5sum: dc4a24ef58c1ee18a364cb9ea175b8b2
:category: :function
:type: integer
:arguments: 
- diag: 
    :type: char
    :intent: input
:substitutions: {}

:fortran_help: "      INTEGER FUNCTION ILADIAG( DIAG )\n\n\
  *  Purpose\n\
  *  =======\n\
  *\n\
  *  This subroutine translated from a character string specifying if a\n\
  *  matrix has unit diagonal or not to the relevant BLAST-specified\n\
  *  integer constant.\n\
  *\n\
  *  ILADIAG returns an INTEGER.  If ILADIAG < 0, then the input is not a\n\
  *  character indicating a unit or non-unit diagonal.  Otherwise ILADIAG\n\
  *  returns the constant value corresponding to DIAG.\n\
  *\n\n\
  *  Arguments\n\
  *  =========\n\
  *  DIAG    (input) CHARACTER*1\n\
  *          = 'N':  A is non-unit triangular;\n\
  *          = 'U':  A is unit triangular.\n\n\
  *  =====================================================================\n\
  *\n"