1 /* 2 * Copyright (c) 2017, NVIDIA CORPORATION. All rights reserved. 3 * 4 * Licensed under the Apache License, Version 2.0 (the "License"); 5 * you may not use this file except in compliance with the License. 6 * You may obtain a copy of the License at 7 * 8 * http://www.apache.org/licenses/LICENSE-2.0 9 * 10 * Unless required by applicable law or agreed to in writing, software 11 * distributed under the License is distributed on an "AS IS" BASIS, 12 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 13 * See the License for the specific language governing permissions and 14 * limitations under the License. 15 * 16 */ 17 18 /** 19 * \file 20 * \brief dattype.h - definitions of symbols for data types. 21 */ 22 23 #define TY_WORD 1 24 #define TY_DWORD 2 25 #define TY_HOLL 3 26 #define TY_BINT 4 27 #define TY_SINT 5 28 #define TY_INT 6 29 #define TY_REAL 7 30 #define TY_DBLE 8 31 #define TY_QUAD 9 32 #define TY_CMPLX 10 33 #define TY_DCMPLX 11 34 #define TY_BLOG 12 35 #define TY_SLOG 13 36 #define TY_LOG 14 37 #define TY_CHAR 15 38 #define TY_NCHAR 16 39 #define TY_INT8 17 40 #define TY_LOG8 18 41 42 #define Is_complex(parm) ((parm) == TY_CMPLX || (parm) == TY_DCMPLX) 43 #define Is_real(parm) ((parm) == TY_REAL || (parm) == TY_DBLE) 44 45 #define REAL_ALLOWED(param) ((Is_complex(param)) || Is_real(param)) 46