looptools.h

* looptools.h
* the header file for Fortran with all definitions for LoopTools
* this file is part of LoopTools
* last modified 1 Jul 04 th


#ifndef __LOOPTOOLS_H__
#define __LOOPTOOLS_H__

#define cc0 1
#define cc1 2
#define cc2 3
#define cc00 4
#define cc11 5
#define cc12 6
#define cc22 7
#define cc001 8
#define cc002 9
#define cc111 10
#define cc112 11
#define cc122 12
#define cc222 13

#define dd0 1
#define dd1 2
#define dd2 3
#define dd3 4
#define dd00 5
#define dd11 6
#define dd12 7
#define dd13 8
#define dd22 9
#define dd23 10
#define dd33 11
#define dd001 12
#define dd002 13
#define dd003 14
#define dd111 15
#define dd112 16
#define dd113 17
#define dd122 18
#define dd123 19
#define dd133 20
#define dd222 21
#define dd223 22
#define dd233 23
#define dd333 24
#define dd0000 25
#define dd0011 26
#define dd0012 27
#define dd0013 28
#define dd0022 29
#define dd0023 30
#define dd0033 31
#define dd1111 32
#define dd1112 33
#define dd1113 34
#define dd1122 35
#define dd1123 36
#define dd1133 37
#define dd1222 38
#define dd1223 39
#define dd1233 40
#define dd1333 41
#define dd2222 42
#define dd2223 43
#define dd2233 44
#define dd2333 45
#define dd3333 46

* for compatibility:

#define Cval(id, pos) Ccache(pos + id)
#define CCval(id, pos) CCcache(pos + id)
#define Dval(id, pos) Dcache(pos + id)
#define CDval(id, pos) CDcache(pos + id)

#define bcaini ffini
#define bcaexi ffexi

#endif

        double complex Ccache(1)
        common /Cbase/ Ccache

        double complex CCcache(1)
        common /CCbase/ CCcache

        double complex Dcache(1)
        common /Dbase/ Dcache

        double complex CDcache(1)
        common /CDbase/ CDcache

        double complex A0, CA0, B0, CB0, B1, CB1, B00, CB00, B11, CB11
        double complex DB0, CDB0, DB1, CDB1, DB00, CDB00, DB11, CDB11
        double complex C0, CC0, C0i, CC0i, D0, CD0, D0i, CD0i
        integer Cget, CCget, Dget, CDget, getcachelast
        double precision getmudim, getdelta, getlambda

        external A0, CA0, B0, CB0, B1, CB1, B00, CB00, B11, CB11
        external DB0, CDB0, DB1, CDB1, DB00, CDB00, DB11, CDB11
        external C0, CC0, C0i, CC0i, D0, CD0, D0i, CD0i
        external Cget, CCget, Dget, CDget, getcachelast