--- 
:name: clansp
:md5sum: 140cc467da7a57d49c7fb0014ea4ecc1
:category: :function
:type: real
:arguments: 
- norm: 
    :type: char
    :intent: input
- uplo: 
    :type: char
    :intent: input
- n: 
    :type: integer
    :intent: input
- ap: 
    :type: complex
    :intent: input
    :dims: 
    - n*(n+1)/2
- work: 
    :type: real
    :intent: workspace
    :dims: 
    - "MAX(1,(lsame_(&norm,\"I\")||lsame_(&norm,\"1\")||lsame_(&norm,\"O\")) ? n : 0)"
:substitutions: {}

:fortran_help: "      REAL             FUNCTION CLANSP( NORM, UPLO, N, AP, WORK )\n\n\
  *  Purpose\n\
  *  =======\n\
  *\n\
  *  CLANSP  returns the value of the one norm,  or the Frobenius norm, or\n\
  *  the  infinity norm,  or the  element of  largest absolute value  of a\n\
  *  complex symmetric matrix A,  supplied in packed form.\n\
  *\n\
  *  Description\n\
  *  ===========\n\
  *\n\
  *  CLANSP returns the value\n\
  *\n\
  *     CLANSP = ( max(abs(A(i,j))), NORM = 'M' or 'm'\n\
  *              (\n\
  *              ( norm1(A),         NORM = '1', 'O' or 'o'\n\
  *              (\n\
  *              ( normI(A),         NORM = 'I' or 'i'\n\
  *              (\n\
  *              ( normF(A),         NORM = 'F', 'f', 'E' or 'e'\n\
  *\n\
  *  where  norm1  denotes the  one norm of a matrix (maximum column sum),\n\
  *  normI  denotes the  infinity norm  of a matrix  (maximum row sum) and\n\
  *  normF  denotes the  Frobenius norm of a matrix (square root of sum of\n\
  *  squares).  Note that  max(abs(A(i,j)))  is not a consistent matrix norm.\n\
  *\n\n\
  *  Arguments\n\
  *  =========\n\
  *\n\
  *  NORM    (input) CHARACTER*1\n\
  *          Specifies the value to be returned in CLANSP as described\n\
  *          above.\n\
  *\n\
  *  UPLO    (input) CHARACTER*1\n\
  *          Specifies whether the upper or lower triangular part of the\n\
  *          symmetric matrix A is supplied.\n\
  *          = 'U':  Upper triangular part of A is supplied\n\
  *          = 'L':  Lower triangular part of A is supplied\n\
  *\n\
  *  N       (input) INTEGER\n\
  *          The order of the matrix A.  N >= 0.  When N = 0, CLANSP is\n\
  *          set to zero.\n\
  *\n\
  *  AP      (input) COMPLEX array, dimension (N*(N+1)/2)\n\
  *          The upper or lower triangle of the symmetric matrix A, packed\n\
  *          columnwise in a linear array.  The j-th column of A is stored\n\
  *          in the array AP as follows:\n\
  *          if UPLO = 'U', AP(i + (j-1)*j/2) = A(i,j) for 1<=i<=j;\n\
  *          if UPLO = 'L', AP(i + (j-1)*(2n-j)/2) = A(i,j) for j<=i<=n.\n\
  *\n\
  *  WORK    (workspace) REAL array, dimension (MAX(1,LWORK)),\n\
  *          where LWORK >= N when NORM = 'I' or '1' or 'O'; otherwise,\n\
  *          WORK is not referenced.\n\
  *\n\n\
  * =====================================================================\n\
  *\n"
