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_lSpData2D 6 use class_lData2D 7!======================== 8#define TYPE_NAME lSpData2D 9#define STR_TYPE_NAME "lSpData2D" 10#define TYPE_NAME_ lSpData2D_ 11#define NEW_TYPE newlSpData2D 12#define VAR_TYPE lData2D 13#define VAR_NEW_TYPE newlData2D 14#define VAR_TYPE_TYPE logical 15! Do not define precision 16#include "class_SpData2D.T90" 17!======================== 18end module class_lSpData2D 19 20module class_iSpData2D 21 use class_iData2D 22!======================== 23#define TYPE_NAME iSpData2D 24#define STR_TYPE_NAME "iSpData2D" 25#define TYPE_NAME_ iSpData2D_ 26#define NEW_TYPE newiSpData2D 27#define VAR_TYPE iData2D 28#define VAR_NEW_TYPE newiData2D 29#define VAR_TYPE_TYPE integer 30! Do not define precision 31#include "class_SpData2D.T90" 32!======================== 33end module class_iSpData2D 34 35module class_sSpData2D 36 use class_sData2D 37!======================== 38#define TYPE_NAME sSpData2D 39#define STR_TYPE_NAME "sSpData2D" 40#define TYPE_NAME_ sSpData2D_ 41#define NEW_TYPE newsSpData2D 42#define VAR_TYPE sData2D 43#define VAR_NEW_TYPE newsData2D 44#define VAR_TYPE_TYPE real 45#define PREC sp 46#include "class_SpData2D.T90" 47!======================== 48end module class_sSpData2D 49 50module class_dSpData2D 51 use class_dData2D 52!======================== 53#define TYPE_NAME dSpData2D 54#define STR_TYPE_NAME "dSpData2D" 55#define TYPE_NAME_ dSpData2D_ 56#define NEW_TYPE newdSpData2D 57#define VAR_TYPE dData2D 58#define VAR_NEW_TYPE newdData2D 59#define VAR_TYPE_TYPE real 60#define PREC dp 61#include "class_SpData2D.T90" 62!======================== 63end module class_dSpData2D 64 65module class_cSpData2D 66 use class_cData2D 67!======================== 68#define TYPE_NAME cSpData2D 69#define STR_TYPE_NAME "cSpData2D" 70#define TYPE_NAME_ cSpData2D_ 71#define NEW_TYPE newcSpData2D 72#define VAR_TYPE cData2D 73#define VAR_NEW_TYPE newcData2D 74#define VAR_TYPE_TYPE complex 75#define PREC sp 76#include "class_SpData2D.T90" 77!======================== 78end module class_cSpData2D 79 80module class_zSpData2D 81 use class_zData2D 82!======================== 83#define TYPE_NAME zSpData2D 84#define STR_TYPE_NAME "zSpData2D" 85#define TYPE_NAME_ zSpData2D_ 86#define NEW_TYPE newzSpData2D 87#define VAR_TYPE zData2D 88#define VAR_NEW_TYPE newzData2D 89#define VAR_TYPE_TYPE complex 90#define PREC dp 91#include "class_SpData2D.T90" 92!======================== 93end module class_zSpData2D 94 95