1! This file holds all the different modules for sparse vectors 2! This makes editing easier as we do not need to consider *all* files 3 4! A logical sparse array 5module class_lSpData1D 6 use class_lData1D 7!======================== 8#define TYPE_NAME lSpData1D 9#define STR_TYPE_NAME "lSpData1D" 10#define TYPE_NAME_ lSpData1D_ 11#define NEW_TYPE newlSpData1D 12#define VAR_TYPE lData1D 13#define VAR_NEW_TYPE newlData1D 14#define VAR_TYPE_TYPE logical 15! Do not define precision 16#include "class_SpData1D.T90" 17!======================== 18end module class_lSpData1D 19 20module class_iSpData1D 21 use class_iData1D 22!======================== 23#define TYPE_NAME iSpData1D 24#define STR_TYPE_NAME "iSpData1D" 25#define TYPE_NAME_ iSpData1D_ 26#define NEW_TYPE newiSpData1D 27#define VAR_TYPE iData1D 28#define VAR_NEW_TYPE newiData1D 29#define VAR_TYPE_TYPE integer 30#define VAR_INIT 0 31! Do not define precision 32#include "class_SpData1D.T90" 33!======================== 34end module class_iSpData1D 35 36module class_sSpData1D 37 use class_sData1D 38!======================== 39#define TYPE_NAME sSpData1D 40#define STR_TYPE_NAME "sSpData1D" 41#define TYPE_NAME_ sSpData1D_ 42#define NEW_TYPE newsSpData1D 43#define VAR_TYPE sData1D 44#define VAR_NEW_TYPE newsData1D 45#define VAR_TYPE_TYPE real 46#define PREC sp 47#include "class_SpData1D.T90" 48!======================== 49end module class_sSpData1D 50 51module class_dSpData1D 52 use class_dData1D 53!======================== 54#define TYPE_NAME dSpData1D 55#define STR_TYPE_NAME "dSpData1D" 56#define TYPE_NAME_ dSpData1D_ 57#define NEW_TYPE newdSpData1D 58#define VAR_TYPE dData1D 59#define VAR_NEW_TYPE newdData1D 60#define VAR_TYPE_TYPE real 61#define PREC dp 62#include "class_SpData1D.T90" 63!======================== 64end module class_dSpData1D 65 66module class_gSpData1D 67#ifdef GRID_SP 68 use class_sSpData1D, newgSpData1D => newsSpData1D, gSpData1D => sSpData1D 69#else 70 use class_dSpData1D, newgSpData1D => newdSpData1D, gSpData1D => dSpData1D 71#endif 72end module class_gSpData1D 73 74module class_cSpData1D 75 use class_cData1D 76!======================== 77#define TYPE_NAME cSpData1D 78#define STR_TYPE_NAME "cSpData1D" 79#define TYPE_NAME_ cSpData1D_ 80#define NEW_TYPE newcSpData1D 81#define VAR_TYPE cData1D 82#define VAR_NEW_TYPE newcData1D 83#define VAR_TYPE_TYPE complex 84#define PREC sp 85#include "class_SpData1D.T90" 86!======================== 87end module class_cSpData1D 88 89module class_zSpData1D 90 use class_zData1D 91!======================== 92#define TYPE_NAME zSpData1D 93#define STR_TYPE_NAME "zSpData1D" 94#define TYPE_NAME_ zSpData1D_ 95#define NEW_TYPE newzSpData1D 96#define VAR_TYPE zData1D 97#define VAR_NEW_TYPE newzData1D 98#define VAR_TYPE_TYPE complex 99#define PREC dp 100#include "class_SpData1D.T90" 101!======================== 102end module class_zSpData1D 103 104