]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Fix a few places where the C++ compiler stumbles.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 20 Aug 2004 19:55:31 +0000 (19:55 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 20 Aug 2004 19:55:31 +0000 (19:55 +0000)
git-svn-id: https://svn.dealii.org/trunk@9558 0785d39b-7218-0410-832d-ea1e28bc413d

17 files changed:
deal.II/contrib/umfpack/AMD/Source/amd_2.c
deal.II/contrib/umfpack/UMFPACK/Source/umf_extend_front.c
deal.II/contrib/umfpack/UMFPACK/Source/umf_grow_front.c
deal.II/contrib/umfpack/UMFPACK/Source/umf_init_front.c
deal.II/contrib/umfpack/UMFPACK/Source/umf_start_front.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_numeric.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_qsymbolic.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_control.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_info.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_matrix.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_numeric.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_perm.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_status.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_symbolic.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_triplet.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_report_vector.c
deal.II/contrib/umfpack/UMFPACK/Source/umfpack_solve.c

index ca1141e2653e9864ff2805bdb0d3ff22b3f38d9a..6de3ec507f90726d77b954aa6dbd0cbac0f3c1a4 100644 (file)
@@ -584,7 +584,7 @@ GLOBAL void AMD_2
     }
     else
     {
-       dense = alpha * sqrt ((double) n) ;
+       dense = (Int) (alpha * sqrt ((double) n)) ;
     }
     dense = MAX (16, dense) ;
     dense = MIN (n,  dense) ;
index 241ed8aa58665ab0b5940a779577ffdc0fab618f..7c14b4648a1f4b584920fc6000b731a70491bf5d 100644 (file)
@@ -127,8 +127,8 @@ GLOBAL Int UMF_extend_front
 
     if (Work->do_grow)
     {
-       fnr2 = UMF_FRONTAL_GROWTH * Work->fnrows_new + 2 ;
-       fnc2 = UMF_FRONTAL_GROWTH * Work->fncols_new + 2 ;
+       fnr2 = (Int) (UMF_FRONTAL_GROWTH * Work->fnrows_new + 2) ;
+       fnc2 = (Int) (UMF_FRONTAL_GROWTH * Work->fncols_new + 2) ;
        if (!UMF_grow_front (Numeric, fnr2, fnc2, Work, 1))
        {
            DEBUGm4 (("out of memory: extend front\n")) ;
index 9ecf67388ae6844e7d9c87c15133aa1036f70b9f..90f1ad02e7cb6d3eb15baf1ef22f089cffbdc1d8 100644 (file)
@@ -115,8 +115,8 @@ GLOBAL Int UMF_grow_front
        /* the desired front size is bigger than the integer maximum */
        /* compute a such that a*a*s < Int_MAX / sizeof (Entry) */
        double a = 0.9 * sqrt ((Int_MAX / sizeof (Entry)) / s) ;
-       fnr2 = MAX (fnr_min, a * fnr2) ;
-       fnc2 = MAX (fnc_min, a * fnc2) ;
+       fnr2 = (Int) MAX (fnr_min, a * fnr2) ;
+       fnc2 = (Int) MAX (fnc_min, a * fnc2) ;
        /* the new frontal size is a*r*a*c = a*a*s */
        newsize = fnr2 * fnc2 ;
        ASSERT (fnr2 >= 0) ;
@@ -188,8 +188,8 @@ GLOBAL Int UMF_grow_front
     /* try again with something smaller */
     while ((fnr2 != fnr_min || fnc2 != fnc_min) && !eloc)
     {
-       fnr2 = MIN (fnr2 - 2, fnr2 * UMF_REALLOC_REDUCTION) ;
-       fnc2 = MIN (fnc2 - 2, fnc2 * UMF_REALLOC_REDUCTION) ;
+       fnr2 = (Int) MIN (fnr2 - 2, fnr2 * UMF_REALLOC_REDUCTION) ;
+       fnc2 = (Int) MIN (fnc2 - 2, fnc2 * UMF_REALLOC_REDUCTION) ;
        ASSERT (fnr_min >= 0) ;
        ASSERT (fnr_min % 2 == 1) ;
        fnr2 = MAX (fnr_min, fnr2) ;
index cce2dd19795e35f86f642eba35e3f80cbd946ab2..ec40ed806b4bdbc7a364c7992f8ff63f20da6b2d 100644 (file)
@@ -65,8 +65,8 @@ GLOBAL Int UMF_init_front
 #endif
     if (Work->do_grow)
     {
-       fnr2 = UMF_FRONTAL_GROWTH * Work->fnrows_new + 2 ;
-       fnc2 = UMF_FRONTAL_GROWTH * Work->fncols_new + 2 ;
+       fnr2 = (Int) (UMF_FRONTAL_GROWTH * Work->fnrows_new + 2) ;
+       fnc2 = (Int) (UMF_FRONTAL_GROWTH * Work->fncols_new + 2) ;
        if (!UMF_grow_front (Numeric, fnr2, fnc2, Work,
            Work->pivrow_in_front ? 2 : 0))
        {
index bb34a9385cb5ee9bc11434d44931a20dade94ed1..e4eac150910ffaf490f11307e95d3e5bd7bc9610 100644 (file)
@@ -159,7 +159,7 @@ GLOBAL Int UMF_start_front    /* returns TRUE if successful, FALSE otherwise */
     if (Numeric->front_alloc_init < 0)
     {
        /* allocate a front of -Numeric->front_alloc_init entries */
-       fsize = -Numeric->front_alloc_init ;
+       fsize = (Int) -Numeric->front_alloc_init ;
        fsize = MAX (1, fsize) ;
     }
     else
@@ -171,7 +171,7 @@ GLOBAL Int UMF_start_front    /* returns TRUE if successful, FALSE otherwise */
        }
        else
        {
-           fsize = Numeric->front_alloc_init * maxfrsize ;
+           fsize = (Int) (Numeric->front_alloc_init * maxfrsize) ;
        }
 
        if (cdeg > 0)
index 9456d911edb90f23b2010542baf9dc5f91a0bad7..a79e8df3a905d3ce71eed46e3ebab9bf3031de93 100644 (file)
@@ -116,7 +116,7 @@ GLOBAL Int UMFPACK_numeric
     alloc_init = GET_CONTROL (UMFPACK_ALLOC_INIT, UMFPACK_DEFAULT_ALLOC_INIT) ;
     front_alloc_init = GET_CONTROL (UMFPACK_FRONT_ALLOC_INIT,
        UMFPACK_DEFAULT_FRONT_ALLOC_INIT) ;
-    scale = GET_CONTROL (UMFPACK_SCALE, UMFPACK_DEFAULT_SCALE) ;
+    scale = (Int) GET_CONTROL (UMFPACK_SCALE, UMFPACK_DEFAULT_SCALE) ;
     droptol = GET_CONTROL (UMFPACK_DROPTOL, UMFPACK_DEFAULT_DROPTOL) ;
 
     relpt   = MAX (0.0, MIN (relpt,  1.0)) ;
index 910a50c1178dbcb25fd50bc4b991bb09920192a9..db1406f13dcc43c6a972d7ebf07493b754ba0da7 100644 (file)
@@ -118,7 +118,7 @@ PRIVATE void do_amd
        AMD_1 (n, Ap, Ai, Q, Qinv, Sdeg, Clen, Ci, amd_Control, amd_Info) ;
 
        /* return estimates computed from AMD on PA+PA' */
-       Symbolic->amd_dmax = amd_Info [AMD_DMAX] ;
+       Symbolic->amd_dmax = (Int) amd_Info [AMD_DMAX] ;
        Symbolic->amd_lunz = 2 * amd_Info [AMD_LNZ] + n ;
        Info [UMFPACK_SYMMETRIC_LUNZ] = Symbolic->amd_lunz ;
        Info [UMFPACK_SYMMETRIC_FLOPS] = DIV_FLOPS * amd_Info [AMD_NDIV] +
@@ -345,8 +345,8 @@ GLOBAL Int UMFPACK_qsymbolic
 
     drow = GET_CONTROL (UMFPACK_DENSE_ROW, UMFPACK_DEFAULT_DENSE_ROW) ;
     dcol = GET_CONTROL (UMFPACK_DENSE_COL, UMFPACK_DEFAULT_DENSE_COL) ;
-    nb = GET_CONTROL (UMFPACK_BLOCK_SIZE, UMFPACK_DEFAULT_BLOCK_SIZE) ;
-    strategy = GET_CONTROL (UMFPACK_STRATEGY, UMFPACK_DEFAULT_STRATEGY) ;
+    nb = (Int) GET_CONTROL (UMFPACK_BLOCK_SIZE, UMFPACK_DEFAULT_BLOCK_SIZE) ;
+    strategy = (Int) GET_CONTROL (UMFPACK_STRATEGY, UMFPACK_DEFAULT_STRATEGY) ;
     tol = GET_CONTROL (UMFPACK_2BY2_TOLERANCE, UMFPACK_DEFAULT_2BY2_TOLERANCE) ;
     scale = GET_CONTROL (UMFPACK_SCALE, UMFPACK_DEFAULT_SCALE) ;
     force_fixQ = GET_CONTROL (UMFPACK_FIXQ, UMFPACK_DEFAULT_FIXQ) ;
@@ -490,7 +490,7 @@ GLOBAL Int UMFPACK_qsymbolic
     Clen = UMF_COLAMD_RECOMMENDED (nz, n_row, n_col) ;
     Clen_analyze = UMF_ANALYZE_CLEN (nz, n_row, n_col, nn) ;
     Clen = MAX (Clen, Clen_analyze) ;
-    Clen_amd = 2.4 * nz + 8 * n_inner ;
+    Clen_amd = (Int) (2.4 * nz + 8 * n_inner) ;
     Clen_amd += MAX (nn, nz) ;                 /* for Ri, in UMF_2by2 */
     Clen = MAX (Clen, Clen_amd) ;
 
@@ -870,7 +870,7 @@ GLOBAL Int UMFPACK_qsymbolic
 #ifdef COMPLEX
                Az,
 #endif
-               tol, scale, Cperm1,
+               tol, (Int) scale, Cperm1,
 #ifndef NDEBUG
                Rperm1,
 #endif
@@ -904,7 +904,7 @@ GLOBAL Int UMFPACK_qsymbolic
        }
        nz_papat = AMD_aat (n2, Rp, Ri, Sdeg, Wq, amd_Info) ;
        sym2 = amd_Info [AMD_SYMMETRY] ;
-       nzd2 = amd_Info [AMD_NZDIAG] ;
+       nzd2 = (Int) amd_Info [AMD_NZDIAG] ;
 
        Info [UMFPACK_2BY2_PATTERN_SYMMETRY] = sym2 ;
        Info [UMFPACK_2BY2_NZ_PA_PLUS_PAT] = nz_papat ;
index fdc614f279bc19ceed3b66e04f31e9a367d2c47a..7431a86226021dec2aff2e5de7269162d524310a 100644 (file)
@@ -25,7 +25,7 @@ GLOBAL void UMFPACK_report_control
     double drow, dcol, relpt, relpt2, alloc_init, front_alloc_init, amd_alpha,
        tol, force_fixQ, droptol, aggr ;
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl < 2)
     {
@@ -96,7 +96,7 @@ GLOBAL void UMFPACK_report_control
     /* block size */
     /* ---------------------------------------------------------------------- */
 
-    nb = GET_CONTROL (UMFPACK_BLOCK_SIZE, UMFPACK_DEFAULT_BLOCK_SIZE) ;
+    nb = (Int) GET_CONTROL (UMFPACK_BLOCK_SIZE, UMFPACK_DEFAULT_BLOCK_SIZE) ;
     nb = MAX (1, nb) ;
     PRINTF (("    "ID": block size for dense matrix kernels: "ID"\n",
        (Int) INDEX (UMFPACK_BLOCK_SIZE), nb)) ;
@@ -105,7 +105,7 @@ GLOBAL void UMFPACK_report_control
     /* strategy */
     /* ---------------------------------------------------------------------- */
 
-    strategy = GET_CONTROL (UMFPACK_STRATEGY, UMFPACK_DEFAULT_STRATEGY) ;
+    strategy = (Int) GET_CONTROL (UMFPACK_STRATEGY, UMFPACK_DEFAULT_STRATEGY) ;
     if (strategy < UMFPACK_STRATEGY_AUTO
      || strategy > UMFPACK_STRATEGY_SYMMETRIC)
     {
@@ -153,7 +153,7 @@ GLOBAL void UMFPACK_report_control
     }
     else
     {
-       s = -alloc_init ;
+       s =(Int) -alloc_init ;
        s = MAX (1, s) ;
        PRINTF (("    "ID": initial allocation (in Units): "ID"\n",
        (Int) INDEX (UMFPACK_ALLOC_INIT), s)) ;
@@ -163,7 +163,7 @@ GLOBAL void UMFPACK_report_control
     /* maximum iterative refinement steps */
     /* ---------------------------------------------------------------------- */
 
-    irstep = GET_CONTROL (UMFPACK_IRSTEP, UMFPACK_DEFAULT_IRSTEP) ;
+    irstep = (Int) GET_CONTROL (UMFPACK_IRSTEP, UMFPACK_DEFAULT_IRSTEP) ;
     irstep = MAX (0, irstep) ;
     PRINTF (("    "ID": max iterative refinement steps: "ID"\n",
        (Int) INDEX (UMFPACK_IRSTEP), irstep)) ;
@@ -230,7 +230,7 @@ GLOBAL void UMFPACK_report_control
     /* scaling */
     /* ---------------------------------------------------------------------- */
 
-    scale = GET_CONTROL (UMFPACK_SCALE, UMFPACK_DEFAULT_SCALE) ;
+    scale = (Int) GET_CONTROL (UMFPACK_SCALE, UMFPACK_DEFAULT_SCALE) ;
     if (scale != UMFPACK_SCALE_NONE && scale != UMFPACK_SCALE_MAX)
     {
        scale = UMFPACK_DEFAULT_SCALE ;
@@ -264,7 +264,7 @@ GLOBAL void UMFPACK_report_control
     }
     else
     {
-       s = -front_alloc_init ;
+       s = (Int) -front_alloc_init ;
        s = MAX (1, s) ;
        PRINTF (("    "ID": initial frontal matrix size (# of Entry's): "ID"\n",
        (Int) INDEX (UMFPACK_FRONT_ALLOC_INIT), s)) ;
index 4c806d2f90071d9c13aec9ae5f6945549deef750..48a66233b53e70fb1d140a506a56d576b25b1164 100644 (file)
@@ -89,7 +89,7 @@ GLOBAL void UMFPACK_report_info
     /* get control settings and status to determine what to print */
     /* ---------------------------------------------------------------------- */
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (!Info || prl < 2)
     {
@@ -264,7 +264,7 @@ GLOBAL void UMFPACK_report_info
        Info [UMFPACK_NEMPTY_ROW]) ;
     PRINT_INFO ("        number of empty columns                    %.0f\n",
        Info [UMFPACK_NEMPTY_COL]) ;
-    is_sym = Info [UMFPACK_S_SYMMETRIC] ;
+    is_sym = (Int) Info [UMFPACK_S_SYMMETRIC] ;
     if (is_sym > 0)
     {
        PRINTF (("        submatrix S square and diagonal preserved\n")) ;
index d5066a4a91b1f890ee678878c89c1fb8a3be124f..90331396e1785a41c943fb0469ea8d0ddb03f179 100644 (file)
@@ -40,7 +40,7 @@ GLOBAL Int UMFPACK_report_matrix
     /* determine the form, and check if inputs exist */
     /* ---------------------------------------------------------------------- */
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl <= 2)
     {
index c66a2c6c89ad9a49953c648fa160f07207d46cb8..ac0d6dd6bcbda271c1ddbda23e75177fd7996dbd 100644 (file)
@@ -56,7 +56,7 @@ GLOBAL Int UMFPACK_report_numeric
        npiv ;
     NumericType *Numeric ;
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl <= 2)
     {
index 2dc4c137795a93b08111b1c1c144a0451d9f8792..11ec1bc366cf5ea0f1591fb0ecf8ebb40c17bb17 100644 (file)
@@ -31,7 +31,7 @@ GLOBAL Int UMFPACK_report_perm
 {
     Int prl, *W, status ;
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl <= 2)
     {
index 06bc9244c9e7e61518995918ff2078faba19b331..2ec58e9ec15f6f9427117d487fb3db5aeb5457d4 100644 (file)
@@ -28,7 +28,7 @@ GLOBAL void UMFPACK_report_status
     /* get control settings and status to determine what to print */
     /* ---------------------------------------------------------------------- */
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl < 1)
     {
index 14503d92807de5b6c2ca59567509b5c4a38babf0..c89248bc4b1a6061f93dc343a2465048f3efd25c 100644 (file)
@@ -37,7 +37,7 @@ GLOBAL Int UMFPACK_report_symbolic
        *Front_leftmostdesc, *Front_parent, done, status1, status2 ;
     SymbolicType *Symbolic ;
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl <= 2)
     {
index d044dad3771fd8dea7b4423b2d6968ff3a3e1d43..06ebbec9cbc16a912c81c2db9fce5075153122b2 100644 (file)
@@ -33,7 +33,7 @@ GLOBAL Int UMFPACK_report_triplet
     Int prl, prl1, k, i, j, do_values ;
     Entry t ;
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl <= 2)
     {
index d5e18a1353ce62c0abc6d54f8c6eca897d9e4d26..3f8a39f3ecd00a4749e93b74a2572ae372e5f63b 100644 (file)
@@ -33,7 +33,7 @@ GLOBAL Int UMFPACK_report_vector
     double *Xz = (double *) NULL ;
 #endif
 
-    prl = GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
+    prl = (Int) GET_CONTROL (UMFPACK_PRL, UMFPACK_DEFAULT_PRL) ;
 
     if (prl <= 2)
     {
index 30bf8121a4e4040a77f96b0402f76cdb82f6bb32..8d13a41fbd57141354b14e225cf9fff472b602cd 100644 (file)
@@ -100,7 +100,7 @@ UMFPACK_solve
     /* get parameters */
     /* ---------------------------------------------------------------------- */
 
-    irstep = GET_CONTROL (UMFPACK_IRSTEP, UMFPACK_DEFAULT_IRSTEP) ;
+    irstep = (Int) GET_CONTROL (UMFPACK_IRSTEP, UMFPACK_DEFAULT_IRSTEP) ;
 
     if (User_Info != (double *) NULL)
     {

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.