tebdol

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

tensor.1 (23939B)


      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.9787047008632365d0 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.20527325327037405d0 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.9578628913353311d0 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.28411818939008926d0 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.042137107879126834d0 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.9374649142624261d0 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.3405621217936127d0 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.07142940417810961d0 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.008649621097786664d0 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.9175013181414508d0 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.3848729477384028d0 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.09886525732944978d0 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.016930849754230412d0 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.0017755358723716697d0 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.897962852738286d0 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.42113764801197645d0 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.12491648388732228d0 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.026199948425474434d0 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.0038856719349374728d0 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(-3.644700327121164d-4 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.8788404648008357d0 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.4515089514762437d0 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.1497328379428016d0 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.036263282238829485d0 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.006586860027808615d0 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(8.737539030037548d-4 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(-7.481595265446117d-5 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.8601252938636925d0 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.47729999979383164d0 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.17339347432030774d0 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.04695023927568812d0 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.009847330259786933d0 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.0015998336526491445d0 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(1.9372912120124738d-4 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(-1.535771370697603d-5 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.8418086681423657d0 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.49938912655250467d0 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.1959538459388185d0 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.05812319461799307d0 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.013629664858473884d0 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.00255688308742206d0 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(-3.7920720583035493d-4 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(4.2513145504911015d-5 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(-3.152527830563301d-6 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.8238821005151021d0 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.5184024167298598d0 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.21745915736933064d0 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.06967015562666305d0 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.01789670604397474d0 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.0037536502586685136d0 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(6.428192669955496d-4 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(-8.826350579009114d-5 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(9.2561815096368d-6 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(-6.471296498666845d-7 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.8063372845904634d0 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.5348074358647783d0 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.2379492726679121d0 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.08149846614570525d0 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.02261252991398903d0 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.005195417805483034d0 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(-9.947422525852915d-4 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(1.5771471759246162d-4 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(-2.025669280089076d-5 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(2.0028248766710675d-6 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(-1.32838411381897d-7 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.7891660908588328d0 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.5489660079779718d0 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.2574608173465808d0 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.09353032822616564d0 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.027742663319270246d0 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.006884824441864137d0 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.0014440212389381344d0 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(-2.5597069362888334d-4 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(3.796259866252778d-5 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(-4.597015828758332d-6 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(4.311929924072878d-7 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(-2.7268173941052964d-8 0.0d0))))))))