1 * 2 * $Id$ 3 * 4 c #define USESTDIN 5 #ifdef USESTDIN 6 #define INUNIT * 7 #else 8 #define INUNIT 5 9 #endif 10 11 #ifdef HERM 12 #ifdef TPUTER_NODES 13 #define DATATYPE complex 14 #define DATASIZE 8 15 #else 16 #define DATATYPE complex*16 17 #define DATASIZE 16 18 #endif 19 #define CONVERT dcmplx 20 #define SUMFUNC sumdc 21 #define INITI2 chiti2 22 #define INITV2 chitv2 23 #define SPLITV2 chspl2 24 #else 25 #define DATATYPE DoublePrecision precision 26 #define DATASIZE 8 27 #define CONVERT dble 28 #define SUMFUNC sumd 29 #define INITI2 rsiti2 30 #define INITV2 rsitv2 31 #define SPLITV2 rsspl2 32 #endif 33 #ifdef HERM 34 #define INTERACT1 chint1 35 #define INTERACT2 chint2 36 #define SCROLLFUNC chscr 37 #else 38 #define INTERACT1 rsint1 39 #define INTERACT2 rsint2 40 #define SCROLLFUNC rsscr 41 #endif 42 #ifdef HERM 43 #define KMLENGTH 4 44 #define DATAFUNC chdata 45 #define EVALFUNC cheval 46 #define EVECFUNC chevec 47 #define EVEC2FUNC chevc2 48 #define REDISTFUNC chrdst 49 #define INITFUNC chinit 50 #define INIT2FUNC chini2 51 #define JACFUNC chjac 52 #define JAC2FUNC chjac2 53 #define MEMFUNC chmem 54 #define MSWEEPFUNC chmswp 55 #define INT1FUNC chint1 56 #define INT2FUNC chint2 57 #else 58 #define KMLENGTH 3 59 #define DATAFUNC rsdata 60 #define EVALFUNC rseval 61 #define EVECFUNC rsevec 62 #define EVEC2FUNC rsevc2 63 #define REDISTFUNC rsrdst 64 #define INITFUNC rsinit 65 #define INIT2FUNC rsini2 66 #define JACFUNC rsjac 67 #define JAC2FUNC rsjac2 68 #define MEMFUNC rsmem 69 #define MSWEEPFUNC rsmswp 70 #define INT1FUNC rsint1 71 #define INT2FUNC rsint2 72 #endif 73