tebdol

Simulation of ultracold atoms in optical lattices
git clone https://miroslavurbanek.com/git/tebdol.git
Log | Files | Refs | README

tensor.2 (23937B)


      1 #S(TENSOR
      2    :INDICES ((#S(SEGMENT :NUMBERS (0) :DIMENSION 1)
      3               #S(SEGMENT :NUMBERS (1) :DIMENSION 1)
      4               #S(SEGMENT :NUMBERS (2) :DIMENSION 1)
      5               #S(SEGMENT :NUMBERS (3) :DIMENSION 1)
      6               #S(SEGMENT :NUMBERS (4) :DIMENSION 1)
      7               #S(SEGMENT :NUMBERS (5) :DIMENSION 1)
      8               #S(SEGMENT :NUMBERS (6) :DIMENSION 1)
      9               #S(SEGMENT :NUMBERS (7) :DIMENSION 1)
     10               #S(SEGMENT :NUMBERS (8) :DIMENSION 1)
     11               #S(SEGMENT :NUMBERS (9) :DIMENSION 1)
     12               #S(SEGMENT :NUMBERS (10) :DIMENSION 1)
     13               #S(SEGMENT :NUMBERS (11) :DIMENSION 1))
     14              (#S(SEGMENT :NUMBERS (0) :DIMENSION 1)
     15               #S(SEGMENT :NUMBERS (1) :DIMENSION 1)
     16               #S(SEGMENT :NUMBERS (2) :DIMENSION 1)
     17               #S(SEGMENT :NUMBERS (3) :DIMENSION 1)
     18               #S(SEGMENT :NUMBERS (4) :DIMENSION 1)
     19               #S(SEGMENT :NUMBERS (5) :DIMENSION 1)
     20               #S(SEGMENT :NUMBERS (6) :DIMENSION 1)
     21               #S(SEGMENT :NUMBERS (7) :DIMENSION 1)
     22               #S(SEGMENT :NUMBERS (8) :DIMENSION 1)
     23               #S(SEGMENT :NUMBERS (9) :DIMENSION 1)
     24               #S(SEGMENT :NUMBERS (10) :DIMENSION 1)
     25               #S(SEGMENT :NUMBERS (11) :DIMENSION 1)
     26               #S(SEGMENT :NUMBERS (12) :DIMENSION 1)
     27               #S(SEGMENT :NUMBERS (13) :DIMENSION 1)
     28               #S(SEGMENT :NUMBERS (14) :DIMENSION 1))
     29              (#S(SEGMENT :NUMBERS (-11) :DIMENSION 1)
     30               #S(SEGMENT :NUMBERS (-10) :DIMENSION 1)
     31               #S(SEGMENT :NUMBERS (-9) :DIMENSION 1)
     32               #S(SEGMENT :NUMBERS (-8) :DIMENSION 1)
     33               #S(SEGMENT :NUMBERS (-7) :DIMENSION 1)
     34               #S(SEGMENT :NUMBERS (-6) :DIMENSION 1)
     35               #S(SEGMENT :NUMBERS (-5) :DIMENSION 1)
     36               #S(SEGMENT :NUMBERS (-4) :DIMENSION 1)
     37               #S(SEGMENT :NUMBERS (-3) :DIMENSION 1)
     38               #S(SEGMENT :NUMBERS (-2) :DIMENSION 1)
     39               #S(SEGMENT :NUMBERS (-1) :DIMENSION 1)
     40               #S(SEGMENT :NUMBERS (0) :DIMENSION 1)))
     41    :SECTORS (#S(SECTOR
     42                 :NUMBERS ((11) (0) (-11))
     43                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     44                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     45                                      '(((#C(1.0d0 0.0d0))))))
     46              #S(SECTOR
     47                 :NUMBERS ((10) (0) (-10))
     48                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     49                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     50                                      '(((#C(0.95499659519749d0 0.0d0))))))
     51              #S(SECTOR
     52                 :NUMBERS ((10) (1) (-11))
     53                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     54                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     55                                      '(((#C(-0.29661676142996596d0 0.0d0))))))
     56              #S(SECTOR
     57                 :NUMBERS ((9) (0) (-9))
     58                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     59                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     60                                      '(((#C(0.9120184965501859d0 0.0d0))))))
     61              #S(SECTOR
     62                 :NUMBERS ((9) (1) (-10))
     63                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     64                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     65                                      '(((#C(-0.4006014444311467d0 0.0d0))))))
     66              #S(SECTOR
     67                 :NUMBERS ((9) (2) (-11))
     68                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     69                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     70                                      '(((#C(0.0879815018627077d0 0.0d0))))))
     71              #S(SECTOR
     72                 :NUMBERS ((8) (0) (-8))
     73                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     74                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     75                                      '(((#C(0.8709745584912049d0 0.0d0))))))
     76              #S(SECTOR
     77                 :NUMBERS ((8) (1) (-9))
     78                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     79                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     80                                      '(((#C(-0.46855433941842006d0 0.0d0))))))
     81              #S(SECTOR
     82                 :NUMBERS ((8) (2) (-10))
     83                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     84                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     85                                      '(((#C(0.14553043372455662d0 0.0d0))))))
     86              #S(SECTOR
     87                 :NUMBERS ((8) (3) (-11))
     88                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     89                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     90                                      '(((#C(-0.026096787793924214d0 0.0d0))))))
     91              #S(SECTOR
     92                 :NUMBERS ((7) (0) (-7))
     93                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     94                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
     95                                      '(((#C(0.8317777373036627d0 0.0d0))))))
     96              #S(SECTOR
     97                 :NUMBERS ((7) (1) (-8))
     98                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
     99                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    100                                      '(((#C(-0.5166913087806254d0 0.0d0))))))
    101              #S(SECTOR
    102                 :NUMBERS ((7) (2) (-9))
    103                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    104                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    105                                      '(((#C(0.19654891293954774d0 0.0d0))))))
    106              #S(SECTOR
    107                 :NUMBERS ((7) (3) (-10))
    108                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    109                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    110                                      '(((#C(-0.049844687278912475d0 0.0d0))))))
    111              #S(SECTOR
    112                 :NUMBERS ((7) (4) (-11))
    113                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    114                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    115                                      '(((#C(0.007740744725983628d0 0.0d0))))))
    116              #S(SECTOR
    117                 :NUMBERS ((6) (0) (-6))
    118                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    119                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    120                                      '(((#C(0.7943449065199377d0 0.0d0))))))
    121              #S(SECTOR
    122                 :NUMBERS ((6) (1) (-7))
    123                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    124                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    125                                      '(((#C(-0.55168094837721d0 0.0d0))))))
    126              #S(SECTOR
    127                 :NUMBERS ((6) (2) (-8))
    128                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    129                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    130                                      '(((#C(0.24232423216674884d0 0.0d0))))))
    131              #S(SECTOR
    132                 :NUMBERS ((6) (3) (-9))
    133                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    134                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    135                                      '(((#C(-0.0752645908746838d0 0.0d0))))))
    136              #S(SECTOR
    137                 :NUMBERS ((6) (4) (-10))
    138                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    139                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    140                                      '(((#C(0.016529875179597985d0 0.0d0))))))
    141              #S(SECTOR
    142                 :NUMBERS ((6) (5) (-11))
    143                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    144                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    145                                      '(((#C(-0.0022960346823632793d0 0.0d0))))))
    146              #S(SECTOR
    147                 :NUMBERS ((5) (0) (-5))
    148                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    149                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    150                                      '(((#C(0.7585966806306483d0 0.0d0))))))
    151              #S(SECTOR
    152                 :NUMBERS ((5) (1) (-6))
    153                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    154                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    155                                      '(((#C(-0.5771390134793496d0 0.0d0))))))
    156              #S(SECTOR
    157                 :NUMBERS ((5) (2) (-7))
    158                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    159                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    160                                      '(((#C(0.28342900931932874d0 0.0d0))))))
    161              #S(SECTOR
    162                 :NUMBERS ((5) (3) (-8))
    163                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    164                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    165                                      '(((#C(-0.10165003389649006d0 0.0d0))))))
    166              #S(SECTOR
    167                 :NUMBERS ((5) (4) (-9))
    168                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    169                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    170                                      '(((#C(0.027342110065038623d0 0.0d0))))))
    171              #S(SECTOR
    172                 :NUMBERS ((5) (5) (-10))
    173                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    174                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    175                                      '(((#C(-0.005371009196544363d0 0.0d0))))))
    176              #S(SECTOR
    177                 :NUMBERS ((5) (6) (-11))
    178                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    179                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    180                                      '(((#C(6.810424021284067d-4 0.0d0))))))
    181              #S(SECTOR
    182                 :NUMBERS ((4) (0) (-4))
    183                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    184                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    185                                      '(((#C(-0.7244572467288362d0 0.0d0))))))
    186              #S(SECTOR
    187                 :NUMBERS ((4) (1) (-5))
    188                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    189                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    190                                      '(((#C(-0.5953270975530697d0 0.0d0))))))
    191              #S(SECTOR
    192                 :NUMBERS ((4) (2) (-6))
    193                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    194                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    195                                      '(((#C(0.3202654872092606d0 0.0d0))))))
    196              #S(SECTOR
    197                 :NUMBERS ((4) (3) (-7))
    198                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    199                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    200                                      '(((#C(-0.1284187317049895d0 0.0d0))))))
    201              #S(SECTOR
    202                 :NUMBERS ((4) (4) (-8))
    203                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    204                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    205                                      '(((#C(0.03988616163958182d0 0.0d0))))))
    206              #S(SECTOR
    207                 :NUMBERS ((4) (5) (-9))
    208                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    209                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    210                                      '(((#C(-0.009596033251807023d0 0.0d0))))))
    211              #S(SECTOR
    212                 :NUMBERS ((4) (6) (-10))
    213                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    214                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    215                                      '(((#C(0.0017207786117460417d0 0.0d0))))))
    216              #S(SECTOR
    217                 :NUMBERS ((4) (7) (-11))
    218                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    219                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    220                                      '(((#C(-2.0200858797170262d-4 0.0d0))))))
    221              #S(SECTOR
    222                 :NUMBERS ((3) (0) (-3))
    223                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    224                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    225                                      '(((#C(0.6918542037312535d0 0.0d0))))))
    226              #S(SECTOR
    227                 :NUMBERS ((3) (1) (-4))
    228                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    229                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    230                                      '(((#C(0.6077898560493493d0 0.0d0))))))
    231              #S(SECTOR
    232                 :NUMBERS ((3) (2) (-5))
    233                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    234                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    235                                      '(((#C(0.3531679886690307d0 0.0d0))))))
    236              #S(SECTOR
    237                 :NUMBERS ((3) (3) (-6))
    238                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    239                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    240                                      '(((#C(-0.15512799936763522d0 0.0d0))))))
    241              #S(SECTOR
    242                 :NUMBERS ((3) (4) (-7))
    243                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    244                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    245                                      '(((#C(0.05386901905491613d0 0.0d0))))))
    246              #S(SECTOR
    247                 :NUMBERS ((3) (5) (-8))
    248                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    249                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    250                                      '(((#C(-0.014965041845989971d0 0.0d0))))))
    251              #S(SECTOR
    252                 :NUMBERS ((3) (6) (-9))
    253                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    254                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    255                                      '(((#C(0.003286675453276846d0 0.0d0))))))
    256              #S(SECTOR
    257                 :NUMBERS ((3) (7) (-10))
    258                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    259                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    260                                      '(((#C(-5.456531338432231d-4 0.0d0))))))
    261              #S(SECTOR
    262                 :NUMBERS ((3) (8) (-11))
    263                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    264                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    265                                      '(((#C(5.9919132692876076d-5 0.0d0))))))
    266              #S(SECTOR
    267                 :NUMBERS ((2) (0) (-2))
    268                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    269                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    270                                      '(((#C(0.6607184088356366d0 0.0d0))))))
    271              #S(SECTOR
    272                 :NUMBERS ((2) (1) (-3))
    273                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    274                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    275                                      '(((#C(-0.6156466658745982d0 0.0d0))))))
    276              #S(SECTOR
    277                 :NUMBERS ((2) (2) (-4))
    278                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    279                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    280                                      '(((#C(-0.38243302609745294d0 0.0d0))))))
    281              #S(SECTOR
    282                 :NUMBERS ((2) (3) (-5))
    283                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    284                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    285                                      '(((#C(-0.1814419248943177d0 0.0d0))))))
    286              #S(SECTOR
    287                 :NUMBERS ((2) (4) (-6))
    288                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    289                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    290                                      '(((#C(0.06902034784165256d0 0.0d0))))))
    291              #S(SECTOR
    292                 :NUMBERS ((2) (5) (-7))
    293                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    294                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    295                                      '(((#C(-0.021437346079604045d0 0.0d0))))))
    296              #S(SECTOR
    297                 :NUMBERS ((2) (6) (-8))
    298                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    299                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    300                                      '(((#C(0.005436498517552895d0 0.0d0))))))
    301              #S(SECTOR
    302                 :NUMBERS ((2) (7) (-9))
    303                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    304                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    305                                      '(((#C(-0.00110541343089004d0 0.0d0))))))
    306              #S(SECTOR
    307                 :NUMBERS ((2) (8) (-10))
    308                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    309                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    310                                      '(((#C(1.7166770479818628d-4 0.0d0))))))
    311              #S(SECTOR
    312                 :NUMBERS ((2) (9) (-11))
    313                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    314                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    315                                      '(((#C(-1.7773019260092227d-5 0.0d0))))))
    316              #S(SECTOR
    317                 :NUMBERS ((1) (0) (-1))
    318                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    319                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    320                                      '(((#C(-0.6309838308883596d0 0.0d0))))))
    321              #S(SECTOR
    322                 :NUMBERS ((1) (1) (-2))
    323                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    324                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    325                                      '(((#C(-0.6197436708790708d0 0.0d0))))))
    326              #S(SECTOR
    327                 :NUMBERS ((1) (2) (-3))
    328                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    329                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    330                                      '(((#C(0.4083308752210376d0 0.0d0))))))
    331              #S(SECTOR
    332                 :NUMBERS ((1) (3) (-4))
    333                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    334                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    335                                      '(((#C(0.20710493510596645d0 0.0d0))))))
    336              #S(SECTOR
    337                 :NUMBERS ((1) (4) (-5))
    338                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    339                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    340                                      '(((#C(0.08509486271430801d0 0.0d0))))))
    341              #S(SECTOR
    342                 :NUMBERS ((1) (5) (-6))
    343                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    344                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    345                                      '(((#C(-0.028952618039078518d0 0.0d0))))))
    346              #S(SECTOR
    347                 :NUMBERS ((1) (6) (-7))
    348                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    349                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    350                                      '(((#C(0.008209016012211117d0 0.0d0))))))
    351              #S(SECTOR
    352                 :NUMBERS ((1) (7) (-8))
    353                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    354                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    355                                      '(((#C(-0.0019273737284790078d0 0.0d0))))))
    356              #S(SECTOR
    357                 :NUMBERS ((1) (8) (-9))
    358                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    359                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    360                                      '(((#C(3.665856234884255d-4 0.0d0))))))
    361              #S(SECTOR
    362                 :NUMBERS ((1) (9) (-10))
    363                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    364                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    365                                      '(((#C(-5.3673885940053415d-5 0.0d0))))))
    366              #S(SECTOR
    367                 :NUMBERS ((1) (10) (-11))
    368                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    369                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    370                                      '(((#C(5.27177552878122d-6 0.0d0))))))
    371              #S(SECTOR
    372                 :NUMBERS ((0) (0) (0))
    373                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    374                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    375                                      '(((#C(0.6025874103514528d0 0.0d0))))))
    376              #S(SECTOR
    377                 :NUMBERS ((0) (1) (-1))
    378                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    379                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    380                                      '(((#C(0.6207407633780375d0 0.0d0))))))
    381              #S(SECTOR
    382                 :NUMBERS ((0) (2) (-2))
    383                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    384                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    385                                      '(((#C(0.431111026044287d0 0.0d0))))))
    386              #S(SECTOR
    387                 :NUMBERS ((0) (3) (-3))
    388                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    389                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    390                                      '(((#C(-0.23192289308083258d0 0.0d0))))))
    391              #S(SECTOR
    392                 :NUMBERS ((0) (4) (-4))
    393                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    394                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    395                                      '(((#C(-0.10187144996729895d0 0.0d0))))))
    396              #S(SECTOR
    397                 :NUMBERS ((0) (5) (-5))
    398                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    399                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    400                                      '(((#C(-0.037437805325840144d0 0.0d0))))))
    401              #S(SECTOR
    402                 :NUMBERS ((0) (6) (-6))
    403                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    404                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    405                                      '(((#C(0.011627979755783033d0 0.0d0))))))
    406              #S(SECTOR
    407                 :NUMBERS ((0) (7) (-7))
    408                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    409                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    410                                      '(((#C(-0.0030523484215162133d0 0.0d0))))))
    411              #S(SECTOR
    412                 :NUMBERS ((0) (8) (-8))
    413                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    414                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    415                                      '(((#C(6.703675283014891d-4 0.0d0))))))
    416              #S(SECTOR
    417                 :NUMBERS ((0) (9) (-9))
    418                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    419                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    420                                      '(((#C(-1.2021155357089781d-4 0.0d0))))))
    421              #S(SECTOR
    422                 :NUMBERS ((0) (10) (-10))
    423                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    424                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    425                                      '(((#C(1.6697639471013695d-5 0.0d0))))))
    426              #S(SECTOR
    427                 :NUMBERS ((0) (11) (-11))
    428                 :ARRAY #.(MAKE-ARRAY '(1 1 1) :ELEMENT-TYPE
    429                                      '(COMPLEX DOUBLE-FLOAT) :INITIAL-CONTENTS
    430                                      '(((#C(-1.5636970411847528d-6 0.0d0))))))))