Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
 Path: blob/devel/fhutiter/src/huti_intdefs.h
3206 views
1


2
/*

3
 Internal definitions for HUTIter library

4


5
 $Id: huti_intdefs.h,v 1.5 2005/06/02 15:35:27 vierinen Exp $

6
*/

7


8
#define AUTOC "!!! This file is generated automatically, do not edit !!!"

9


10
#define _CONCAT(x,y)x/**/y

11


12
#define MAKE_INCLUDE(nsign,inc,incfile)nsign/**/inc incfile

13
#define MAKE_DEFINE(nsign,def,dname,dvalue)nsign/**/def dname dvalue

14


15
# ifdef S_PRE

16
#  define PRECISIONC s

17
#  define PRECISION_COMMENT Single precision

18
#  define F_PRECISION_TYPE real

19
#  define C_PRECISION_TYPE float

20
#  define NORMFUN_PREC_TYPE real

21
#  define MAKE_F_SUBRN( bn1, bn2, bn3, bn4 ) FC_FUNC_(bn2/**/s/**/bn4,bn1/**/S/**/bn3)

22
#  define MAKE_SUBRN( bn1, bn2 )  bn1/**/s/**/bn2

23
#  define PRECD_DUMMY_PCONDFUN  FC_FUNC_(huti_sdummy_pcondfun, HUTI_SDUMMY_PCONDFUN)

24
#  define PRECD_BLAS_DOTPRODFUN  FC_FUNC(sdot,SDOT)

25
#  define PRECD_BLAS_DOTPRODFUN_N FC_FUNC(sdot,SDOT)

26
#  define PRECD_BLAS_NORMFUN FC_FUNC(snrm2,SNRM2)

27
# endif

28


29
# ifdef D_PRE

30
#  define PRECISIONC d

31
#  define PRECISION_COMMENT Double precision

32
#  define F_PRECISION_TYPE double precision

33
#  define C_PRECISION_TYPE double

34
#  define NORMFUN_PREC_TYPE double precision

35
#  define MAKE_SUBRN( bn1, bn2 )  bn1/**/d/**/bn2

36
#  define MAKE_F_SUBRN( bn1, bn2, bn3, bn4 ) FC_FUNC_(bn2/**/d/**/bn4, bn1/**/D/**/bn3)

37
#  define PRECD_DUMMY_PCONDFUN FC_FUNC_(huti_ddummy_pcondfun, HUTI_DDUMMY_PCONDFUN)

38
#  define PRECD_BLAS_DOTPRODFUN FC_FUNC(ddot,DDOT)

39
#  define PRECD_BLAS_DOTPRODFUN_N FC_FUNC(ddot,DDOT)

40
#  define PRECD_BLAS_NORMFUN FC_FUNC(dnrm2,DNRM2)

41
# endif

42


43
# ifdef C_PRE

44
#  define PRECISIONC c

45
#  define PRECISION_COMMENT Complex

46
#  define F_PRECISION_TYPE complex

47
#  define C_PRECISION_TYPE float

48
#  define NORMFUN_PREC_TYPE real

49
#  define MAKE_SUBRN( bn1, bn2 )  bn1/**/c/**/bn2

50
#  define MAKE_F_SUBRN( bn1, bn2, bn3, bn4 ) FC_FUNC_(bn2/**/c/**/bn4, bn1/**/C/**/bn3)

51
#  define PRECD_DUMMY_PCONDFUN FC_FUNC_(huti_cdummy_pcondfun, HUTI_CDUMMY_PCONDFUN)

52
#  define PRECD_BLAS_DOTPRODFUN FC_FUNC(cdotu,CDOTU)

53
#  define PRECD_BLAS_DOTPRODFUN_N FC_FUNC(cdotc,CDOTC)

54
#  define PRECD_BLAS_NORMFUN FC_FUNC(scnrm2,SCNRM2)

55
# endif

56


57
# ifdef Z_PRE

58
#  define PRECISIONC z

59
#  define PRECISION_COMMENT Double complex

60
#  define F_PRECISION_TYPE double complex

61
#  define C_PRECISION_TYPE double

62
#  define NORMFUN_PREC_TYPE double precision

63
#  define MAKE_SUBRN( bn1, bn2 )  bn1/**/z/**/bn2

64
#  define MAKE_F_SUBRN( bn1, bn2, bn3, bn4 ) FC_FUNC_(bn2/**/z/**/bn4,bn1/**/Z/**/bn3)

65
#  define PRECD_DUMMY_PCONDFUN FC_FUNC_(huti_zdummy_pcondfun,HUTI_ZDUMMY_PCONDFUN)

66
#  define PRECD_BLAS_DOTPRODFUN FC_FUNC(zdotu,ZDOTU)

67
#  define PRECD_BLAS_DOTPRODFUN_N FC_FUNC(zdotc,ZDOTC)

68
#  define PRECD_BLAS_NORMFUN FC_FUNC(dznrm2,DZNRM2)

69
# endif

70


71


72