Add function to test if type is an integer type

FlexibleSUSY · Feb 6, 2017 · 6167ed7 · 6167ed7
1 parent f437342
commit 6167ed7
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/meta/CConversion.m b/meta/CConversion.m
@@ -13,6 +13,7 @@
 
 ToRealType::usage="converts a given type to a type with real elements";
 
+IsIntegerType::usage="Returns true if given type has integer elements";
 IsRealType::usage="Returns true if given type has real elements";
 
 GreekQ::usage = "Returns true if the given symbol contains one or more
@@ -183,6 +184,9 @@
 ToRealType[CConversion`MatrixType[_,m_,n_]] := CConversion`MatrixType[realScalarCType, m, n];
 ToRealType[CConversion`TensorType[_,n__]] := CConversion`TensorType[realScalarCType, n];
 
+IsIntegerType[_[CConversion`integerScalarCType, ___]] := True;
+IsIntegerType[_] := False;
+
 IsRealType[_[CConversion`realScalarCType, ___]] := True;
 IsRealType[_[CConversion`integerScalarCType, ___]] := True;
 IsRealType[_] := False;