3
* This file is part of MUMPS 4.9.2, built on Thu Nov 5 07:05:08 UTC 2009
6
* This version of MUMPS is provided to you free of charge. It is public
7
* domain, based on public domain software developed during the Esprit IV
8
* European project PARASOL (1996-1999) by CERFACS, ENSEEIHT-IRIT and RAL.
9
* Since this first public domain version in 1999, the developments are
10
* supported by the following institutions: CERFACS, CNRS, INPT(ENSEEIHT)-
13
* Current development team includes Patrick Amestoy, Alfredo Buttari,
14
* Abdou Guermouche, Jean-Yves L'Excellent, Bora Ucar.
16
* Up-to-date copies of the MUMPS package can be obtained
18
* http://mumps.enseeiht.fr/ or http://graal.ens-lyon.fr/MUMPS
21
* THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY
22
* EXPRESSED OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
25
* User documentation of any code that uses this software can
26
* include this complete notice. You can acknowledge (using
27
* references [1] and [2]) the contribution of this package
28
* in any scientific publication dependent upon the use of the
29
* package. You shall use reasonable endeavours to notify
30
* the authors of the package of this publication.
32
* [1] P. R. Amestoy, I. S. Duff, J. Koster and J.-Y. L'Excellent,
33
* A fully asynchronous multifrontal solver using distributed dynamic
34
* scheduling, SIAM Journal of Matrix Analysis and Applications,
35
* Vol 23, No 1, pp 15-41 (2001).
37
* [2] P. R. Amestoy and A. Guermouche and J.-Y. L'Excellent and
38
* S. Pralet, Hybrid scheduling for the parallel solution of linear
39
* systems. Parallel Computing Vol 32 (2), pp 136-156 (2006).
42
/* Utility to automatically get the sizes of Fortran types */
43
#include "mumps_common.h"
44
#define MUMPS_SIZE_C \
45
F_SYMBOL( size_c, SIZE_C)
46
void MUMPS_CALL MUMPS_SIZE_C(char *a, char *b, int *diff)
48
*diff = (int) (b - a);