nucleic2: removed unused files & simplify Makefile
authorMichal Terepeta <michal.terepeta@gmail.com>
Tue, 14 Feb 2017 22:00:02 +0000 (17:00 -0500)
committerBen Gamari <ben@smart-cactus.org>
Tue, 14 Feb 2017 22:00:02 +0000 (17:00 -0500)
Summary:
This commit does a few small cleanups:
- Remove the unused files (implementations in C, SML, etc.).
- Move the paper to a new `paper` subdirectory.
- Remove unnecessary things from the Makefile.

The last one will make it easier to move to a Shake-based build
system.

Signed-off-by: Michal Terepeta <michal.terepeta@gmail.com>
Test Plan: compile & run nofib

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: dfeuer

Differential Revision: https://phabricator.haskell.org/D3041

spectral/hartel/nucleic2/Makefile
spectral/hartel/nucleic2/README
spectral/hartel/nucleic2/nucleic2.c [deleted file]
spectral/hartel/nucleic2/nucleic2.m [deleted file]
spectral/hartel/nucleic2/nucleic2.scm [deleted file]
spectral/hartel/nucleic2/nucleic2.sml [deleted file]
spectral/hartel/nucleic2/paper/paper.bbl [moved from spectral/hartel/nucleic2/paper.bbl with 100% similarity]
spectral/hartel/nucleic2/paper/paper.ps [moved from spectral/hartel/nucleic2/paper.ps with 100% similarity]
spectral/hartel/nucleic2/paper/paper.tex [moved from spectral/hartel/nucleic2/paper.tex with 100% similarity]

index 5e6f3b4..7c22016 100644 (file)
@@ -1,11 +1,7 @@
 TOP = ../../..
 include $(TOP)/mk/boilerplate.mk
 
-# Without this we get the C version too!
-SRCS = $(wildcard *.lhs *.hs)
-
 SRC_HC_OPTS += -cpp -fglasgow-exts
-SRC_RUNTEST_OPTS += -o1 nucleic2.stdout1 -o1 nucleic2.stdout2
 
 include $(TOP)/mk/target.mk
 
index aefd7e8..87a5215 100644 (file)
@@ -1,3 +1,13 @@
+UPDATE(2017.01)
+---------------
+
+To simplify the setup of the test, we have removed some of the unnecessary code
+(e.g., non-Haskell versions of the program). Please see:
+https://phabricator.haskell.org/D3041
+
+ORIGINAL README
+---------------
+
 This is the README file for the "nucleic2" benchmark program.
 
 The following files are contained in the tar file associated with
diff --git a/spectral/hartel/nucleic2/nucleic2.c b/spectral/hartel/nucleic2/nucleic2.c
deleted file mode 100644 (file)
index ac492a3..0000000
+++ /dev/null
@@ -1,3321 +0,0 @@
-/*
-
-  File: "nucleic2.c"
-
-  Author: Marc Feeley (feeley@iro.umontreal.ca)
-
-  Last modified: June 6, 1994
-
-  This program is a modified version of the program described in the paper:
-
-    M. Feeley, M. Turcotte, G. Lapalme, "Using Multilisp for Solving
-    Constraint Satisfaction Problems: an Application to Nucleic Acid 3D
-    Structure Determination" published in the journal "Lisp and Symbolic
-    Computation".
-
-  The differences between this program and the original are described in
-  the paper:
-
-    "???" published in the "Journal of Functional Programming".
-
-*/
-
-/*
-  Define the symbol "lazy" if you want lazy computation.
-*/
-
-#define not_lazy
-
-#include <stdio.h>
-#include <math.h>
-
-/*---------------------------------------------------------------------------*/
-
-/* MATH UTILITIES */
-
-typedef double FLOAT; /* define precision of floating point numbers */
-
-#ifndef M_PI
-#define M_PI   3.14159265358979323846
-#endif
-#ifndef M_PI_2
-#define M_PI_2 1.57079632679489661923
-#endif
-
-/*---------------------------------------------------------------------------*/
-
-/* POINTS */
-
-struct struct_pt
-{
-  FLOAT x, y, z;
-#ifdef lazy
-  int relative; /* true if point remains to be converted to absolute coord. */
-#endif
-};
-
-typedef struct struct_pt *pt;
-
-#define make_pt(a,b,c,p){(p)->x=(a);(p)->y=(b);(p)->z=(c);}
-
-void pt_sub( p1, p2, p3 )
-pt p1, p2, p3;
-{
-  p3->x = p1->x - p2->x;
-  p3->y = p1->y - p2->y;
-  p3->z = p1->z - p2->z;
-}
-
-FLOAT pt_dist( p1, p2 )
-pt p1, p2;
-{
-  FLOAT dx = p1->x - p2->x, dy = p1->y - p2->y, dz = p1->z - p2->z;
-  return sqrt( dx*dx + dy*dy + dz*dz );
-}
-
-FLOAT pt_phi( p )
-pt p;
-{
-  FLOAT x = p->x, y = p->y, z = p->z;
-  FLOAT b = atan2( x, z );
-  return atan2( cos(b)*z + sin(b)*x, y );
-}
-
-FLOAT pt_theta( p )
-pt p;
-{
-  return atan2( p->x, p->z );
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* COORDINATE TRANSFORMATIONS */
-
-struct struct_tfo
-{
-  FLOAT m[4][3];
-};
-
-typedef struct struct_tfo *tfo;
-
-#define make_tfo(a,b,c,d,e,f,g,h,i,x,y,z,t)\
-{\
-(t)->m[0][0]=(a);(t)->m[0][1]=(b);(t)->m[0][2]=(c);\
-(t)->m[1][0]=(d);(t)->m[1][1]=(e);(t)->m[1][2]=(f);\
-(t)->m[2][0]=(g);(t)->m[2][1]=(h);(t)->m[2][2]=(i);\
-(t)->m[3][0]=(x);(t)->m[3][1]=(y);(t)->m[3][2]=(z);\
-}
-
-struct struct_tfo tfo_id =
-{
-  1.0, 0.0, 0.0,
-  0.0, 1.0, 0.0,
-  0.0, 0.0, 1.0,
-  0.0, 0.0, 0.0
-};
-
-void tfo_apply( t, p1, p2 )
-tfo t;
-pt p1, p2;
-{
-  FLOAT x = p1->x, y = p1->y, z = p1->z;
-  p2->x = x*t->m[0][0] + y*t->m[1][0] + z*t->m[2][0] + t->m[3][0];
-  p2->y = x*t->m[0][1] + y*t->m[1][1] + z*t->m[2][1] + t->m[3][1];
-  p2->z = x*t->m[0][2] + y*t->m[1][2] + z*t->m[2][2] + t->m[3][2];
-}
-
-void tfo_combine( a, b, t )
-tfo a, b, t;
-{
-  FLOAT x, y, z;
-
-  x = a->m[0][0];  y = a->m[0][1];  z = a->m[0][2];
-  t->m[0][0] = x*b->m[0][0] + y*b->m[1][0] + z*b->m[2][0];
-  t->m[0][1] = x*b->m[0][1] + y*b->m[1][1] + z*b->m[2][1];
-  t->m[0][2] = x*b->m[0][2] + y*b->m[1][2] + z*b->m[2][2];
-
-  x = a->m[1][0];  y = a->m[1][1];  z = a->m[1][2];
-  t->m[1][0] = x*b->m[0][0] + y*b->m[1][0] + z*b->m[2][0];
-  t->m[1][1] = x*b->m[0][1] + y*b->m[1][1] + z*b->m[2][1];
-  t->m[1][2] = x*b->m[0][2] + y*b->m[1][2] + z*b->m[2][2];
-
-  x = a->m[2][0];  y = a->m[2][1];  z = a->m[2][2];
-  t->m[2][0] = x*b->m[0][0] + y*b->m[1][0] + z*b->m[2][0];
-  t->m[2][1] = x*b->m[0][1] + y*b->m[1][1] + z*b->m[2][1];
-  t->m[2][2] = x*b->m[0][2] + y*b->m[1][2] + z*b->m[2][2];
-
-  x = a->m[3][0];  y = a->m[3][1];  z = a->m[3][2];
-  t->m[3][0] = x*b->m[0][0] + y*b->m[1][0] + z*b->m[2][0] + b->m[3][0];
-  t->m[3][1] = x*b->m[0][1] + y*b->m[1][1] + z*b->m[2][1] + b->m[3][1];
-  t->m[3][2] = x*b->m[0][2] + y*b->m[1][2] + z*b->m[2][2] + b->m[3][2];
-}
-
-void tfo_inv_ortho( t1, t2 )
-tfo t1, t2;
-{
-  FLOAT tx = t1->m[3][0], ty = t1->m[3][1], tz = t1->m[3][2];
-  t2->m[0][0] = t1->m[0][0];
-  t2->m[0][1] = t1->m[1][0];
-  t2->m[0][2] = t1->m[2][0];
-  t2->m[1][0] = t1->m[0][1];
-  t2->m[1][1] = t1->m[1][1];
-  t2->m[1][2] = t1->m[2][1];
-  t2->m[2][0] = t1->m[0][2];
-  t2->m[2][1] = t1->m[1][2];
-  t2->m[2][2] = t1->m[2][2];
-  t2->m[3][0] = -(tx*t1->m[0][0] + ty*t1->m[0][1] + tz*t1->m[0][2]);
-  t2->m[3][1] = -(tx*t1->m[1][0] + ty*t1->m[1][1] + tz*t1->m[1][2]);
-  t2->m[3][2] = -(tx*t1->m[2][0] + ty*t1->m[2][1] + tz*t1->m[2][2]);
-}
-
-void tfo_align( p1, p2, p3, t )
-pt p1, p2, p3;
-tfo t;
-{
-  FLOAT x1 = p1->x, y1 = p1->y, z1 = p1->z;
-  FLOAT x3 = p3->x, y3 = p3->y, z3 = p3->z;
-  FLOAT x31 = x3-x1, y31 = y3-y1, z31 = z3-z1;
-  struct struct_pt rotpy;
-  pt_sub( p2, p1, &rotpy );
-  {
-    FLOAT phi = pt_phi( &rotpy ), theta = pt_theta( &rotpy );
-    FLOAT sinp = sin(phi), sint = sin(theta);
-    FLOAT cosp = cos(phi), cost = cos(theta);
-    FLOAT sinpsint = sinp*sint;
-    FLOAT sinpcost = sinp*cost;
-    FLOAT cospsint = cosp*sint;
-    FLOAT cospcost = cosp*cost;
-    struct struct_pt rotpz;
-    make_pt( cost*x31 - sint*z31,
-             sinpsint*x31 + cosp*y31 + sinpcost*z31,
-             cospsint*x31 - sinp*y31 + cospcost*z31,
-             &rotpz );
-    {
-      FLOAT rho = pt_theta( &rotpz );
-      FLOAT cosr = cos( rho ), sinr = sin( rho );
-      FLOAT x = -x1*cost + z1*sint;
-      FLOAT y = -x1*sinpsint - y1*cosp - z1*sinpcost;
-      FLOAT z = -x1*cospsint + y1*sinp - z1*cospcost;
-      t->m[0][0] = cost*cosr - cospsint*sinr;
-      t->m[0][1] = sinpsint;
-      t->m[0][2] = cost*sinr + cospsint*cosr;
-      t->m[1][0] = sinp*sinr;
-      t->m[1][1] = cosp;
-      t->m[1][2] = -sinp*cosr;
-      t->m[2][0] = -sint*cosr - cospcost*sinr;
-      t->m[2][1] = sinpcost;
-      t->m[2][2] = -sint*sinr + cospcost*cosr;
-      t->m[3][0] = x*cosr - z*sinr;
-      t->m[3][1] = y;
-      t->m[3][2] = x*sinr + z*cosr;
-    }
-  }
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* NUCLEIC ACID CONFORMATIONS DATA BASE */
-
-struct struct_A
-{
-  struct struct_pt n6, n7, n9, c8, h2, h61, h62, h8;
-};
-
-struct struct_C
-{
-  struct struct_pt n4, o2, h41, h42, h5, h6;
-};
-
-struct struct_G
-{
-  struct struct_pt n2, n7, n9, c8, o6, h1, h21, h22, h8;
-};
-
-struct struct_U
-{
-  struct struct_pt o2, o4, h3, h5, h6;
-};
-
-struct struct_nuc
-{
-  char type; /* 'A', 'C', 'G', or 'U' */
-  struct struct_tfo
-    dgf_base_tfo, p_o3_275_tfo, p_o3_180_tfo, p_o3_60_tfo;
-  struct struct_pt
-    p, o1p, o2p, o5_, c5_, h5_, h5__, c4_, h4_, o4_, c1_, h1_,
-    c2_, h2__, o2_, h2_, c3_, h3_, o3_, n1, n3, c2, c4, c5, c6;
-  union
-  {
-    struct struct_A A;
-    struct struct_C C;
-    struct struct_G G;
-    struct struct_U U;
-  } _;
-};
-
-typedef struct struct_nuc *nuc;
-
-struct struct_nuc rA01, rA02, rA03, rA04, rA05, rA06, rA07, rA08, rA09, rA10;
-struct struct_nuc rC01, rC02, rC03, rC04, rC05, rC06, rC07, rC08, rC09, rC10;
-struct struct_nuc rG01, rG02, rG03, rG04, rG05, rG06, rG07, rG08, rG09, rG10;
-struct struct_nuc rU01, rU02, rU03, rU04, rU05, rU06, rU07, rU08, rU09, rU10;
-struct struct_nuc *rAs[11], rA;
-struct struct_nuc *rCs[11], rC;
-struct struct_nuc *rGs[11], rG, rG_;
-struct struct_nuc *rUs[11], rU, rU_;
-
-void init_A()
-{
-  rA.type = 'A';
-  make_tfo(  -0.0018,  -0.8207,   0.5714,
-              0.2679,  -0.5509,  -0.7904,
-              0.9634,   0.1517,   0.2209,
-              0.0073,   8.4030,   0.6232, &rA.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA.p         );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA.o1p       );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA.o2p       );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA.o5_       );
-  make_pt(    5.4550,   8.2120,  -2.8810, &rA.c5_       );
-  make_pt(    5.4546,   8.8508,  -1.9978, &rA.h5_       );
-  make_pt(    5.7588,   8.6625,  -3.8259, &rA.h5__      );
-  make_pt(    6.4970,   7.1480,  -2.5980, &rA.c4_       );
-  make_pt(    7.4896,   7.5919,  -2.5214, &rA.h4_       );
-  make_pt(    6.1630,   6.4860,  -1.3440, &rA.o4_       );
-  make_pt(    6.5400,   5.1200,  -1.4190, &rA.c1_       );
-  make_pt(    7.2763,   4.9681,  -0.6297, &rA.h1_       );
-  make_pt(    7.1940,   4.8830,  -2.7770, &rA.c2_       );
-  make_pt(    6.8667,   3.9183,  -3.1647, &rA.h2__      );
-  make_pt(    8.5860,   5.0910,  -2.6140, &rA.o2_       );
-  make_pt(    8.9510,   4.7626,  -1.7890, &rA.h2_       );
-  make_pt(    6.5720,   6.0040,  -3.6090, &rA.c3_       );
-  make_pt(    5.5636,   5.7066,  -3.8966, &rA.h3_       );
-  make_pt(    7.3801,   6.3562,  -4.7350, &rA.o3_       );
-  make_pt(    4.7150,   0.4910,  -0.1360, &rA.n1        );
-  make_pt(    6.3490,   2.1730,  -0.6020, &rA.n3        );
-  make_pt(    5.9530,   0.9650,  -0.2670, &rA.c2        );
-  make_pt(    5.2900,   2.9790,  -0.8260, &rA.c4        );
-  make_pt(    3.9720,   2.6390,  -0.7330, &rA.c5        );
-  make_pt(    3.6770,   1.3160,  -0.3660, &rA.c6        );
-  make_pt(    2.4280,   0.8450,  -0.2360, &rA._.A.n6    );
-  make_pt(    3.1660,   3.7290,  -1.0360, &rA._.A.n7    );
-  make_pt(    5.3170,   4.2990,  -1.1930, &rA._.A.n9    );
-  make_pt(    4.0100,   4.6780,  -1.2990, &rA._.A.c8    );
-  make_pt(    6.6890,   0.1903,  -0.0518, &rA._.A.h2    );
-  make_pt(    1.6470,   1.4460,  -0.4040, &rA._.A.h61   );
-  make_pt(    2.2780,  -0.1080,  -0.0280, &rA._.A.h62   );
-  make_pt(    3.4421,   5.5744,  -1.5482, &rA._.A.h8    );
-
-  rA01.type = 'A';
-  make_tfo(  -0.0043,  -0.8175,   0.5759,
-              0.2617,  -0.5567,  -0.7884,
-              0.9651,   0.1473,   0.2164,
-              0.0359,   8.3929,   0.5532, &rA01.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA01.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA01.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA01.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA01.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA01.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA01.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA01.o5_     );
-  make_pt(    5.4352,   8.2183,  -2.7757, &rA01.c5_     );
-  make_pt(    5.3830,   8.7883,  -1.8481, &rA01.h5_     );
-  make_pt(    5.7729,   8.7436,  -3.6691, &rA01.h5__    );
-  make_pt(    6.4830,   7.1518,  -2.5252, &rA01.c4_     );
-  make_pt(    7.4749,   7.5972,  -2.4482, &rA01.h4_     );
-  make_pt(    6.1626,   6.4620,  -1.2827, &rA01.o4_     );
-  make_pt(    6.5431,   5.0992,  -1.3905, &rA01.c1_     );
-  make_pt(    7.2871,   4.9328,  -0.6114, &rA01.h1_     );
-  make_pt(    7.1852,   4.8935,  -2.7592, &rA01.c2_     );
-  make_pt(    6.8573,   3.9363,  -3.1645, &rA01.h2__    );
-  make_pt(    8.5780,   5.1025,  -2.6046, &rA01.o2_     );
-  make_pt(    8.9516,   4.7577,  -1.7902, &rA01.h2_     );
-  make_pt(    6.5522,   6.0300,  -3.5612, &rA01.c3_     );
-  make_pt(    5.5420,   5.7356,  -3.8459, &rA01.h3_     );
-  make_pt(    7.3487,   6.4089,  -4.6867, &rA01.o3_     );
-  make_pt(    4.7442,   0.4514,  -0.1390, &rA01.n1      );
-  make_pt(    6.3687,   2.1459,  -0.5926, &rA01.n3      );
-  make_pt(    5.9795,   0.9335,  -0.2657, &rA01.c2      );
-  make_pt(    5.3052,   2.9471,  -0.8125, &rA01.c4      );
-  make_pt(    3.9891,   2.5987,  -0.7230, &rA01.c5      );
-  make_pt(    3.7016,   1.2717,  -0.3647, &rA01.c6      );
-  make_pt(    2.4553,   0.7925,  -0.2390, &rA01._.A.n6  );
-  make_pt(    3.1770,   3.6859,  -1.0198, &rA01._.A.n7  );
-  make_pt(    5.3247,   4.2695,  -1.1710, &rA01._.A.n9  );
-  make_pt(    4.0156,   4.6415,  -1.2759, &rA01._.A.c8  );
-  make_pt(    6.7198,   0.1618,  -0.0547, &rA01._.A.h2  );
-  make_pt(    1.6709,   1.3900,  -0.4039, &rA01._.A.h61 );
-  make_pt(    2.3107,  -0.1627,  -0.0373, &rA01._.A.h62 );
-  make_pt(    3.4426,   5.5361,  -1.5199, &rA01._.A.h8  );
-
-  rA02.type = 'A';
-  make_tfo(   0.5566,   0.0449,   0.8296,
-              0.5125,   0.7673,  -0.3854,
-             -0.6538,   0.6397,   0.4041,
-             -9.1161,  -3.7679,  -2.9968, &rA02.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA02.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA02.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA02.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA02.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA02.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA02.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA02.o5_     );
-  make_pt(    4.5778,   6.6594,  -4.0364, &rA02.c5_     );
-  make_pt(    4.9220,   7.1963,  -4.9204, &rA02.h5_     );
-  make_pt(    3.7996,   5.9091,  -4.1764, &rA02.h5__    );
-  make_pt(    5.7873,   5.8869,  -3.5482, &rA02.c4_     );
-  make_pt(    6.0405,   5.0875,  -4.2446, &rA02.h4_     );
-  make_pt(    6.9135,   6.8036,  -3.4310, &rA02.o4_     );
-  make_pt(    7.7293,   6.4084,  -2.3392, &rA02.c1_     );
-  make_pt(    8.7078,   6.1815,  -2.7624, &rA02.h1_     );
-  make_pt(    7.1305,   5.1418,  -1.7347, &rA02.c2_     );
-  make_pt(    7.2040,   5.1982,  -0.6486, &rA02.h2__    );
-  make_pt(    7.7417,   4.0392,  -2.3813, &rA02.o2_     );
-  make_pt(    8.6785,   4.1443,  -2.5630, &rA02.h2_     );
-  make_pt(    5.6666,   5.2728,  -2.1536, &rA02.c3_     );
-  make_pt(    5.1747,   5.9805,  -1.4863, &rA02.h3_     );
-  make_pt(    4.9997,   4.0086,  -2.1973, &rA02.o3_     );
-  make_pt(   10.3245,   8.5459,   1.5467, &rA02.n1      );
-  make_pt(    9.8051,   6.9432,  -0.1497, &rA02.n3      );
-  make_pt(   10.5175,   7.4328,   0.8408, &rA02.c2      );
-  make_pt(    8.7523,   7.7422,  -0.4228, &rA02.c4      );
-  make_pt(    8.4257,   8.9060,   0.2099, &rA02.c5      );
-  make_pt(    9.2665,   9.3242,   1.2540, &rA02.c6      );
-  make_pt(    9.0664,  10.4462,   1.9610, &rA02._.A.n6  );
-  make_pt(    7.2750,   9.4537,  -0.3428, &rA02._.A.n7  );
-  make_pt(    7.7962,   7.5519,  -1.3859, &rA02._.A.n9  );
-  make_pt(    6.9479,   8.6157,  -1.2771, &rA02._.A.c8  );
-  make_pt(   11.4063,   6.9047,   1.1859, &rA02._.A.h2  );
-  make_pt(    8.2845,  11.0341,   1.7552, &rA02._.A.h61 );
-  make_pt(    9.6584,  10.6647,   2.7198, &rA02._.A.h62 );
-  make_pt(    6.0430,   8.9853,  -1.7594, &rA02._.A.h8  );
-
-  rA03.type = 'A';
-  make_tfo(  -0.5021,   0.0731,   0.8617,
-             -0.8112,   0.3054,  -0.4986,
-             -0.2996,  -0.9494,  -0.0940,
-              6.4273,  -5.1944,  -3.7807, &rA03.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA03.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA03.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA03.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA03.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA03.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA03.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA03.o5_     );
-  make_pt(    4.1214,   6.7116,  -1.9049, &rA03.c5_     );
-  make_pt(    3.3465,   5.9610,  -2.0607, &rA03.h5_     );
-  make_pt(    4.0789,   7.2928,  -0.9837, &rA03.h5__    );
-  make_pt(    5.4170,   5.9293,  -1.8186, &rA03.c4_     );
-  make_pt(    5.4506,   5.3400,  -0.9023, &rA03.h4_     );
-  make_pt(    5.5067,   5.0417,  -2.9703, &rA03.o4_     );
-  make_pt(    6.8650,   4.9152,  -3.3612, &rA03.c1_     );
-  make_pt(    7.1090,   3.8577,  -3.2603, &rA03.h1_     );
-  make_pt(    7.7152,   5.7282,  -2.3894, &rA03.c2_     );
-  make_pt(    8.5029,   6.2356,  -2.9463, &rA03.h2__    );
-  make_pt(    8.1036,   4.8568,  -1.3419, &rA03.o2_     );
-  make_pt(    8.3270,   3.9651,  -1.6184, &rA03.h2_     );
-  make_pt(    6.7003,   6.7565,  -1.8911, &rA03.c3_     );
-  make_pt(    6.5898,   7.5329,  -2.6482, &rA03.h3_     );
-  make_pt(    7.0505,   7.2878,  -0.6105, &rA03.o3_     );
-  make_pt(    9.6740,   4.7656,  -7.6614, &rA03.n1      );
-  make_pt(    9.0739,   4.3013,  -5.3941, &rA03.n3      );
-  make_pt(    9.8416,   4.2192,  -6.4581, &rA03.c2      );
-  make_pt(    7.9885,   5.0632,  -5.6446, &rA03.c4      );
-  make_pt(    7.6822,   5.6856,  -6.8194, &rA03.c5      );
-  make_pt(    8.5831,   5.5215,  -7.8840, &rA03.c6      );
-  make_pt(    8.4084,   6.0747,  -9.0933, &rA03._.A.n6  );
-  make_pt(    6.4857,   6.3816,  -6.7035, &rA03._.A.n7  );
-  make_pt(    6.9740,   5.3703,  -4.7760, &rA03._.A.n9  );
-  make_pt(    6.1133,   6.1613,  -5.4808, &rA03._.A.c8  );
-  make_pt(   10.7627,   3.6375,  -6.4220, &rA03._.A.h2  );
-  make_pt(    7.6031,   6.6390,  -9.2733, &rA03._.A.h61 );
-  make_pt(    9.1004,   5.9708,  -9.7893, &rA03._.A.h62 );
-  make_pt(    5.1705,   6.6830,  -5.3167, &rA03._.A.h8  );
-
-  rA04.type = 'A';
-  make_tfo(  -0.5426,  -0.8175,   0.1929,
-              0.8304,  -0.5567,  -0.0237,
-              0.1267,   0.1473,   0.9809,
-             -0.5075,   8.3929,   0.2229, &rA04.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA04.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA04.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA04.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA04.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA04.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA04.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA04.o5_     );
-  make_pt(    5.4352,   8.2183,  -2.7757, &rA04.c5_     );
-  make_pt(    5.3830,   8.7883,  -1.8481, &rA04.h5_     );
-  make_pt(    5.7729,   8.7436,  -3.6691, &rA04.h5__    );
-  make_pt(    6.4830,   7.1518,  -2.5252, &rA04.c4_     );
-  make_pt(    7.4749,   7.5972,  -2.4482, &rA04.h4_     );
-  make_pt(    6.1626,   6.4620,  -1.2827, &rA04.o4_     );
-  make_pt(    6.5431,   5.0992,  -1.3905, &rA04.c1_     );
-  make_pt(    7.2871,   4.9328,  -0.6114, &rA04.h1_     );
-  make_pt(    7.1852,   4.8935,  -2.7592, &rA04.c2_     );
-  make_pt(    6.8573,   3.9363,  -3.1645, &rA04.h2__    );
-  make_pt(    8.5780,   5.1025,  -2.6046, &rA04.o2_     );
-  make_pt(    8.9516,   4.7577,  -1.7902, &rA04.h2_     );
-  make_pt(    6.5522,   6.0300,  -3.5612, &rA04.c3_     );
-  make_pt(    5.5420,   5.7356,  -3.8459, &rA04.h3_     );
-  make_pt(    7.3487,   6.4089,  -4.6867, &rA04.o3_     );
-  make_pt(    3.6343,   2.6680,   2.0783, &rA04.n1      );
-  make_pt(    5.4505,   3.9805,   1.2446, &rA04.n3      );
-  make_pt(    4.7540,   3.3816,   2.1851, &rA04.c2      );
-  make_pt(    4.8805,   3.7951,   0.0354, &rA04.c4      );
-  make_pt(    3.7416,   3.0925,  -0.2305, &rA04.c5      );
-  make_pt(    3.0873,   2.4980,   0.8606, &rA04.c6      );
-  make_pt(    1.9600,   1.7805,   0.7462, &rA04._.A.n6  );
-  make_pt(    3.4605,   3.1184,  -1.5906, &rA04._.A.n7  );
-  make_pt(    5.3247,   4.2695,  -1.1710, &rA04._.A.n9  );
-  make_pt(    4.4244,   3.8244,  -2.0953, &rA04._.A.c8  );
-  make_pt(    5.0814,   3.4352,   3.2234, &rA04._.A.h2  );
-  make_pt(    1.5423,   1.6454,  -0.1520, &rA04._.A.h61 );
-  make_pt(    1.5716,   1.3398,   1.5392, &rA04._.A.h62 );
-  make_pt(    4.2675,   3.8876,  -3.1721, &rA04._.A.h8  );
-
-  rA05.type = 'A';
-  make_tfo(  -0.5891,   0.0449,   0.8068,
-              0.5375,   0.7673,   0.3498,
-             -0.6034,   0.6397,  -0.4762,
-             -0.3019,  -3.7679,  -9.5913, &rA05.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA05.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA05.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA05.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA05.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA05.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA05.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA05.o5_     );
-  make_pt(    4.5778,   6.6594,  -4.0364, &rA05.c5_     );
-  make_pt(    4.9220,   7.1963,  -4.9204, &rA05.h5_     );
-  make_pt(    3.7996,   5.9091,  -4.1764, &rA05.h5__    );
-  make_pt(    5.7873,   5.8869,  -3.5482, &rA05.c4_     );
-  make_pt(    6.0405,   5.0875,  -4.2446, &rA05.h4_     );
-  make_pt(    6.9135,   6.8036,  -3.4310, &rA05.o4_     );
-  make_pt(    7.7293,   6.4084,  -2.3392, &rA05.c1_     );
-  make_pt(    8.7078,   6.1815,  -2.7624, &rA05.h1_     );
-  make_pt(    7.1305,   5.1418,  -1.7347, &rA05.c2_     );
-  make_pt(    7.2040,   5.1982,  -0.6486, &rA05.h2__    );
-  make_pt(    7.7417,   4.0392,  -2.3813, &rA05.o2_     );
-  make_pt(    8.6785,   4.1443,  -2.5630, &rA05.h2_     );
-  make_pt(    5.6666,   5.2728,  -2.1536, &rA05.c3_     );
-  make_pt(    5.1747,   5.9805,  -1.4863, &rA05.h3_     );
-  make_pt(    4.9997,   4.0086,  -2.1973, &rA05.o3_     );
-  make_pt(   10.2594,  10.6774,  -1.0056, &rA05.n1      );
-  make_pt(    9.7528,   8.7080,  -2.2631, &rA05.n3      );
-  make_pt(   10.4471,   9.7876,  -1.9791, &rA05.c2      );
-  make_pt(    8.7271,   8.5575,  -1.3991, &rA05.c4      );
-  make_pt(    8.4100,   9.3803,  -0.3580, &rA05.c5      );
-  make_pt(    9.2294,  10.5030,  -0.1574, &rA05.c6      );
-  make_pt(    9.0349,  11.3951,   0.8250, &rA05._.A.n6  );
-  make_pt(    7.2891,   8.9068,   0.3121, &rA05._.A.n7  );
-  make_pt(    7.7962,   7.5519,  -1.3859, &rA05._.A.n9  );
-  make_pt(    6.9702,   7.8292,  -0.3353, &rA05._.A.c8  );
-  make_pt(   11.3132,  10.0537,  -2.5851, &rA05._.A.h2  );
-  make_pt(    8.2741,  11.2784,   1.4629, &rA05._.A.h61 );
-  make_pt(    9.6733,  12.1368,   0.9529, &rA05._.A.h62 );
-  make_pt(    6.0888,   7.3990,   0.1403, &rA05._.A.h8  );
-
-  rA06.type = 'A';
-  make_tfo(  -0.9815,   0.0731,  -0.1772,
-              0.1912,   0.3054,  -0.9328,
-             -0.0141,  -0.9494,  -0.3137,
-              5.7506,  -5.1944,   4.7470, &rA06.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rA06.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rA06.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rA06.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rA06.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rA06.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rA06.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rA06.o5_     );
-  make_pt(    4.1214,   6.7116,  -1.9049, &rA06.c5_     );
-  make_pt(    3.3465,   5.9610,  -2.0607, &rA06.h5_     );
-  make_pt(    4.0789,   7.2928,  -0.9837, &rA06.h5__    );
-  make_pt(    5.4170,   5.9293,  -1.8186, &rA06.c4_     );
-  make_pt(    5.4506,   5.3400,  -0.9023, &rA06.h4_     );
-  make_pt(    5.5067,   5.0417,  -2.9703, &rA06.o4_     );
-  make_pt(    6.8650,   4.9152,  -3.3612, &rA06.c1_     );
-  make_pt(    7.1090,   3.8577,  -3.2603, &rA06.h1_     );
-  make_pt(    7.7152,   5.7282,  -2.3894, &rA06.c2_     );
-  make_pt(    8.5029,   6.2356,  -2.9463, &rA06.h2__    );
-  make_pt(    8.1036,   4.8568,  -1.3419, &rA06.o2_     );
-  make_pt(    8.3270,   3.9651,  -1.6184, &rA06.h2_     );
-  make_pt(    6.7003,   6.7565,  -1.8911, &rA06.c3_     );
-  make_pt(    6.5898,   7.5329,  -2.6482, &rA06.h3_     );
-  make_pt(    7.0505,   7.2878,  -0.6105, &rA06.o3_     );
-  make_pt(    6.6624,   3.5061,  -8.2986, &rA06.n1      );
-  make_pt(    6.5810,   3.2570,  -5.9221, &rA06.n3      );
-  make_pt(    6.5151,   2.8263,  -7.1625, &rA06.c2      );
-  make_pt(    6.8364,   4.5817,  -5.8882, &rA06.c4      );
-  make_pt(    7.0116,   5.4064,  -6.9609, &rA06.c5      );
-  make_pt(    6.9173,   4.8260,  -8.2361, &rA06.c6      );
-  make_pt(    7.0668,   5.5163,  -9.3763, &rA06._.A.n6  );
-  make_pt(    7.2573,   6.7070,  -6.5394, &rA06._.A.n7  );
-  make_pt(    6.9740,   5.3703,  -4.7760, &rA06._.A.n9  );
-  make_pt(    7.2238,   6.6275,  -5.2453, &rA06._.A.c8  );
-  make_pt(    6.3146,   1.7741,  -7.3641, &rA06._.A.h2  );
-  make_pt(    7.2568,   6.4972,  -9.3456, &rA06._.A.h61 );
-  make_pt(    7.0437,   5.0478, -10.2446, &rA06._.A.h62 );
-  make_pt(    7.4108,   7.6227,  -4.8418, &rA06._.A.h8  );
-
-  rA07.type = 'A';
-  make_tfo(   0.2379,   0.1310,  -0.9624,
-             -0.5876,  -0.7696,  -0.2499,
-             -0.7734,   0.6249,  -0.1061,
-             30.9870, -26.9344,  42.6416, &rA07.dgf_base_tfo );
-  make_tfo(   0.7529,   0.1548,   0.6397,
-              0.2952,  -0.9481,  -0.1180,
-              0.5882,   0.2777,  -0.7595,
-            -58.8919, -11.3095,   6.0866, &rA07.p_o3_275_tfo );
-  make_tfo(  -0.0239,   0.9667,  -0.2546,
-              0.9731,  -0.0359,  -0.2275,
-             -0.2290,  -0.2532,  -0.9399,
-              3.5401, -29.7913,  52.2796, &rA07.p_o3_180_tfo );
-  make_tfo(  -0.8912,  -0.4531,   0.0242,
-             -0.1183,   0.1805,  -0.9764,
-              0.4380,  -0.8730,  -0.2145,
-             19.9023,  54.8054,  15.2799, &rA07.p_o3_60_tfo  );
-  make_pt(   41.8210,   8.3880,  43.5890, &rA07.p       );
-  make_pt(   42.5400,   8.0450,  44.8330, &rA07.o1p     );
-  make_pt(   42.2470,   9.6920,  42.9910, &rA07.o2p     );
-  make_pt(   40.2550,   8.2030,  43.7340, &rA07.o5_     );
-  make_pt(   39.3505,   8.4697,  42.6565, &rA07.c5_     );
-  make_pt(   39.1377,   7.5433,  42.1230, &rA07.h5_     );
-  make_pt(   39.7203,   9.3119,  42.0717, &rA07.h5__    );
-  make_pt(   38.0405,   8.9195,  43.2869, &rA07.c4_     );
-  make_pt(   37.3687,   9.3036,  42.5193, &rA07.h4_     );
-  make_pt(   37.4319,   7.8146,  43.9387, &rA07.o4_     );
-  make_pt(   37.1959,   8.1354,  45.3237, &rA07.c1_     );
-  make_pt(   36.1788,   8.5202,  45.3970, &rA07.h1_     );
-  make_pt(   38.1721,   9.2328,  45.6504, &rA07.c2_     );
-  make_pt(   39.1555,   8.7939,  45.8188, &rA07.h2__    );
-  make_pt(   37.7862,  10.0617,  46.7013, &rA07.o2_     );
-  make_pt(   37.3087,   9.6229,  47.4092, &rA07.h2_     );
-  make_pt(   38.1844,  10.0268,  44.3367, &rA07.c3_     );
-  make_pt(   39.1578,  10.5054,  44.2289, &rA07.h3_     );
-  make_pt(   37.0547,  10.9127,  44.3441, &rA07.o3_     );
-  make_pt(   34.8811,   4.2072,  47.5784, &rA07.n1      );
-  make_pt(   35.1084,   6.1336,  46.1818, &rA07.n3      );
-  make_pt(   34.4108,   5.1360,  46.7207, &rA07.c2      );
-  make_pt(   36.3908,   6.1224,  46.6053, &rA07.c4      );
-  make_pt(   36.9819,   5.2334,  47.4697, &rA07.c5      );
-  make_pt(   36.1786,   4.1985,  48.0035, &rA07.c6      );
-  make_pt(   36.6103,   3.2749,  48.8452, &rA07._.A.n6  );
-  make_pt(   38.3236,   5.5522,  47.6595, &rA07._.A.n7  );
-  make_pt(   37.3887,   7.0024,  46.2437, &rA07._.A.n9  );
-  make_pt(   38.5055,   6.6096,  46.9057, &rA07._.A.c8  );
-  make_pt(   33.3553,   5.0152,  46.4771, &rA07._.A.h2  );
-  make_pt(   37.5730,   3.2804,  49.1507, &rA07._.A.h61 );
-  make_pt(   35.9775,   2.5638,  49.1828, &rA07._.A.h62 );
-  make_pt(   39.5461,   6.9184,  47.0041, &rA07._.A.h8  );
-
-  rA08.type = 'A';
-  make_tfo(   0.1084,  -0.0895,  -0.9901,
-              0.9789,  -0.1638,   0.1220,
-             -0.1731,  -0.9824,   0.0698,
-             -2.9039,  47.2655,  33.0094, &rA08.dgf_base_tfo );
-  make_tfo(   0.7529,   0.1548,   0.6397,
-              0.2952,  -0.9481,  -0.1180,
-              0.5882,   0.2777,  -0.7595,
-            -58.8919, -11.3095,   6.0866, &rA08.p_o3_275_tfo );
-  make_tfo(  -0.0239,   0.9667,  -0.2546,
-              0.9731,  -0.0359,  -0.2275,
-             -0.2290,  -0.2532,  -0.9399,
-              3.5401, -29.7913,  52.2796, &rA08.p_o3_180_tfo );
-  make_tfo(  -0.8912,  -0.4531,   0.0242,
-             -0.1183,   0.1805,  -0.9764,
-              0.4380,  -0.8730,  -0.2145,
-             19.9023,  54.8054,  15.2799, &rA08.p_o3_60_tfo  );
-  make_pt(   41.8210,   8.3880,  43.5890, &rA08.p       );
-  make_pt(   42.5400,   8.0450,  44.8330, &rA08.o1p     );
-  make_pt(   42.2470,   9.6920,  42.9910, &rA08.o2p     );
-  make_pt(   40.2550,   8.2030,  43.7340, &rA08.o5_     );
-  make_pt(   39.4850,   8.9301,  44.6977, &rA08.c5_     );
-  make_pt(   39.0638,   9.8199,  44.2296, &rA08.h5_     );
-  make_pt(   40.0757,   9.0713,  45.6029, &rA08.h5__    );
-  make_pt(   38.3102,   8.0414,  45.0789, &rA08.c4_     );
-  make_pt(   37.7842,   8.4637,  45.9351, &rA08.h4_     );
-  make_pt(   37.4200,   7.9453,  43.9769, &rA08.o4_     );
-  make_pt(   37.2249,   6.5609,  43.6273, &rA08.c1_     );
-  make_pt(   36.3360,   6.2168,  44.1561, &rA08.h1_     );
-  make_pt(   38.4347,   5.8414,  44.1590, &rA08.c2_     );
-  make_pt(   39.2688,   5.9974,  43.4749, &rA08.h2__    );
-  make_pt(   38.2344,   4.4907,  44.4348, &rA08.o2_     );
-  make_pt(   37.6374,   4.0386,  43.8341, &rA08.h2_     );
-  make_pt(   38.6926,   6.6079,  45.4637, &rA08.c3_     );
-  make_pt(   39.7585,   6.5640,  45.6877, &rA08.h3_     );
-  make_pt(   37.8238,   6.0705,  46.4723, &rA08.o3_     );
-  make_pt(   33.9162,   6.2598,  39.7758, &rA08.n1      );
-  make_pt(   34.6709,   6.5759,  42.0215, &rA08.n3      );
-  make_pt(   33.7257,   6.5186,  41.0858, &rA08.c2      );
-  make_pt(   35.8935,   6.3324,  41.5018, &rA08.c4      );
-  make_pt(   36.2105,   6.0601,  40.1932, &rA08.c5      );
-  make_pt(   35.1538,   6.0151,  39.2537, &rA08.c6      );
-  make_pt(   35.3088,   5.7642,  37.9649, &rA08._.A.n6  );
-  make_pt(   37.5818,   5.8677,  40.0507, &rA08._.A.n7  );
-  make_pt(   37.0932,   6.3197,  42.1810, &rA08._.A.n9  );
-  make_pt(   38.0509,   6.0354,  41.2635, &rA08._.A.c8  );
-  make_pt(   32.6830,   6.6898,  41.3532, &rA08._.A.h2  );
-  make_pt(   36.2305,   5.5855,  37.5925, &rA08._.A.h61 );
-  make_pt(   34.5056,   5.7512,  37.3528, &rA08._.A.h62 );
-  make_pt(   39.1318,   5.8993,  41.2285, &rA08._.A.h8  );
-
-  rA09.type = 'A';
-  make_tfo(   0.8467,   0.4166,  -0.3311,
-             -0.3962,   0.9089,   0.1303,
-              0.3552,   0.0209,   0.9346,
-            -42.7319, -26.6223, -29.8163, &rA09.dgf_base_tfo );
-  make_tfo(   0.7529,   0.1548,   0.6397,
-              0.2952,  -0.9481,  -0.1180,
-              0.5882,   0.2777,  -0.7595,
-            -58.8919, -11.3095,   6.0866, &rA09.p_o3_275_tfo );
-  make_tfo(  -0.0239,   0.9667,  -0.2546,
-              0.9731,  -0.0359,  -0.2275,
-             -0.2290,  -0.2532,  -0.9399,
-              3.5401, -29.7913,  52.2796, &rA09.p_o3_180_tfo );
-  make_tfo(  -0.8912,  -0.4531,   0.0242,
-             -0.1183,   0.1805,  -0.9764,
-              0.4380,  -0.8730,  -0.2145,
-             19.9023,  54.8054,  15.2799, &rA09.p_o3_60_tfo  );
-  make_pt(   41.8210,   8.3880,  43.5890, &rA09.p       );
-  make_pt(   42.5400,   8.0450,  44.8330, &rA09.o1p     );
-  make_pt(   42.2470,   9.6920,  42.9910, &rA09.o2p     );
-  make_pt(   40.2550,   8.2030,  43.7340, &rA09.o5_     );
-  make_pt(   39.3505,   8.4697,  42.6565, &rA09.c5_     );
-  make_pt(   39.1377,   7.5433,  42.1230, &rA09.h5_     );
-  make_pt(   39.7203,   9.3119,  42.0717, &rA09.h5__    );
-  make_pt(   38.0405,   8.9195,  43.2869, &rA09.c4_     );
-  make_pt(   37.6479,   8.1347,  43.9335, &rA09.h4_     );
-  make_pt(   38.2691,  10.0933,  44.0524, &rA09.o4_     );
-  make_pt(   37.3999,  11.1488,  43.5973, &rA09.c1_     );
-  make_pt(   36.5061,  11.1221,  44.2206, &rA09.h1_     );
-  make_pt(   37.0364,  10.7838,  42.1836, &rA09.c2_     );
-  make_pt(   37.8636,  11.0489,  41.5252, &rA09.h2__    );
-  make_pt(   35.8275,  11.3133,  41.7379, &rA09.o2_     );
-  make_pt(   35.6214,  12.1896,  42.0714, &rA09.h2_     );
-  make_pt(   36.9316,   9.2556,  42.2837, &rA09.c3_     );
-  make_pt(   37.1778,   8.8260,  41.3127, &rA09.h3_     );
-  make_pt(   35.6285,   8.9334,  42.7926, &rA09.o3_     );
-  make_pt(   38.1482,  15.2833,  46.4641, &rA09.n1      );
-  make_pt(   37.3641,  13.0968,  45.9007, &rA09.n3      );
-  make_pt(   37.5032,  14.1288,  46.7300, &rA09.c2      );
-  make_pt(   37.9570,  13.3377,  44.7113, &rA09.c4      );
-  make_pt(   38.6397,  14.4660,  44.3267, &rA09.c5      );
-  make_pt(   38.7473,  15.5229,  45.2609, &rA09.c6      );
-  make_pt(   39.3720,  16.6649,  45.0297, &rA09._.A.n6  );
-  make_pt(   39.1079,  14.3351,  43.0223, &rA09._.A.n7  );
-  make_pt(   38.0132,  12.4868,  43.6280, &rA09._.A.n9  );
-  make_pt(   38.7058,  13.1402,  42.6620, &rA09._.A.c8  );
-  make_pt(   37.0731,  14.0857,  47.7306, &rA09._.A.h2  );
-  make_pt(   39.8113,  16.8281,  44.1350, &rA09._.A.h61 );
-  make_pt(   39.4100,  17.3741,  45.7478, &rA09._.A.h62 );
-  make_pt(   39.0412,  12.9660,  41.6397, &rA09._.A.h8  );
-
-  rA10.type = 'A';
-  make_tfo(   0.7063,   0.6317,  -0.3196,
-             -0.0403,  -0.4149,  -0.9090,
-             -0.7068,   0.6549,  -0.2676,
-              6.4402, -52.1496,  30.8246, &rA10.dgf_base_tfo );
-  make_tfo(   0.7529,   0.1548,   0.6397,
-              0.2952,  -0.9481,  -0.1180,
-              0.5882,   0.2777,  -0.7595,
-            -58.8919, -11.3095,   6.0866, &rA10.p_o3_275_tfo );
-  make_tfo(  -0.0239,   0.9667,  -0.2546,
-              0.9731,  -0.0359,  -0.2275,
-             -0.2290,  -0.2532,  -0.9399,
-              3.5401, -29.7913,  52.2796, &rA10.p_o3_180_tfo );
-  make_tfo(  -0.8912,  -0.4531,   0.0242,
-             -0.1183,   0.1805,  -0.9764,
-              0.4380,  -0.8730,  -0.2145,
-             19.9023,  54.8054,  15.2799, &rA10.p_o3_60_tfo  );
-  make_pt(   41.8210,   8.3880,  43.5890, &rA10.p       );
-  make_pt(   42.5400,   8.0450,  44.8330, &rA10.o1p     );
-  make_pt(   42.2470,   9.6920,  42.9910, &rA10.o2p     );
-  make_pt(   40.2550,   8.2030,  43.7340, &rA10.o5_     );
-  make_pt(   39.4850,   8.9301,  44.6977, &rA10.c5_     );
-  make_pt(   39.0638,   9.8199,  44.2296, &rA10.h5_     );
-  make_pt(   40.0757,   9.0713,  45.6029, &rA10.h5__    );
-  make_pt(   38.3102,   8.0414,  45.0789, &rA10.c4_     );
-  make_pt(   37.7099,   7.8166,  44.1973, &rA10.h4_     );
-  make_pt(   38.8012,   6.8321,  45.6380, &rA10.o4_     );
-  make_pt(   38.2431,   6.6413,  46.9529, &rA10.c1_     );
-  make_pt(   37.3505,   6.0262,  46.8385, &rA10.h1_     );
-  make_pt(   37.8484,   8.0156,  47.4214, &rA10.c2_     );
-  make_pt(   38.7381,   8.5406,  47.7690, &rA10.h2__    );
-  make_pt(   36.8286,   8.0368,  48.3701, &rA10.o2_     );
-  make_pt(   36.8392,   7.3063,  48.9929, &rA10.h2_     );
-  make_pt(   37.3576,   8.6512,  46.1132, &rA10.c3_     );
-  make_pt(   37.5207,   9.7275,  46.1671, &rA10.h3_     );
-  make_pt(   35.9985,   8.2392,  45.9032, &rA10.o3_     );
-  make_pt(   39.9117,   2.2278,  48.8527, &rA10.n1      );
-  make_pt(   38.6207,   3.6941,  47.4757, &rA10.n3      );
-  make_pt(   38.9872,   2.4888,  47.9057, &rA10.c2      );
-  make_pt(   39.2961,   4.6720,  48.1174, &rA10.c4      );
-  make_pt(   40.2546,   4.5307,  49.0912, &rA10.c5      );
-  make_pt(   40.5932,   3.2189,  49.4985, &rA10.c6      );
-  make_pt(   41.4938,   2.9317,  50.4229, &rA10._.A.n6  );
-  make_pt(   40.7195,   5.7755,  49.5060, &rA10._.A.n7  );
-  make_pt(   39.1730,   6.0305,  47.9170, &rA10._.A.n9  );
-  make_pt(   40.0413,   6.6250,  48.7728, &rA10._.A.c8  );
-  make_pt(   38.5257,   1.5960,  47.4838, &rA10._.A.h2  );
-  make_pt(   41.9907,   3.6753,  50.8921, &rA10._.A.h61 );
-  make_pt(   41.6848,   1.9687,  50.6599, &rA10._.A.h62 );
-  make_pt(   40.3571,   7.6321,  49.0452, &rA10._.A.h8  );
-
-  rAs[0] = &rA10;
-  rAs[1] = &rA09;
-  rAs[2] = &rA08;
-  rAs[3] = &rA07;
-  rAs[4] = &rA06;
-  rAs[5] = &rA05;
-  rAs[6] = &rA04;
-  rAs[7] = &rA03;
-  rAs[8] = &rA02;
-  rAs[9] = &rA01;
-  rAs[10]= 0;
-}
-
-void init_C()
-{
-  rC.type = 'C';
-  make_tfo(  -0.0359,  -0.8071,   0.5894,
-             -0.2669,   0.5761,   0.7726,
-             -0.9631,  -0.1296,  -0.2361,
-              0.1584,   8.3434,   0.5434, &rC.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC.p         );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC.o1p       );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC.o2p       );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC.o5_       );
-  make_pt(    5.2430,  -8.2420,   2.8260, &rC.c5_       );
-  make_pt(    5.1974,  -8.8497,   1.9223, &rC.h5_       );
-  make_pt(    5.5548,  -8.7348,   3.7469, &rC.h5__      );
-  make_pt(    6.3140,  -7.2060,   2.5510, &rC.c4_       );
-  make_pt(    7.2954,  -7.6762,   2.4898, &rC.h4_       );
-  make_pt(    6.0140,  -6.5420,   1.2890, &rC.o4_       );
-  make_pt(    6.4190,  -5.1840,   1.3620, &rC.c1_       );
-  make_pt(    7.1608,  -5.0495,   0.5747, &rC.h1_       );
-  make_pt(    7.0760,  -4.9560,   2.7270, &rC.c2_       );
-  make_pt(    6.7770,  -3.9803,   3.1099, &rC.h2__      );
-  make_pt(    8.4500,  -5.1930,   2.5810, &rC.o2_       );
-  make_pt(    8.8309,  -4.8755,   1.7590, &rC.h2_       );
-  make_pt(    6.4060,  -6.0590,   3.5580, &rC.c3_       );
-  make_pt(    5.4021,  -5.7313,   3.8281, &rC.h3_       );
-  make_pt(    7.1570,  -6.4240,   4.7070, &rC.o3_       );
-  make_pt(    5.2170,  -4.3260,   1.1690, &rC.n1        );
-  make_pt(    4.2960,  -2.2560,   0.6290, &rC.n3        );
-  make_pt(    5.4330,  -3.0200,   0.7990, &rC.c2        );
-  make_pt(    2.9930,  -2.6780,   0.7940, &rC.c4        );
-  make_pt(    2.8670,  -4.0630,   1.1830, &rC.c5        );
-  make_pt(    3.9570,  -4.8300,   1.3550, &rC.c6        );
-  make_pt(    2.0187,  -1.8047,   0.5874, &rC._.C.n4    );
-  make_pt(    6.5470,  -2.5560,   0.6290, &rC._.C.o2    );
-  make_pt(    1.0684,  -2.1236,   0.7109, &rC._.C.h41   );
-  make_pt(    2.2344,  -0.8560,   0.3162, &rC._.C.h42   );
-  make_pt(    1.8797,  -4.4972,   1.3404, &rC._.C.h5    );
-  make_pt(    3.8479,  -5.8742,   1.6480, &rC._.C.h6    );
-
-  rC01.type = 'C';
-  make_tfo(  -0.0137,  -0.8012,   0.5983,
-             -0.2523,   0.5817,   0.7733,
-             -0.9675,  -0.1404,  -0.2101,
-              0.2031,   8.3874,   0.4228, &rC01.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC01.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC01.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC01.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC01.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC01.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC01.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC01.o5_     );
-  make_pt(    5.2416,  -8.2422,   2.8181, &rC01.c5_     );
-  make_pt(    5.2050,  -8.8128,   1.8901, &rC01.h5_     );
-  make_pt(    5.5368,  -8.7738,   3.7227, &rC01.h5__    );
-  make_pt(    6.3232,  -7.2037,   2.6002, &rC01.c4_     );
-  make_pt(    7.3048,  -7.6757,   2.5577, &rC01.h4_     );
-  make_pt(    6.0635,  -6.5092,   1.3456, &rC01.o4_     );
-  make_pt(    6.4697,  -5.1547,   1.4629, &rC01.c1_     );
-  make_pt(    7.2354,  -5.0043,   0.7018, &rC01.h1_     );
-  make_pt(    7.0856,  -4.9610,   2.8521, &rC01.c2_     );
-  make_pt(    6.7777,  -3.9935,   3.2487, &rC01.h2__    );
-  make_pt(    8.4627,  -5.1992,   2.7423, &rC01.o2_     );
-  make_pt(    8.8693,  -4.8638,   1.9399, &rC01.h2_     );
-  make_pt(    6.3877,  -6.0809,   3.6362, &rC01.c3_     );
-  make_pt(    5.3770,  -5.7562,   3.8834, &rC01.h3_     );
-  make_pt(    7.1024,  -6.4754,   4.7985, &rC01.o3_     );
-  make_pt(    5.2764,  -4.2883,   1.2538, &rC01.n1      );
-  make_pt(    4.3777,  -2.2062,   0.7229, &rC01.n3      );
-  make_pt(    5.5069,  -2.9779,   0.9088, &rC01.c2      );
-  make_pt(    3.0693,  -2.6246,   0.8500, &rC01.c4      );
-  make_pt(    2.9279,  -4.0146,   1.2149, &rC01.c5      );
-  make_pt(    4.0101,  -4.7892,   1.4017, &rC01.c6      );
-  make_pt(    2.1040,  -1.7437,   0.6331, &rC01._.C.n4  );
-  make_pt(    6.6267,  -2.5166,   0.7728, &rC01._.C.o2  );
-  make_pt(    1.1496,  -2.0600,   0.7287, &rC01._.C.h41 );
-  make_pt(    2.3303,  -0.7921,   0.3815, &rC01._.C.h42 );
-  make_pt(    1.9353,  -4.4465,   1.3419, &rC01._.C.h5  );
-  make_pt(    3.8895,  -5.8371,   1.6762, &rC01._.C.h6  );
-
-  rC02.type = 'C';
-  make_tfo(   0.5141,   0.0246,   0.8574,
-             -0.5547,  -0.7529,   0.3542,
-              0.6542,  -0.6577,  -0.3734,
-             -9.1111,  -3.4598,  -3.2939, &rC02.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC02.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC02.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC02.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC02.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC02.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC02.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC02.o5_     );
-  make_pt(    4.3825,  -6.6585,   4.0489, &rC02.c5_     );
-  make_pt(    4.6841,  -7.2019,   4.9443, &rC02.h5_     );
-  make_pt(    3.6189,  -5.8889,   4.1625, &rC02.h5__    );
-  make_pt(    5.6255,  -5.9175,   3.5998, &rC02.c4_     );
-  make_pt(    5.8732,  -5.1228,   4.3034, &rC02.h4_     );
-  make_pt(    6.7337,  -6.8605,   3.5222, &rC02.o4_     );
-  make_pt(    7.5932,  -6.4923,   2.4548, &rC02.c1_     );
-  make_pt(    8.5661,  -6.2983,   2.9064, &rC02.h1_     );
-  make_pt(    7.0527,  -5.2012,   1.8322, &rC02.c2_     );
-  make_pt(    7.1627,  -5.2525,   0.7490, &rC02.h2__    );
-  make_pt(    7.6666,  -4.1249,   2.4880, &rC02.o2_     );
-  make_pt(    8.5944,  -4.2543,   2.6981, &rC02.h2_     );
-  make_pt(    5.5661,  -5.3029,   2.2009, &rC02.c3_     );
-  make_pt(    5.0841,  -6.0018,   1.5172, &rC02.h3_     );
-  make_pt(    4.9062,  -4.0452,   2.2042, &rC02.o3_     );
-  make_pt(    7.6298,  -7.6136,   1.4752, &rC02.n1      );
-  make_pt(    8.6945,  -8.7046,  -0.2857, &rC02.n3      );
-  make_pt(    8.6943,  -7.6514,   0.6066, &rC02.c2      );
-  make_pt(    7.7426,  -9.6987,  -0.3801, &rC02.c4      );
-  make_pt(    6.6642,  -9.5742,   0.5722, &rC02.c5      );
-  make_pt(    6.6391,  -8.5592,   1.4526, &rC02.c6      );
-  make_pt(    7.9033, -10.6371,  -1.3010, &rC02._.C.n4  );
-  make_pt(    9.5840,  -6.8186,   0.6136, &rC02._.C.o2  );
-  make_pt(    7.2009, -11.3604,  -1.3619, &rC02._.C.h41 );
-  make_pt(    8.7058, -10.6168,  -1.9140, &rC02._.C.h42 );
-  make_pt(    5.8585, -10.3083,   0.5822, &rC02._.C.h5  );
-  make_pt(    5.8197,  -8.4773,   2.1667, &rC02._.C.h6  );
-
-  rC03.type = 'C';
-  make_tfo(  -0.4993,   0.0476,   0.8651,
-              0.8078,  -0.3353,   0.4847,
-              0.3132,   0.9409,   0.1290,
-              6.2989,  -5.2303,  -3.8577, &rC03.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC03.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC03.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC03.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC03.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC03.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC03.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC03.o5_     );
-  make_pt(    3.9938,  -6.7042,   1.9023, &rC03.c5_     );
-  make_pt(    3.2332,  -5.9343,   2.0319, &rC03.h5_     );
-  make_pt(    3.9666,  -7.2863,   0.9812, &rC03.h5__    );
-  make_pt(    5.3098,  -5.9546,   1.8564, &rC03.c4_     );
-  make_pt(    5.3863,  -5.3702,   0.9395, &rC03.h4_     );
-  make_pt(    5.3851,  -5.0642,   3.0076, &rC03.o4_     );
-  make_pt(    6.7315,  -4.9724,   3.4462, &rC03.c1_     );
-  make_pt(    7.0033,  -3.9202,   3.3619, &rC03.h1_     );
-  make_pt(    7.5997,  -5.8018,   2.4948, &rC03.c2_     );
-  make_pt(    8.3627,  -6.3254,   3.0707, &rC03.h2__    );
-  make_pt(    8.0410,  -4.9501,   1.4724, &rC03.o2_     );
-  make_pt(    8.2781,  -4.0644,   1.7570, &rC03.h2_     );
-  make_pt(    6.5701,  -6.8129,   1.9714, &rC03.c3_     );
-  make_pt(    6.4186,  -7.5809,   2.7299, &rC03.h3_     );
-  make_pt(    6.9357,  -7.3841,   0.7235, &rC03.o3_     );
-  make_pt(    6.8024,  -5.4718,   4.8475, &rC03.n1      );
-  make_pt(    7.9218,  -5.5700,   6.8877, &rC03.n3      );
-  make_pt(    7.8908,  -5.0886,   5.5944, &rC03.c2      );
-  make_pt(    6.9789,  -6.3827,   7.4823, &rC03.c4      );
-  make_pt(    5.8742,  -6.7319,   6.6202, &rC03.c5      );
-  make_pt(    5.8182,  -6.2769,   5.3570, &rC03.c6      );
-  make_pt(    7.1702,  -6.7511,   8.7402, &rC03._.C.n4  );
-  make_pt(    8.7747,  -4.3728,   5.1568, &rC03._.C.o2  );
-  make_pt(    6.4741,  -7.3461,   9.1662, &rC03._.C.h41 );
-  make_pt(    7.9889,  -6.4396,   9.2429, &rC03._.C.h42 );
-  make_pt(    5.0736,  -7.3713,   6.9922, &rC03._.C.h5  );
-  make_pt(    4.9784,  -6.5473,   4.7170, &rC03._.C.h6  );
-
-  rC04.type = 'C';
-  make_tfo(  -0.5669,  -0.8012,   0.1918,
-             -0.8129,   0.5817,   0.0273,
-             -0.1334,  -0.1404,  -0.9811,
-             -0.3279,   8.3874,   0.3355, &rC04.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC04.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC04.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC04.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC04.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC04.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC04.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC04.o5_     );
-  make_pt(    5.2416,  -8.2422,   2.8181, &rC04.c5_     );
-  make_pt(    5.2050,  -8.8128,   1.8901, &rC04.h5_     );
-  make_pt(    5.5368,  -8.7738,   3.7227, &rC04.h5__    );
-  make_pt(    6.3232,  -7.2037,   2.6002, &rC04.c4_     );
-  make_pt(    7.3048,  -7.6757,   2.5577, &rC04.h4_     );
-  make_pt(    6.0635,  -6.5092,   1.3456, &rC04.o4_     );
-  make_pt(    6.4697,  -5.1547,   1.4629, &rC04.c1_     );
-  make_pt(    7.2354,  -5.0043,   0.7018, &rC04.h1_     );
-  make_pt(    7.0856,  -4.9610,   2.8521, &rC04.c2_     );
-  make_pt(    6.7777,  -3.9935,   3.2487, &rC04.h2__    );
-  make_pt(    8.4627,  -5.1992,   2.7423, &rC04.o2_     );
-  make_pt(    8.8693,  -4.8638,   1.9399, &rC04.h2_     );
-  make_pt(    6.3877,  -6.0809,   3.6362, &rC04.c3_     );
-  make_pt(    5.3770,  -5.7562,   3.8834, &rC04.h3_     );
-  make_pt(    7.1024,  -6.4754,   4.7985, &rC04.o3_     );
-  make_pt(    5.2764,  -4.2883,   1.2538, &rC04.n1      );
-  make_pt(    3.8961,  -3.0896,  -0.1893, &rC04.n3      );
-  make_pt(    5.0095,  -3.8907,  -0.0346, &rC04.c2      );
-  make_pt(    3.0480,  -2.6632,   0.8116, &rC04.c4      );
-  make_pt(    3.4093,  -3.1310,   2.1292, &rC04.c5      );
-  make_pt(    4.4878,  -3.9124,   2.3088, &rC04.c6      );
-  make_pt(    2.0216,  -1.8941,   0.4804, &rC04._.C.n4  );
-  make_pt(    5.7005,  -4.2164,  -0.9842, &rC04._.C.o2  );
-  make_pt(    1.4067,  -1.5873,   1.2205, &rC04._.C.h41 );
-  make_pt(    1.8721,  -1.6319,  -0.4835, &rC04._.C.h42 );
-  make_pt(    2.8048,  -2.8507,   2.9918, &rC04._.C.h5  );
-  make_pt(    4.7491,  -4.2593,   3.3085, &rC04._.C.h6  );
-
-  rC05.type = 'C';
-  make_tfo(  -0.6298,   0.0246,   0.7763,
-             -0.5226,  -0.7529,  -0.4001,
-              0.5746,  -0.6577,   0.4870,
-             -0.0208,  -3.4598,  -9.6882, &rC05.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC05.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC05.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC05.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC05.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC05.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC05.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC05.o5_     );
-  make_pt(    4.3825,  -6.6585,   4.0489, &rC05.c5_     );
-  make_pt(    4.6841,  -7.2019,   4.9443, &rC05.h5_     );
-  make_pt(    3.6189,  -5.8889,   4.1625, &rC05.h5__    );
-  make_pt(    5.6255,  -5.9175,   3.5998, &rC05.c4_     );
-  make_pt(    5.8732,  -5.1228,   4.3034, &rC05.h4_     );
-  make_pt(    6.7337,  -6.8605,   3.5222, &rC05.o4_     );
-  make_pt(    7.5932,  -6.4923,   2.4548, &rC05.c1_     );
-  make_pt(    8.5661,  -6.2983,   2.9064, &rC05.h1_     );
-  make_pt(    7.0527,  -5.2012,   1.8322, &rC05.c2_     );
-  make_pt(    7.1627,  -5.2525,   0.7490, &rC05.h2__    );
-  make_pt(    7.6666,  -4.1249,   2.4880, &rC05.o2_     );
-  make_pt(    8.5944,  -4.2543,   2.6981, &rC05.h2_     );
-  make_pt(    5.5661,  -5.3029,   2.2009, &rC05.c3_     );
-  make_pt(    5.0841,  -6.0018,   1.5172, &rC05.h3_     );
-  make_pt(    4.9062,  -4.0452,   2.2042, &rC05.o3_     );
-  make_pt(    7.6298,  -7.6136,   1.4752, &rC05.n1      );
-  make_pt(    8.5977,  -9.5977,   0.7329, &rC05.n3      );
-  make_pt(    8.5951,  -8.5745,   1.6594, &rC05.c2      );
-  make_pt(    7.7372,  -9.7371,  -0.3364, &rC05.c4      );
-  make_pt(    6.7596,  -8.6801,  -0.4476, &rC05.c5      );
-  make_pt(    6.7338,  -7.6721,   0.4408, &rC05.c6      );
-  make_pt(    7.8849, -10.7881,  -1.1289, &rC05._.C.n4  );
-  make_pt(    9.3993,  -8.5377,   2.5743, &rC05._.C.o2  );
-  make_pt(    7.2499, -10.8809,  -1.9088, &rC05._.C.h41 );
-  make_pt(    8.6122, -11.4649,  -0.9468, &rC05._.C.h42 );
-  make_pt(    6.0317,  -8.6941,  -1.2588, &rC05._.C.h5  );
-  make_pt(    5.9901,  -6.8809,   0.3459, &rC05._.C.h6  );
-
-  rC06.type = 'C';
-  make_tfo(  -0.9837,   0.0476,  -0.1733,
-             -0.1792,  -0.3353,   0.9249,
-             -0.0141,   0.9409,   0.3384,
-              5.7793,  -5.2303,   4.5997, &rC06.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rC06.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rC06.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rC06.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rC06.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rC06.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rC06.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rC06.o5_     );
-  make_pt(    3.9938,  -6.7042,   1.9023, &rC06.c5_     );
-  make_pt(    3.2332,  -5.9343,   2.0319, &rC06.h5_     );
-  make_pt(    3.9666,  -7.2863,   0.9812, &rC06.h5__    );
-  make_pt(    5.3098,  -5.9546,   1.8564, &rC06.c4_     );
-  make_pt(    5.3863,  -5.3702,   0.9395, &rC06.h4_     );
-  make_pt(    5.3851,  -5.0642,   3.0076, &rC06.o4_     );
-  make_pt(    6.7315,  -4.9724,   3.4462, &rC06.c1_     );
-  make_pt(    7.0033,  -3.9202,   3.3619, &rC06.h1_     );
-  make_pt(    7.5997,  -5.8018,   2.4948, &rC06.c2_     );
-  make_pt(    8.3627,  -6.3254,   3.0707, &rC06.h2__    );
-  make_pt(    8.0410,  -4.9501,   1.4724, &rC06.o2_     );
-  make_pt(    8.2781,  -4.0644,   1.7570, &rC06.h2_     );
-  make_pt(    6.5701,  -6.8129,   1.9714, &rC06.c3_     );
-  make_pt(    6.4186,  -7.5809,   2.7299, &rC06.h3_     );
-  make_pt(    6.9357,  -7.3841,   0.7235, &rC06.o3_     );
-  make_pt(    6.8024,  -5.4718,   4.8475, &rC06.n1      );
-  make_pt(    6.6920,  -5.0495,   7.1354, &rC06.n3      );
-  make_pt(    6.6201,  -4.5500,   5.8506, &rC06.c2      );
-  make_pt(    6.9254,  -6.3614,   7.4926, &rC06.c4      );
-  make_pt(    7.1046,  -7.2543,   6.3718, &rC06.c5      );
-  make_pt(    7.0391,  -6.7951,   5.1106, &rC06.c6      );
-  make_pt(    6.9614,  -6.6648,   8.7815, &rC06._.C.n4  );
-  make_pt(    6.4083,  -3.3696,   5.6340, &rC06._.C.o2  );
-  make_pt(    7.1329,  -7.6280,   9.0324, &rC06._.C.h41 );
-  make_pt(    6.8204,  -5.9469,   9.4777, &rC06._.C.h42 );
-  make_pt(    7.2954,  -8.3135,   6.5440, &rC06._.C.h5  );
-  make_pt(    7.1753,  -7.4798,   4.2735, &rC06._.C.h6  );
-
-  rC07.type = 'C';
-  make_tfo(   0.0033,   0.2720,  -0.9623,
-              0.3013,  -0.9179,  -0.2584,
-             -0.9535,  -0.2891,  -0.0850,
-             43.0403,  13.7233,  34.5710, &rC07.dgf_base_tfo );
-  make_tfo(   0.9187,   0.2887,   0.2694,
-              0.0302,  -0.7316,   0.6811,
-              0.3938,  -0.6176,  -0.6808,
-            -48.4330,  26.3254,  13.6383, &rC07.p_o3_275_tfo );
-  make_tfo(  -0.1504,   0.7744,  -0.6145,
-              0.7581,   0.4893,   0.4311,
-              0.6345,  -0.4010,  -0.6607,
-            -31.9784, -13.4285,  44.9650, &rC07.p_o3_180_tfo );
-  make_tfo(  -0.6236,  -0.7810,  -0.0337,
-             -0.6890,   0.5694,  -0.4484,
-              0.3694,  -0.2564,  -0.8932,
-             12.1105,  30.8774,  46.0946, &rC07.p_o3_60_tfo  );
-  make_pt(   33.3400,  11.0980,  46.1750, &rC07.p       );
-  make_pt(   34.5130,  10.2320,  46.4660, &rC07.o1p     );
-  make_pt(   33.4130,  12.3960,  46.9340, &rC07.o2p     );
-  make_pt(   31.9810,  10.3390,  46.4820, &rC07.o5_     );
-  make_pt(   30.8152,  11.1619,  46.2003, &rC07.c5_     );
-  make_pt(   30.4519,  10.9454,  45.1957, &rC07.h5_     );
-  make_pt(   31.0379,  12.2016,  46.4400, &rC07.h5__    );
-  make_pt(   29.7081,  10.7448,  47.1428, &rC07.c4_     );
-  make_pt(   28.8710,  11.4416,  47.0982, &rC07.h4_     );
-  make_pt(   29.2550,   9.4394,  46.8162, &rC07.o4_     );
-  make_pt(   29.3907,   8.5625,  47.9460, &rC07.c1_     );
-  make_pt(   28.4416,   8.5669,  48.4819, &rC07.h1_     );
-  make_pt(   30.4468,   9.2031,  48.7952, &rC07.c2_     );
-  make_pt(   31.4222,   8.9651,  48.3709, &rC07.h2__    );
-  make_pt(   30.3701,   8.9157,  50.1624, &rC07.o2_     );
-  make_pt(   30.0652,   8.0304,  50.3740, &rC07.h2_     );
-  make_pt(   30.1622,  10.6879,  48.6120, &rC07.c3_     );
-  make_pt(   31.0952,  11.2399,  48.7254, &rC07.h3_     );
-  make_pt(   29.1076,  11.1535,  49.4702, &rC07.o3_     );
-  make_pt(   29.7883,   7.2209,  47.5235, &rC07.n1      );
-  make_pt(   29.1825,   5.0438,  46.8275, &rC07.n3      );
-  make_pt(   28.8008,   6.2912,  47.2263, &rC07.c2      );
-  make_pt(   30.4888,   4.6890,  46.7186, &rC07.c4      );
-  make_pt(   31.5034,   5.6405,  47.0249, &rC07.c5      );
-  make_pt(   31.1091,   6.8691,  47.4156, &rC07.c6      );
-  make_pt(   30.8109,   3.4584,  46.3336, &rC07._.C.n4  );
-  make_pt(   27.6171,   6.5989,  47.3189, &rC07._.C.o2  );
-  make_pt(   31.7923,   3.2301,  46.2638, &rC07._.C.h41 );
-  make_pt(   30.0880,   2.7857,  46.1215, &rC07._.C.h42 );
-  make_pt(   32.5542,   5.3634,  46.9395, &rC07._.C.h5  );
-  make_pt(   31.8523,   7.6279,  47.6603, &rC07._.C.h6  );
-
-  rC08.type = 'C';
-  make_tfo(   0.0797,  -0.6026,  -0.7941,
-              0.7939,   0.5201,  -0.3150,
-              0.6028,  -0.6054,   0.5198,
-            -36.8341,  41.5293,   1.6628, &rC08.dgf_base_tfo );
-  make_tfo(   0.9187,   0.2887,   0.2694,
-              0.0302,  -0.7316,   0.6811,
-              0.3938,  -0.6176,  -0.6808,
-            -48.4330,  26.3254,  13.6383, &rC08.p_o3_275_tfo );
-  make_tfo(  -0.1504,   0.7744,  -0.6145,
-              0.7581,   0.4893,   0.4311,
-              0.6345,  -0.4010,  -0.6607,
-            -31.9784, -13.4285,  44.9650, &rC08.p_o3_180_tfo );
-  make_tfo(  -0.6236,  -0.7810,  -0.0337,
-             -0.6890,   0.5694,  -0.4484,
-              0.3694,  -0.2564,  -0.8932,
-             12.1105,  30.8774,  46.0946, &rC08.p_o3_60_tfo  );
-  make_pt(   33.3400,  11.0980,  46.1750, &rC08.p       );
-  make_pt(   34.5130,  10.2320,  46.4660, &rC08.o1p     );
-  make_pt(   33.4130,  12.3960,  46.9340, &rC08.o2p     );
-  make_pt(   31.9810,  10.3390,  46.4820, &rC08.o5_     );
-  make_pt(   31.8779,   9.9369,  47.8760, &rC08.c5_     );
-  make_pt(   31.3239,  10.6931,  48.4322, &rC08.h5_     );
-  make_pt(   32.8647,   9.6624,  48.2489, &rC08.h5__    );
-  make_pt(   31.0429,   8.6773,  47.9401, &rC08.c4_     );
-  make_pt(   31.0779,   8.2331,  48.9349, &rC08.h4_     );
-  make_pt(   29.6956,   8.9669,  47.5983, &rC08.o4_     );
-  make_pt(   29.2784,   8.1700,  46.4782, &rC08.c1_     );
-  make_pt(   28.8006,   7.2731,  46.8722, &rC08.h1_     );
-  make_pt(   30.5544,   7.7940,  45.7875, &rC08.c2_     );
-  make_pt(   30.8837,   8.6410,  45.1856, &rC08.h2__    );
-  make_pt(   30.5100,   6.6007,  45.0582, &rC08.o2_     );
-  make_pt(   29.6694,   6.4168,  44.6326, &rC08.h2_     );
-  make_pt(   31.5146,   7.5954,  46.9527, &rC08.c3_     );
-  make_pt(   32.5255,   7.8261,  46.6166, &rC08.h3_     );
-  make_pt(   31.3876,   6.2951,  47.5516, &rC08.o3_     );
-  make_pt(   28.3976,   8.9302,  45.5933, &rC08.n1      );
-  make_pt(   26.2155,   9.6135,  44.9910, &rC08.n3      );
-  make_pt(   27.0281,   8.8961,  45.8192, &rC08.c2      );
-  make_pt(   26.7044,  10.3489,  43.9595, &rC08.c4      );
-  make_pt(   28.1088,  10.3837,  43.7247, &rC08.c5      );
-  make_pt(   28.8978,   9.6708,  44.5535, &rC08.c6      );
-  make_pt(   25.8715,  11.0249,  43.1749, &rC08._.C.n4  );
-  make_pt(   26.5733,   8.2371,  46.7484, &rC08._.C.o2  );
-  make_pt(   26.2707,  11.5609,  42.4177, &rC08._.C.h41 );
-  make_pt(   24.8760,  10.9939,  43.3427, &rC08._.C.h42 );
-  make_pt(   28.5089,  10.9722,  42.8990, &rC08._.C.h5  );
-  make_pt(   29.9782,   9.6687,  44.4097, &rC08._.C.h6  );
-
-  rC09.type = 'C';
-  make_tfo(   0.8727,   0.4760,  -0.1091,
-             -0.4188,   0.6148,  -0.6682,
-             -0.2510,   0.6289,   0.7359,
-             -8.1687, -52.0761, -25.0726, &rC09.dgf_base_tfo );
-  make_tfo(   0.9187,   0.2887,   0.2694,
-              0.0302,  -0.7316,   0.6811,
-              0.3938,  -0.6176,  -0.6808,
-            -48.4330,  26.3254,  13.6383, &rC09.p_o3_275_tfo );
-  make_tfo(  -0.1504,   0.7744,  -0.6145,
-              0.7581,   0.4893,   0.4311,
-              0.6345,  -0.4010,  -0.6607,
-            -31.9784, -13.4285,  44.9650, &rC09.p_o3_180_tfo );
-  make_tfo(  -0.6236,  -0.7810,  -0.0337,
-             -0.6890,   0.5694,  -0.4484,
-              0.3694,  -0.2564,  -0.8932,
-             12.1105,  30.8774,  46.0946, &rC09.p_o3_60_tfo  );
-  make_pt(   33.3400,  11.0980,  46.1750, &rC09.p       );
-  make_pt(   34.5130,  10.2320,  46.4660, &rC09.o1p     );
-  make_pt(   33.4130,  12.3960,  46.9340, &rC09.o2p     );
-  make_pt(   31.9810,  10.3390,  46.4820, &rC09.o5_     );
-  make_pt(   30.8152,  11.1619,  46.2003, &rC09.c5_     );
-  make_pt(   30.4519,  10.9454,  45.1957, &rC09.h5_     );
-  make_pt(   31.0379,  12.2016,  46.4400, &rC09.h5__    );
-  make_pt(   29.7081,  10.7448,  47.1428, &rC09.c4_     );
-  make_pt(   29.4506,   9.6945,  47.0059, &rC09.h4_     );
-  make_pt(   30.1045,  10.9634,  48.4885, &rC09.o4_     );
-  make_pt(   29.1794,  11.8418,  49.1490, &rC09.c1_     );
-  make_pt(   28.4388,  11.2210,  49.6533, &rC09.h1_     );
-  make_pt(   28.5211,  12.6008,  48.0367, &rC09.c2_     );
-  make_pt(   29.1947,  13.3949,  47.7147, &rC09.h2__    );
-  make_pt(   27.2316,  13.0683,  48.3134, &rC09.o2_     );
-  make_pt(   27.0851,  13.3391,  49.2227, &rC09.h2_     );
-  make_pt(   28.4131,  11.5507,  46.9391, &rC09.c3_     );
-  make_pt(   28.4451,  12.0512,  45.9713, &rC09.h3_     );
-  make_pt(   27.2707,  10.6955,  47.1097, &rC09.o3_     );
-  make_pt(   29.8751,  12.7405,  50.0682, &rC09.n1      );
-  make_pt(   30.7172,  13.1841,  52.2328, &rC09.n3      );
-  make_pt(   30.0617,  12.3404,  51.3847, &rC09.c2      );
-  make_pt(   31.1834,  14.3941,  51.8297, &rC09.c4      );
-  make_pt(   30.9913,  14.8074,  50.4803, &rC09.c5      );
-  make_pt(   30.3434,  13.9610,  49.6548, &rC09.c6      );
-  make_pt(   31.8090,  15.1847,  52.6957, &rC09._.C.n4  );
-  make_pt(   29.6470,  11.2494,  51.7616, &rC09._.C.o2  );
-  make_pt(   32.1422,  16.0774,  52.3606, &rC09._.C.h41 );
-  make_pt(   31.9392,  14.8893,  53.6527, &rC09._.C.h42 );
-  make_pt(   31.3632,  15.7771,  50.1491, &rC09._.C.h5  );
-  make_pt(   30.1742,  14.2374,  48.6141, &rC09._.C.h6  );
-
-  rC10.type = 'C';
-  make_tfo(   0.1549,   0.8710,  -0.4663,
-              0.6768,  -0.4374,  -0.5921,
-             -0.7197,  -0.2239,  -0.6572,
-             25.2447, -14.1920,  50.3201, &rC10.dgf_base_tfo );
-  make_tfo(   0.9187,   0.2887,   0.2694,
-              0.0302,  -0.7316,   0.6811,
-              0.3938,  -0.6176,  -0.6808,
-            -48.4330,  26.3254,  13.6383, &rC10.p_o3_275_tfo );
-  make_tfo(  -0.1504,   0.7744,  -0.6145,
-              0.7581,   0.4893,   0.4311,
-              0.6345,  -0.4010,  -0.6607,
-            -31.9784, -13.4285,  44.9650, &rC10.p_o3_180_tfo );
-  make_tfo(  -0.6236,  -0.7810,  -0.0337,
-             -0.6890,   0.5694,  -0.4484,
-              0.3694,  -0.2564,  -0.8932,
-             12.1105,  30.8774,  46.0946, &rC10.p_o3_60_tfo  );
-  make_pt(   33.3400,  11.0980,  46.1750, &rC10.p       );
-  make_pt(   34.5130,  10.2320,  46.4660, &rC10.o1p     );
-  make_pt(   33.4130,  12.3960,  46.9340, &rC10.o2p     );
-  make_pt(   31.9810,  10.3390,  46.4820, &rC10.o5_     );
-  make_pt(   31.8779,   9.9369,  47.8760, &rC10.c5_     );
-  make_pt(   31.3239,  10.6931,  48.4322, &rC10.h5_     );
-  make_pt(   32.8647,   9.6624,  48.2489, &rC10.h5__    );
-  make_pt(   31.0429,   8.6773,  47.9401, &rC10.c4_     );
-  make_pt(   30.0440,   8.8473,  47.5383, &rC10.h4_     );
-  make_pt(   31.6749,   7.6351,  47.2119, &rC10.o4_     );
-  make_pt(   31.9159,   6.5022,  48.0616, &rC10.c1_     );
-  make_pt(   31.0691,   5.8243,  47.9544, &rC10.h1_     );
-  make_pt(   31.9300,   7.0685,  49.4493, &rC10.c2_     );
-  make_pt(   32.9024,   7.5288,  49.6245, &rC10.h2__    );
-  make_pt(   31.5672,   6.1750,  50.4632, &rC10.o2_     );
-  make_pt(   31.8416,   5.2663,  50.3200, &rC10.h2_     );
-  make_pt(   30.8618,   8.1514,  49.3749, &rC10.c3_     );
-  make_pt(   31.1122,   8.9396,  50.0850, &rC10.h3_     );
-  make_pt(   29.5351,   7.6245,  49.5409, &rC10.o3_     );
-  make_pt(   33.1890,   5.8629,  47.7343, &rC10.n1      );
-  make_pt(   34.4004,   4.2636,  46.4828, &rC10.n3      );
-  make_pt(   33.2062,   4.8497,  46.7851, &rC10.c2      );
-  make_pt(   35.5600,   4.6374,  47.0822, &rC10.c4      );
-  make_pt(   35.5444,   5.6751,  48.0577, &rC10.c5      );
-  make_pt(   34.3565,   6.2450,  48.3432, &rC10.c6      );
-  make_pt(   36.6977,   4.0305,  46.7598, &rC10._.C.n4  );
-  make_pt(   32.1661,   4.5034,  46.2348, &rC10._.C.o2  );
-  make_pt(   37.5405,   4.3347,  47.2259, &rC10._.C.h41 );
-  make_pt(   36.7033,   3.2923,  46.0706, &rC10._.C.h42 );
-  make_pt(   36.4713,   5.9811,  48.5428, &rC10._.C.h5  );
-  make_pt(   34.2986,   7.0426,  49.0839, &rC10._.C.h6  );
-
-  rCs[0] = &rC10;
-  rCs[1] = &rC09;
-  rCs[2] = &rC08;
-  rCs[3] = &rC07;
-  rCs[4] = &rC06;
-  rCs[5] = &rC05;
-  rCs[6] = &rC04;
-  rCs[7] = &rC03;
-  rCs[8] = &rC02;
-  rCs[9] = &rC01;
-  rCs[10]= 0;
-}
-
-void init_G()
-{
-  rG.type = 'G';
-  make_tfo(  -0.0018,  -0.8207,   0.5714,
-              0.2679,  -0.5509,  -0.7904,
-              0.9634,   0.1517,   0.2209,
-              0.0073,   8.4030,   0.6232, &rG.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG.p         );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG.o1p       );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG.o2p       );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG.o5_       );
-  make_pt(    5.4550,   8.2120,  -2.8810, &rG.c5_       );
-  make_pt(    5.4546,   8.8508,  -1.9978, &rG.h5_       );
-  make_pt(    5.7588,   8.6625,  -3.8259, &rG.h5__      );
-  make_pt(    6.4970,   7.1480,  -2.5980, &rG.c4_       );
-  make_pt(    7.4896,   7.5919,  -2.5214, &rG.h4_       );
-  make_pt(    6.1630,   6.4860,  -1.3440, &rG.o4_       );
-  make_pt(    6.5400,   5.1200,  -1.4190, &rG.c1_       );
-  make_pt(    7.2763,   4.9681,  -0.6297, &rG.h1_       );
-  make_pt(    7.1940,   4.8830,  -2.7770, &rG.c2_       );
-  make_pt(    6.8667,   3.9183,  -3.1647, &rG.h2__      );
-  make_pt(    8.5860,   5.0910,  -2.6140, &rG.o2_       );
-  make_pt(    8.9510,   4.7626,  -1.7890, &rG.h2_       );
-  make_pt(    6.5720,   6.0040,  -3.6090, &rG.c3_       );
-  make_pt(    5.5636,   5.7066,  -3.8966, &rG.h3_       );
-  make_pt(    7.3801,   6.3562,  -4.7350, &rG.o3_       );
-  make_pt(    4.7150,   0.4910,  -0.1360, &rG.n1        );
-  make_pt(    6.3490,   2.1730,  -0.6020, &rG.n3        );
-  make_pt(    5.9530,   0.9650,  -0.2670, &rG.c2        );
-  make_pt(    5.2900,   2.9790,  -0.8260, &rG.c4        );
-  make_pt(    3.9720,   2.6390,  -0.7330, &rG.c5        );
-  make_pt(    3.6770,   1.3160,  -0.3660, &rG.c6        );
-  make_pt(    6.8426,   0.0056,  -0.0019, &rG._.G.n2    );
-  make_pt(    3.1660,   3.7290,  -1.0360, &rG._.G.n7    );
-  make_pt(    5.3170,   4.2990,  -1.1930, &rG._.G.n9    );
-  make_pt(    4.0100,   4.6780,  -1.2990, &rG._.G.c8    );
-  make_pt(    2.4280,   0.8450,  -0.2360, &rG._.G.o6    );
-  make_pt(    4.6151,  -0.4677,   0.1305, &rG._.G.h1    );
-  make_pt(    6.6463,  -0.9463,   0.2729, &rG._.G.h21   );
-  make_pt(    7.8170,   0.2642,  -0.0640, &rG._.G.h22   );
-  make_pt(    3.4421,   5.5744,  -1.5482, &rG._.G.h8    );
-
-  rG01.type = 'G';
-  make_tfo(  -0.0043,  -0.8175,   0.5759,
-              0.2617,  -0.5567,  -0.7884,
-              0.9651,   0.1473,   0.2164,
-              0.0359,   8.3929,   0.5532, &rG01.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG01.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG01.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG01.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG01.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG01.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG01.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG01.o5_     );
-  make_pt(    5.4352,   8.2183,  -2.7757, &rG01.c5_     );
-  make_pt(    5.3830,   8.7883,  -1.8481, &rG01.h5_     );
-  make_pt(    5.7729,   8.7436,  -3.6691, &rG01.h5__    );
-  make_pt(    6.4830,   7.1518,  -2.5252, &rG01.c4_     );
-  make_pt(    7.4749,   7.5972,  -2.4482, &rG01.h4_     );
-  make_pt(    6.1626,   6.4620,  -1.2827, &rG01.o4_     );
-  make_pt(    6.5431,   5.0992,  -1.3905, &rG01.c1_     );
-  make_pt(    7.2871,   4.9328,  -0.6114, &rG01.h1_     );
-  make_pt(    7.1852,   4.8935,  -2.7592, &rG01.c2_     );
-  make_pt(    6.8573,   3.9363,  -3.1645, &rG01.h2__    );
-  make_pt(    8.5780,   5.1025,  -2.6046, &rG01.o2_     );
-  make_pt(    8.9516,   4.7577,  -1.7902, &rG01.h2_     );
-  make_pt(    6.5522,   6.0300,  -3.5612, &rG01.c3_     );
-  make_pt(    5.5420,   5.7356,  -3.8459, &rG01.h3_     );
-  make_pt(    7.3487,   6.4089,  -4.6867, &rG01.o3_     );
-  make_pt(    4.7442,   0.4514,  -0.1390, &rG01.n1      );
-  make_pt(    6.3687,   2.1459,  -0.5926, &rG01.n3      );
-  make_pt(    5.9795,   0.9335,  -0.2657, &rG01.c2      );
-  make_pt(    5.3052,   2.9471,  -0.8125, &rG01.c4      );
-  make_pt(    3.9891,   2.5987,  -0.7230, &rG01.c5      );
-  make_pt(    3.7016,   1.2717,  -0.3647, &rG01.c6      );
-  make_pt(    6.8745,  -0.0224,  -0.0058, &rG01._.G.n2  );
-  make_pt(    3.1770,   3.6859,  -1.0198, &rG01._.G.n7  );
-  make_pt(    5.3247,   4.2695,  -1.1710, &rG01._.G.n9  );
-  make_pt(    4.0156,   4.6415,  -1.2759, &rG01._.G.c8  );
-  make_pt(    2.4553,   0.7925,  -0.2390, &rG01._.G.o6  );
-  make_pt(    4.6497,  -0.5095,   0.1212, &rG01._.G.h1  );
-  make_pt(    6.6836,  -0.9771,   0.2627, &rG01._.G.h21 );
-  make_pt(    7.8474,   0.2424,  -0.0653, &rG01._.G.h22 );
-  make_pt(    3.4426,   5.5361,  -1.5199, &rG01._.G.h8  );
-
-  rG02.type = 'G';
-  make_tfo(   0.5566,   0.0449,   0.8296,
-              0.5125,   0.7673,  -0.3854,
-             -0.6538,   0.6397,   0.4041,
-             -9.1161,  -3.7679,  -2.9968, &rG02.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG02.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG02.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG02.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG02.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG02.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG02.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG02.o5_     );
-  make_pt(    4.5778,   6.6594,  -4.0364, &rG02.c5_     );
-  make_pt(    4.9220,   7.1963,  -4.9204, &rG02.h5_     );
-  make_pt(    3.7996,   5.9091,  -4.1764, &rG02.h5__    );
-  make_pt(    5.7873,   5.8869,  -3.5482, &rG02.c4_     );
-  make_pt(    6.0405,   5.0875,  -4.2446, &rG02.h4_     );
-  make_pt(    6.9135,   6.8036,  -3.4310, &rG02.o4_     );
-  make_pt(    7.7293,   6.4084,  -2.3392, &rG02.c1_     );
-  make_pt(    8.7078,   6.1815,  -2.7624, &rG02.h1_     );
-  make_pt(    7.1305,   5.1418,  -1.7347, &rG02.c2_     );
-  make_pt(    7.2040,   5.1982,  -0.6486, &rG02.h2__    );
-  make_pt(    7.7417,   4.0392,  -2.3813, &rG02.o2_     );
-  make_pt(    8.6785,   4.1443,  -2.5630, &rG02.h2_     );
-  make_pt(    5.6666,   5.2728,  -2.1536, &rG02.c3_     );
-  make_pt(    5.1747,   5.9805,  -1.4863, &rG02.h3_     );
-  make_pt(    4.9997,   4.0086,  -2.1973, &rG02.o3_     );
-  make_pt(   10.3245,   8.5459,   1.5467, &rG02.n1      );
-  make_pt(    9.8051,   6.9432,  -0.1497, &rG02.n3      );
-  make_pt(   10.5175,   7.4328,   0.8408, &rG02.c2      );
-  make_pt(    8.7523,   7.7422,  -0.4228, &rG02.c4      );
-  make_pt(    8.4257,   8.9060,   0.2099, &rG02.c5      );
-  make_pt(    9.2665,   9.3242,   1.2540, &rG02.c6      );
-  make_pt(   11.6077,   6.7966,   1.2752, &rG02._.G.n2  );
-  make_pt(    7.2750,   9.4537,  -0.3428, &rG02._.G.n7  );
-  make_pt(    7.7962,   7.5519,  -1.3859, &rG02._.G.n9  );
-  make_pt(    6.9479,   8.6157,  -1.2771, &rG02._.G.c8  );
-  make_pt(    9.0664,  10.4462,   1.9610, &rG02._.G.o6  );
-  make_pt(   10.9838,   8.7524,   2.2697, &rG02._.G.h1  );
-  make_pt(   12.2274,   7.0896,   2.0170, &rG02._.G.h21 );
-  make_pt(   11.8502,   5.9398,   0.7984, &rG02._.G.h22 );
-  make_pt(    6.0430,   8.9853,  -1.7594, &rG02._.G.h8  );
-
-  rG03.type = 'G';
-  make_tfo(  -0.5021,   0.0731,   0.8617,
-             -0.8112,   0.3054,  -0.4986,
-             -0.2996,  -0.9494,  -0.0940,
-              6.4273,  -5.1944,  -3.7807, &rG03.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG03.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG03.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG03.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG03.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG03.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG03.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG03.o5_     );
-  make_pt(    4.1214,   6.7116,  -1.9049, &rG03.c5_     );
-  make_pt(    3.3465,   5.9610,  -2.0607, &rG03.h5_     );
-  make_pt(    4.0789,   7.2928,  -0.9837, &rG03.h5__    );
-  make_pt(    5.4170,   5.9293,  -1.8186, &rG03.c4_     );
-  make_pt(    5.4506,   5.3400,  -0.9023, &rG03.h4_     );
-  make_pt(    5.5067,   5.0417,  -2.9703, &rG03.o4_     );
-  make_pt(    6.8650,   4.9152,  -3.3612, &rG03.c1_     );
-  make_pt(    7.1090,   3.8577,  -3.2603, &rG03.h1_     );
-  make_pt(    7.7152,   5.7282,  -2.3894, &rG03.c2_     );
-  make_pt(    8.5029,   6.2356,  -2.9463, &rG03.h2__    );
-  make_pt(    8.1036,   4.8568,  -1.3419, &rG03.o2_     );
-  make_pt(    8.3270,   3.9651,  -1.6184, &rG03.h2_     );
-  make_pt(    6.7003,   6.7565,  -1.8911, &rG03.c3_     );
-  make_pt(    6.5898,   7.5329,  -2.6482, &rG03.h3_     );
-  make_pt(    7.0505,   7.2878,  -0.6105, &rG03.o3_     );
-  make_pt(    9.6740,   4.7656,  -7.6614, &rG03.n1      );
-  make_pt(    9.0739,   4.3013,  -5.3941, &rG03.n3      );
-  make_pt(    9.8416,   4.2192,  -6.4581, &rG03.c2      );
-  make_pt(    7.9885,   5.0632,  -5.6446, &rG03.c4      );
-  make_pt(    7.6822,   5.6856,  -6.8194, &rG03.c5      );
-  make_pt(    8.5831,   5.5215,  -7.8840, &rG03.c6      );
-  make_pt(   10.9733,   3.5117,  -6.4286, &rG03._.G.n2  );
-  make_pt(    6.4857,   6.3816,  -6.7035, &rG03._.G.n7  );
-  make_pt(    6.9740,   5.3703,  -4.7760, &rG03._.G.n9  );
-  make_pt(    6.1133,   6.1613,  -5.4808, &rG03._.G.c8  );
-  make_pt(    8.4084,   6.0747,  -9.0933, &rG03._.G.o6  );
-  make_pt(   10.3759,   4.5855,  -8.3504, &rG03._.G.h1  );
-  make_pt(   11.6254,   3.3761,  -7.1879, &rG03._.G.h21 );
-  make_pt(   11.1917,   3.0460,  -5.5593, &rG03._.G.h22 );
-  make_pt(    5.1705,   6.6830,  -5.3167, &rG03._.G.h8  );
-
-  rG04.type = 'G';
-  make_tfo(  -0.5426,  -0.8175,   0.1929,
-              0.8304,  -0.5567,  -0.0237,
-              0.1267,   0.1473,   0.9809,
-             -0.5075,   8.3929,   0.2229, &rG04.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG04.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG04.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG04.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG04.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG04.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG04.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG04.o5_     );
-  make_pt(    5.4352,   8.2183,  -2.7757, &rG04.c5_     );
-  make_pt(    5.3830,   8.7883,  -1.8481, &rG04.h5_     );
-  make_pt(    5.7729,   8.7436,  -3.6691, &rG04.h5__    );
-  make_pt(    6.4830,   7.1518,  -2.5252, &rG04.c4_     );
-  make_pt(    7.4749,   7.5972,  -2.4482, &rG04.h4_     );
-  make_pt(    6.1626,   6.4620,  -1.2827, &rG04.o4_     );
-  make_pt(    6.5431,   5.0992,  -1.3905, &rG04.c1_     );
-  make_pt(    7.2871,   4.9328,  -0.6114, &rG04.h1_     );
-  make_pt(    7.1852,   4.8935,  -2.7592, &rG04.c2_     );
-  make_pt(    6.8573,   3.9363,  -3.1645, &rG04.h2__    );
-  make_pt(    8.5780,   5.1025,  -2.6046, &rG04.o2_     );
-  make_pt(    8.9516,   4.7577,  -1.7902, &rG04.h2_     );
-  make_pt(    6.5522,   6.0300,  -3.5612, &rG04.c3_     );
-  make_pt(    5.5420,   5.7356,  -3.8459, &rG04.h3_     );
-  make_pt(    7.3487,   6.4089,  -4.6867, &rG04.o3_     );
-  make_pt(    3.6343,   2.6680,   2.0783, &rG04.n1      );
-  make_pt(    5.4505,   3.9805,   1.2446, &rG04.n3      );
-  make_pt(    4.7540,   3.3816,   2.1851, &rG04.c2      );
-  make_pt(    4.8805,   3.7951,   0.0354, &rG04.c4      );
-  make_pt(    3.7416,   3.0925,  -0.2305, &rG04.c5      );
-  make_pt(    3.0873,   2.4980,   0.8606, &rG04.c6      );
-  make_pt(    5.1433,   3.4373,   3.4609, &rG04._.G.n2  );
-  make_pt(    3.4605,   3.1184,  -1.5906, &rG04._.G.n7  );
-  make_pt(    5.3247,   4.2695,  -1.1710, &rG04._.G.n9  );
-  make_pt(    4.4244,   3.8244,  -2.0953, &rG04._.G.c8  );
-  make_pt(    1.9600,   1.7805,   0.7462, &rG04._.G.o6  );
-  make_pt(    3.2489,   2.2879,   2.9191, &rG04._.G.h1  );
-  make_pt(    4.6785,   3.0243,   4.2568, &rG04._.G.h21 );
-  make_pt(    5.9823,   3.9654,   3.6539, &rG04._.G.h22 );
-  make_pt(    4.2675,   3.8876,  -3.1721, &rG04._.G.h8  );
-
-  rG05.type = 'G';
-  make_tfo(  -0.5891,   0.0449,   0.8068,
-              0.5375,   0.7673,   0.3498,
-             -0.6034,   0.6397,  -0.4762,
-             -0.3019,  -3.7679,  -9.5913, &rG05.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG05.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG05.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG05.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG05.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG05.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG05.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG05.o5_     );
-  make_pt(    4.5778,   6.6594,  -4.0364, &rG05.c5_     );
-  make_pt(    4.9220,   7.1963,  -4.9204, &rG05.h5_     );
-  make_pt(    3.7996,   5.9091,  -4.1764, &rG05.h5__    );
-  make_pt(    5.7873,   5.8869,  -3.5482, &rG05.c4_     );
-  make_pt(    6.0405,   5.0875,  -4.2446, &rG05.h4_     );
-  make_pt(    6.9135,   6.8036,  -3.4310, &rG05.o4_     );
-  make_pt(    7.7293,   6.4084,  -2.3392, &rG05.c1_     );
-  make_pt(    8.7078,   6.1815,  -2.7624, &rG05.h1_     );
-  make_pt(    7.1305,   5.1418,  -1.7347, &rG05.c2_     );
-  make_pt(    7.2040,   5.1982,  -0.6486, &rG05.h2__    );
-  make_pt(    7.7417,   4.0392,  -2.3813, &rG05.o2_     );
-  make_pt(    8.6785,   4.1443,  -2.5630, &rG05.h2_     );
-  make_pt(    5.6666,   5.2728,  -2.1536, &rG05.c3_     );
-  make_pt(    5.1747,   5.9805,  -1.4863, &rG05.h3_     );
-  make_pt(    4.9997,   4.0086,  -2.1973, &rG05.o3_     );
-  make_pt(   10.2594,  10.6774,  -1.0056, &rG05.n1      );
-  make_pt(    9.7528,   8.7080,  -2.2631, &rG05.n3      );
-  make_pt(   10.4471,   9.7876,  -1.9791, &rG05.c2      );
-  make_pt(    8.7271,   8.5575,  -1.3991, &rG05.c4      );
-  make_pt(    8.4100,   9.3803,  -0.3580, &rG05.c5      );
-  make_pt(    9.2294,  10.5030,  -0.1574, &rG05.c6      );
-  make_pt(   11.5110,  10.1256,  -2.7114, &rG05._.G.n2  );
-  make_pt(    7.2891,   8.9068,   0.3121, &rG05._.G.n7  );
-  make_pt(    7.7962,   7.5519,  -1.3859, &rG05._.G.n9  );
-  make_pt(    6.9702,   7.8292,  -0.3353, &rG05._.G.c8  );
-  make_pt(    9.0349,  11.3951,   0.8250, &rG05._.G.o6  );
-  make_pt(   10.9013,  11.4422,  -0.9512, &rG05._.G.h1  );
-  make_pt(   12.1031,  10.9341,  -2.5861, &rG05._.G.h21 );
-  make_pt(   11.7369,   9.5180,  -3.4859, &rG05._.G.h22 );
-  make_pt(    6.0888,   7.3990,   0.1403, &rG05._.G.h8  );
-
-  rG06.type = 'G';
-  make_tfo(  -0.9815,   0.0731,  -0.1772,
-              0.1912,   0.3054,  -0.9328,
-             -0.0141,  -0.9494,  -0.3137,
-              5.7506,  -5.1944,   4.7470, &rG06.dgf_base_tfo );
-  make_tfo(  -0.8143,  -0.5091,  -0.2788,
-             -0.0433,  -0.4257,   0.9038,
-             -0.5788,   0.7480,   0.3246,
-              1.5227,   6.9114,  -7.0765, &rG06.p_o3_275_tfo );
-  make_tfo(   0.3822,  -0.7477,   0.5430,
-              0.4552,   0.6637,   0.5935,
-             -0.8042,   0.0203,   0.5941,
-             -6.9472,  -4.1186,  -5.9108, &rG06.p_o3_180_tfo );
-  make_tfo(   0.5640,   0.8007,  -0.2022,
-             -0.8247,   0.5587,  -0.0878,
-              0.0426,   0.2162,   0.9754,
-              6.2694,  -7.0540,   3.3316, &rG06.p_o3_60_tfo  );
-  make_pt(    2.8930,   8.5380,  -3.3280, &rG06.p       );
-  make_pt(    1.6980,   7.6960,  -3.5570, &rG06.o1p     );
-  make_pt(    3.2260,   9.5010,  -4.4020, &rG06.o2p     );
-  make_pt(    4.1590,   7.6040,  -3.0340, &rG06.o5_     );
-  make_pt(    4.1214,   6.7116,  -1.9049, &rG06.c5_     );
-  make_pt(    3.3465,   5.9610,  -2.0607, &rG06.h5_     );
-  make_pt(    4.0789,   7.2928,  -0.9837, &rG06.h5__    );
-  make_pt(    5.4170,   5.9293,  -1.8186, &rG06.c4_     );
-  make_pt(    5.4506,   5.3400,  -0.9023, &rG06.h4_     );
-  make_pt(    5.5067,   5.0417,  -2.9703, &rG06.o4_     );
-  make_pt(    6.8650,   4.9152,  -3.3612, &rG06.c1_     );
-  make_pt(    7.1090,   3.8577,  -3.2603, &rG06.h1_     );
-  make_pt(    7.7152,   5.7282,  -2.3894, &rG06.c2_     );
-  make_pt(    8.5029,   6.2356,  -2.9463, &rG06.h2__    );
-  make_pt(    8.1036,   4.8568,  -1.3419, &rG06.o2_     );
-  make_pt(    8.3270,   3.9651,  -1.6184, &rG06.h2_     );
-  make_pt(    6.7003,   6.7565,  -1.8911, &rG06.c3_     );
-  make_pt(    6.5898,   7.5329,  -2.6482, &rG06.h3_     );
-  make_pt(    7.0505,   7.2878,  -0.6105, &rG06.o3_     );
-  make_pt(    6.6624,   3.5061,  -8.2986, &rG06.n1      );
-  make_pt(    6.5810,   3.2570,  -5.9221, &rG06.n3      );
-  make_pt(    6.5151,   2.8263,  -7.1625, &rG06.c2      );
-  make_pt(    6.8364,   4.5817,  -5.8882, &rG06.c4      );
-  make_pt(    7.0116,   5.4064,  -6.9609, &rG06.c5      );
-  make_pt(    6.9173,   4.8260,  -8.2361, &rG06.c6      );
-  make_pt(    6.2717,   1.5402,  -7.4250, &rG06._.G.n2  );
-  make_pt(    7.2573,   6.7070,  -6.5394, &rG06._.G.n7  );
-  make_pt(    6.9740,   5.3703,  -4.7760, &rG06._.G.n9  );
-  make_pt(    7.2238,   6.6275,  -5.2453, &rG06._.G.c8  );
-  make_pt(    7.0668,   5.5163,  -9.3763, &rG06._.G.o6  );
-  make_pt(    6.5754,   2.9964,  -9.1545, &rG06._.G.h1  );
-  make_pt(    6.1908,   1.1105,  -8.3354, &rG06._.G.h21 );
-  make_pt(    6.1346,   0.9352,  -6.6280, &rG06._.G.h22 );
-  make_pt(    7.4108,   7.6227,  -4.8418, &rG06._.G.h8  );
-
-  rG07.type = 'G';
-  make_tfo(   0.0894,  -0.6059,   0.7905,
-             -0.6810,   0.5420,   0.4924,
-             -0.7268,  -0.5824,  -0.3642,
-             34.1424,  45.9610, -11.8600, &rG07.dgf_base_tfo );
-  make_tfo(  -0.8644,  -0.4956,  -0.0851,
-             -0.0427,   0.2409,  -0.9696,
-              0.5010,  -0.8345,  -0.2294,
-              4.0167,  54.5377,  12.4779, &rG07.p_o3_275_tfo );
-  make_tfo(   0.3706,  -0.6167,   0.6945,
-             -0.2867,  -0.7872,  -0.5460,
-              0.8834,   0.0032,  -0.4686,
-            -52.9020,  18.6313,  -0.6709, &rG07.p_o3_180_tfo );
-  make_tfo(   0.4155,   0.9025,  -0.1137,
-              0.9040,  -0.4236,  -0.0582,
-             -0.1007,  -0.0786,  -0.9918,
-             -7.6624, -25.2080,  49.5181, &rG07.p_o3_60_tfo  );
-  make_pt(   31.3810,   0.1400,  47.5810, &rG07.p       );
-  make_pt(   29.9860,   0.6630,  47.6290, &rG07.o1p     );
-  make_pt(   31.7210,  -0.6460,  48.8090, &rG07.o2p     );
-  make_pt(   32.4940,   1.2540,  47.2740, &rG07.o5_     );
-  make_pt(   33.8709,   0.7918,  47.2113, &rG07.c5_     );
-  make_pt(   34.1386,   0.5870,  46.1747, &rG07.h5_     );
-  make_pt(   34.0186,  -0.0095,  47.9353, &rG07.h5__    );
-  make_pt(   34.7297,   1.9687,  47.6685, &rG07.c4_     );
-  make_pt(   35.7723,   1.6845,  47.8113, &rG07.h4_     );
-  make_pt(   34.6455,   2.9768,  46.6660, &rG07.o4_     );
-  make_pt(   34.1690,   4.1829,  47.2627, &rG07.c1_     );
-  make_pt(   35.0437,   4.7633,  47.5560, &rG07.h1_     );
-  make_pt(   33.4145,   3.7532,  48.4954, &rG07.c2_     );
-  make_pt(   32.4340,   3.3797,  48.2001, &rG07.h2__    );
-  make_pt(   33.3209,   4.6953,  49.5217, &rG07.o2_     );
-  make_pt(   33.2374,   5.6059,  49.2295, &rG07.h2_     );
-  make_pt(   34.2724,   2.5970,  48.9773, &rG07.c3_     );
-  make_pt(   33.6373,   1.8935,  49.5157, &rG07.h3_     );
-  make_pt(   35.3453,   3.1884,  49.7285, &rG07.o3_     );
-  make_pt(   34.0511,   7.8930,  43.7791, &rG07.n1      );
-  make_pt(   34.9937,   6.3369,  45.3199, &rG07.n3      );
-  make_pt(   35.0882,   7.3126,  44.4200, &rG07.c2      );
-  make_pt(   33.7190,   5.9650,  45.5374, &rG07.c4      );
-  make_pt(   32.5845,   6.4770,  44.9458, &rG07.c5      );
-  make_pt(   32.7430,   7.5179,  43.9914, &rG07.c6      );
-  make_pt(   36.3030,   7.7827,  44.1036, &rG07._.G.n2  );
-  make_pt(   31.4499,   5.8335,  45.4368, &rG07._.G.n7  );
-  make_pt(   33.2760,   4.9817,  46.4043, &rG07._.G.n9  );
-  make_pt(   31.9235,   4.9639,  46.2934, &rG07._.G.c8  );
-  make_pt(   31.8602,   8.1000,  43.3695, &rG07._.G.o6  );
-  make_pt(   34.2623,   8.6223,  43.1283, &rG07._.G.h1  );
-  make_pt(   36.5188,   8.5081,  43.4347, &rG07._.G.h21 );
-  make_pt(   37.0888,   7.3524,  44.5699, &rG07._.G.h22 );
-  make_pt(   31.0815,   4.4201,  46.7218, &rG07._.G.h8  );
-
-  rG08.type = 'G';
-  make_tfo(   0.2224,   0.6335,   0.7411,
-             -0.3644,  -0.6510,   0.6659,
-              0.9043,  -0.4181,   0.0861,
-            -47.6824,  -0.5823, -31.7554, &rG08.dgf_base_tfo );
-  make_tfo(  -0.8644,  -0.4956,  -0.0851,
-             -0.0427,   0.2409,  -0.9696,
-              0.5010,  -0.8345,  -0.2294,
-              4.0167,  54.5377,  12.4779, &rG08.p_o3_275_tfo );
-  make_tfo(   0.3706,  -0.6167,   0.6945,
-             -0.2867,  -0.7872,  -0.5460,
-              0.8834,   0.0032,  -0.4686,
-            -52.9020,  18.6313,  -0.6709, &rG08.p_o3_180_tfo );
-  make_tfo(   0.4155,   0.9025,  -0.1137,
-              0.9040,  -0.4236,  -0.0582,
-             -0.1007,  -0.0786,  -0.9918,
-             -7.6624, -25.2080,  49.5181, &rG08.p_o3_60_tfo  );
-  make_pt(   31.3810,   0.1400,  47.5810, &rG08.p       );
-  make_pt(   29.9860,   0.6630,  47.6290, &rG08.o1p     );
-  make_pt(   31.7210,  -0.6460,  48.8090, &rG08.o2p     );
-  make_pt(   32.4940,   1.2540,  47.2740, &rG08.o5_     );
-  make_pt(   32.5924,   2.3488,  48.2255, &rG08.c5_     );
-  make_pt(   33.3674,   2.1246,  48.9584, &rG08.h5_     );
-  make_pt(   31.5994,   2.5917,  48.6037, &rG08.h5__    );
-  make_pt(   33.0722,   3.5577,  47.4258, &rG08.c4_     );
-  make_pt(   33.0310,   4.4778,  48.0089, &rG08.h4_     );
-  make_pt(   34.4173,   3.3055,  47.0316, &rG08.o4_     );
-  make_pt(   34.5056,   3.3910,  45.6094, &rG08.c1_     );
-  make_pt(   34.7881,   4.4152,  45.3663, &rG08.h1_     );
-  make_pt(   33.1122,   3.1198,  45.1010, &rG08.c2_     );
-  make_pt(   32.9230,   2.0469,  45.1369, &rG08.h2__    );
-  make_pt(   32.7946,   3.6590,  43.8529, &rG08.o2_     );
-  make_pt(   33.5170,   3.6707,  43.2207, &rG08.h2_     );
-  make_pt(   32.2730,   3.8173,  46.1566, &rG08.c3_     );
-  make_pt(   31.3094,   3.3123,  46.2244, &rG08.h3_     );
-  make_pt(   32.2391,   5.2039,  45.7807, &rG08.o3_     );
-  make_pt(   39.3337,   2.7157,  44.1441, &rG08.n1      );
-  make_pt(   37.4430,   3.8242,  45.0824, &rG08.n3      );
-  make_pt(   38.7276,   3.7646,  44.7403, &rG08.c2      );
-  make_pt(   36.7791,   2.6963,  44.7704, &rG08.c4      );
-  make_pt(   37.2860,   1.5653,  44.1678, &rG08.c5      );
-  make_pt(   38.6647,   1.5552,  43.8235, &rG08.c6      );
-  make_pt(   39.5123,   4.8216,  44.9936, &rG08._.G.n2  );
-  make_pt(   36.2829,   0.6110,  44.0078, &rG08._.G.n7  );
-  make_pt(   35.4394,   2.4314,  44.9931, &rG08._.G.n9  );
-  make_pt(   35.2180,   1.1815,  44.5128, &rG08._.G.c8  );
-  make_pt(   39.2907,   0.6514,  43.2796, &rG08._.G.o6  );
-  make_pt(   40.3076,   2.8048,  43.9352, &rG08._.G.h1  );
-  make_pt(   40.4994,   4.9066,  44.7977, &rG08._.G.h21 );
-  make_pt(   39.0738,   5.6108,  45.4464, &rG08._.G.h22 );
-  make_pt(   34.3856,   0.4842,  44.4185, &rG08._.G.h8  );
-
-  rG09.type = 'G';
-  make_tfo(  -0.9699,  -0.1688,  -0.1753,
-             -0.1050,  -0.3598,   0.9271,
-             -0.2196,   0.9176,   0.3312,
-             45.6217, -38.9484, -12.3208, &rG09.dgf_base_tfo );
-  make_tfo(  -0.8644,  -0.4956,  -0.0851,
-             -0.0427,   0.2409,  -0.9696,
-              0.5010,  -0.8345,  -0.2294,
-              4.0167,  54.5377,  12.4779, &rG09.p_o3_275_tfo );
-  make_tfo(   0.3706,  -0.6167,   0.6945,
-             -0.2867,  -0.7872,  -0.5460,
-              0.8834,   0.0032,  -0.4686,
-            -52.9020,  18.6313,  -0.6709, &rG09.p_o3_180_tfo );
-  make_tfo(   0.4155,   0.9025,  -0.1137,
-              0.9040,  -0.4236,  -0.0582,
-             -0.1007,  -0.0786,  -0.9918,
-             -7.6624, -25.2080,  49.5181, &rG09.p_o3_60_tfo  );
-  make_pt(   31.3810,   0.1400,  47.5810, &rG09.p       );
-  make_pt(   29.9860,   0.6630,  47.6290, &rG09.o1p     );
-  make_pt(   31.7210,  -0.6460,  48.8090, &rG09.o2p     );
-  make_pt(   32.4940,   1.2540,  47.2740, &rG09.o5_     );
-  make_pt(   33.8709,   0.7918,  47.2113, &rG09.c5_     );
-  make_pt(   34.1386,   0.5870,  46.1747, &rG09.h5_     );
-  make_pt(   34.0186,  -0.0095,  47.9353, &rG09.h5__    );
-  make_pt(   34.7297,   1.9687,  47.6685, &rG09.c4_     );
-  make_pt(   34.5880,   2.8482,  47.0404, &rG09.h4_     );
-  make_pt(   34.3575,   2.2770,  49.0081, &rG09.o4_     );
-  make_pt(   35.5157,   2.1993,  49.8389, &rG09.c1_     );
-  make_pt(   35.9424,   3.2010,  49.8893, &rG09.h1_     );
-  make_pt(   36.4701,   1.2820,  49.1169, &rG09.c2_     );
-  make_pt(   36.1545,   0.2498,  49.2683, &rG09.h2__    );
-  make_pt(   37.8262,   1.4547,  49.4008, &rG09.o2_     );
-  make_pt(   38.0227,   1.6945,  50.3094, &rG09.h2_     );
-  make_pt(   36.2242,   1.6797,  47.6725, &rG09.c3_     );
-  make_pt(   36.4297,   0.8197,  47.0351, &rG09.h3_     );
-  make_pt(   37.0289,   2.8480,  47.4426, &rG09.o3_     );
-  make_pt(   34.3005,   3.5042,  54.6070, &rG09.n1      );
-  make_pt(   34.7693,   3.7936,  52.2874, &rG09.n3      );
-  make_pt(   34.4484,   4.2541,  53.4939, &rG09.c2      );
-  make_pt(   34.9354,   2.4584,  52.2785, &rG09.c4      );
-  make_pt(   34.8092,   1.5915,  53.3422, &rG09.c5      );
-  make_pt(   34.4646,   2.1367,  54.6085, &rG09.c6      );
-  make_pt(   34.2514,   5.5708,  53.6503, &rG09._.G.n2  );
-  make_pt(   35.0641,   0.2835,  52.9337, &rG09._.G.n7  );
-  make_pt(   35.2669,   1.6690,  51.1915, &rG09._.G.n9  );
-  make_pt(   35.3288,   0.3954,  51.6563, &rG09._.G.c8  );
-  make_pt(   34.3151,   1.5317,  55.6650, &rG09._.G.o6  );
-  make_pt(   34.0623,   3.9797,  55.4539, &rG09._.G.h1  );
-  make_pt(   33.9950,   6.0502,  54.5016, &rG09._.G.h21 );
-  make_pt(   34.3512,   6.1432,  52.8242, &rG09._.G.h22 );
-  make_pt(   35.5414,  -0.6006,  51.2679, &rG09._.G.h8  );
-
-  rG10.type = 'G';
-  make_tfo(  -0.0980,  -0.9723,   0.2122,
-             -0.9731,   0.1383,   0.1841,
-             -0.2083,  -0.1885,  -0.9597,
-             17.8469,  38.8265,  37.0475, &rG10.dgf_base_tfo );
-  make_tfo(  -0.8644,  -0.4956,  -0.0851,
-             -0.0427,   0.2409,  -0.9696,
-              0.5010,  -0.8345,  -0.2294,
-              4.0167,  54.5377,  12.4779, &rG10.p_o3_275_tfo );
-  make_tfo(   0.3706,  -0.6167,   0.6945,
-             -0.2867,  -0.7872,  -0.5460,
-              0.8834,   0.0032,  -0.4686,
-            -52.9020,  18.6313,  -0.6709, &rG10.p_o3_180_tfo );
-  make_tfo(   0.4155,   0.9025,  -0.1137,
-              0.9040,  -0.4236,  -0.0582,
-             -0.1007,  -0.0786,  -0.9918,
-             -7.6624, -25.2080,  49.5181, &rG10.p_o3_60_tfo  );
-  make_pt(   31.3810,   0.1400,  47.5810, &rG10.p       );
-  make_pt(   29.9860,   0.6630,  47.6290, &rG10.o1p     );
-  make_pt(   31.7210,  -0.6460,  48.8090, &rG10.o2p     );
-  make_pt(   32.4940,   1.2540,  47.2740, &rG10.o5_     );
-  make_pt(   32.5924,   2.3488,  48.2255, &rG10.c5_     );
-  make_pt(   33.3674,   2.1246,  48.9584, &rG10.h5_     );
-  make_pt(   31.5994,   2.5917,  48.6037, &rG10.h5__    );
-  make_pt(   33.0722,   3.5577,  47.4258, &rG10.c4_     );
-  make_pt(   34.0333,   3.3761,  46.9447, &rG10.h4_     );
-  make_pt(   32.0890,   3.8338,  46.4332, &rG10.o4_     );
-  make_pt(   31.6377,   5.1787,  46.5914, &rG10.c1_     );
-  make_pt(   32.2499,   5.8016,  45.9392, &rG10.h1_     );
-  make_pt(   31.9167,   5.5319,  48.0305, &rG10.c2_     );
-  make_pt(   31.1507,   5.0820,  48.6621, &rG10.h2__    );
-  make_pt(   32.0865,   6.8890,  48.3114, &rG10.o2_     );
-  make_pt(   31.5363,   7.4819,  47.7942, &rG10.h2_     );
-  make_pt(   33.2398,   4.8224,  48.2563, &rG10.c3_     );
-  make_pt(   33.3166,   4.5570,  49.3108, &rG10.h3_     );
-  make_pt(   34.2528,   5.7056,  47.7476, &rG10.o3_     );
-  make_pt(   28.2782,   6.3049,  42.9364, &rG10.n1      );
-  make_pt(   30.4001,   5.8547,  43.9258, &rG10.n3      );
-  make_pt(   29.6195,   6.1568,  42.8913, &rG10.c2      );
-  make_pt(   29.7005,   5.7006,  45.0649, &rG10.c4      );
-  make_pt(   28.3383,   5.8221,  45.2343, &rG10.c5      );
-  make_pt(   27.5519,   6.1461,  44.0958, &rG10.c6      );
-  make_pt(   30.1838,   6.3385,  41.6890, &rG10._.G.n2  );
-  make_pt(   27.9936,   5.5926,  46.5651, &rG10._.G.n7  );
-  make_pt(   30.2046,   5.3825,  46.3136, &rG10._.G.n9  );
-  make_pt(   29.1371,   5.3398,  47.1506, &rG10._.G.c8  );
-  make_pt(   26.3361,   6.3024,  44.0495, &rG10._.G.o6  );
-  make_pt(   27.8122,   6.5394,  42.0833, &rG10._.G.h1  );
-  make_pt(   29.7125,   6.5595,  40.8235, &rG10._.G.h21 );
-  make_pt(   31.1859,   6.2231,  41.6389, &rG10._.G.h22 );
-  make_pt(   28.9406,   5.1504,  48.2059, &rG10._.G.h8  );
-
-  rGs[0] = &rG10;
-  rGs[1] = &rG09;
-  rGs[2] = &rG08;
-  rGs[3] = &rG07;
-  rGs[4] = &rG06;
-  rGs[5] = &rG05;
-  rGs[6] = &rG04;
-  rGs[7] = &rG03;
-  rGs[8] = &rG02;
-  rGs[9] = &rG01;
-  rGs[10]= 0;
-}
-
-void init_U()
-{
-  rU.type = 'U';
-  make_tfo(  -0.0359,  -0.8071,   0.5894,
-             -0.2669,   0.5761,   0.7726,
-             -0.9631,  -0.1296,  -0.2361,
-              0.1584,   8.3434,   0.5434, &rU.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU.p         );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU.o1p       );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU.o2p       );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU.o5_       );
-  make_pt(    5.2430,  -8.2420,   2.8260, &rU.c5_       );
-  make_pt(    5.1974,  -8.8497,   1.9223, &rU.h5_       );
-  make_pt(    5.5548,  -8.7348,   3.7469, &rU.h5__      );
-  make_pt(    6.3140,  -7.2060,   2.5510, &rU.c4_       );
-  make_pt(    7.2954,  -7.6762,   2.4898, &rU.h4_       );
-  make_pt(    6.0140,  -6.5420,   1.2890, &rU.o4_       );
-  make_pt(    6.4190,  -5.1840,   1.3620, &rU.c1_       );
-  make_pt(    7.1608,  -5.0495,   0.5747, &rU.h1_       );
-  make_pt(    7.0760,  -4.9560,   2.7270, &rU.c2_       );
-  make_pt(    6.7770,  -3.9803,   3.1099, &rU.h2__      );
-  make_pt(    8.4500,  -5.1930,   2.5810, &rU.o2_       );
-  make_pt(    8.8309,  -4.8755,   1.7590, &rU.h2_       );
-  make_pt(    6.4060,  -6.0590,   3.5580, &rU.c3_       );
-  make_pt(    5.4021,  -5.7313,   3.8281, &rU.h3_       );
-  make_pt(    7.1570,  -6.4240,   4.7070, &rU.o3_       );
-  make_pt(    5.2170,  -4.3260,   1.1690, &rU.n1        );
-  make_pt(    4.2960,  -2.2560,   0.6290, &rU.n3        );
-  make_pt(    5.4330,  -3.0200,   0.7990, &rU.c2        );
-  make_pt(    2.9930,  -2.6780,   0.7940, &rU.c4        );
-  make_pt(    2.8670,  -4.0630,   1.1830, &rU.c5        );
-  make_pt(    3.9570,  -4.8300,   1.3550, &rU.c6        );
-  make_pt(    6.5470,  -2.5560,   0.6290, &rU._.U.o2    );
-  make_pt(    2.0540,  -1.9000,   0.6130, &rU._.U.o4    );
-  make_pt(    4.4300,  -1.3020,   0.3600, &rU._.U.h3    );
-  make_pt(    1.9590,  -4.4570,   1.3250, &rU._.U.h5    );
-  make_pt(    3.8460,  -5.7860,   1.6240, &rU._.U.h6    );
-
-  rU01.type = 'U';
-  make_tfo(  -0.0137,  -0.8012,   0.5983,
-             -0.2523,   0.5817,   0.7733,
-             -0.9675,  -0.1404,  -0.2101,
-              0.2031,   8.3874,   0.4228, &rU01.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU01.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU01.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU01.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU01.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU01.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU01.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU01.o5_     );
-  make_pt(    5.2416,  -8.2422,   2.8181, &rU01.c5_     );
-  make_pt(    5.2050,  -8.8128,   1.8901, &rU01.h5_     );
-  make_pt(    5.5368,  -8.7738,   3.7227, &rU01.h5__    );
-  make_pt(    6.3232,  -7.2037,   2.6002, &rU01.c4_     );
-  make_pt(    7.3048,  -7.6757,   2.5577, &rU01.h4_     );
-  make_pt(    6.0635,  -6.5092,   1.3456, &rU01.o4_     );
-  make_pt(    6.4697,  -5.1547,   1.4629, &rU01.c1_     );
-  make_pt(    7.2354,  -5.0043,   0.7018, &rU01.h1_     );
-  make_pt(    7.0856,  -4.9610,   2.8521, &rU01.c2_     );
-  make_pt(    6.7777,  -3.9935,   3.2487, &rU01.h2__    );
-  make_pt(    8.4627,  -5.1992,   2.7423, &rU01.o2_     );
-  make_pt(    8.8693,  -4.8638,   1.9399, &rU01.h2_     );
-  make_pt(    6.3877,  -6.0809,   3.6362, &rU01.c3_     );
-  make_pt(    5.3770,  -5.7562,   3.8834, &rU01.h3_     );
-  make_pt(    7.1024,  -6.4754,   4.7985, &rU01.o3_     );
-  make_pt(    5.2764,  -4.2883,   1.2538, &rU01.n1      );
-  make_pt(    4.3777,  -2.2062,   0.7229, &rU01.n3      );
-  make_pt(    5.5069,  -2.9779,   0.9088, &rU01.c2      );
-  make_pt(    3.0693,  -2.6246,   0.8500, &rU01.c4      );
-  make_pt(    2.9279,  -4.0146,   1.2149, &rU01.c5      );
-  make_pt(    4.0101,  -4.7892,   1.4017, &rU01.c6      );
-  make_pt(    6.6267,  -2.5166,   0.7728, &rU01._.U.o2  );
-  make_pt(    2.1383,  -1.8396,   0.6581, &rU01._.U.o4  );
-  make_pt(    4.5223,  -1.2489,   0.4716, &rU01._.U.h3  );
-  make_pt(    2.0151,  -4.4065,   1.3290, &rU01._.U.h5  );
-  make_pt(    3.8886,  -5.7486,   1.6535, &rU01._.U.h6  );
-
-  rU02.type = 'U';
-  make_tfo(   0.5141,   0.0246,   0.8574,
-             -0.5547,  -0.7529,   0.3542,
-              0.6542,  -0.6577,  -0.3734,
-             -9.1111,  -3.4598,  -3.2939, &rU02.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU02.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU02.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU02.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU02.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU02.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU02.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU02.o5_     );
-  make_pt(    4.3825,  -6.6585,   4.0489, &rU02.c5_     );
-  make_pt(    4.6841,  -7.2019,   4.9443, &rU02.h5_     );
-  make_pt(    3.6189,  -5.8889,   4.1625, &rU02.h5__    );
-  make_pt(    5.6255,  -5.9175,   3.5998, &rU02.c4_     );
-  make_pt(    5.8732,  -5.1228,   4.3034, &rU02.h4_     );
-  make_pt(    6.7337,  -6.8605,   3.5222, &rU02.o4_     );
-  make_pt(    7.5932,  -6.4923,   2.4548, &rU02.c1_     );
-  make_pt(    8.5661,  -6.2983,   2.9064, &rU02.h1_     );
-  make_pt(    7.0527,  -5.2012,   1.8322, &rU02.c2_     );
-  make_pt(    7.1627,  -5.2525,   0.7490, &rU02.h2__    );
-  make_pt(    7.6666,  -4.1249,   2.4880, &rU02.o2_     );
-  make_pt(    8.5944,  -4.2543,   2.6981, &rU02.h2_     );
-  make_pt(    5.5661,  -5.3029,   2.2009, &rU02.c3_     );
-  make_pt(    5.0841,  -6.0018,   1.5172, &rU02.h3_     );
-  make_pt(    4.9062,  -4.0452,   2.2042, &rU02.o3_     );
-  make_pt(    7.6298,  -7.6136,   1.4752, &rU02.n1      );
-  make_pt(    8.6945,  -8.7046,  -0.2857, &rU02.n3      );
-  make_pt(    8.6943,  -7.6514,   0.6066, &rU02.c2      );
-  make_pt(    7.7426,  -9.6987,  -0.3801, &rU02.c4      );
-  make_pt(    6.6642,  -9.5742,   0.5722, &rU02.c5      );
-  make_pt(    6.6391,  -8.5592,   1.4526, &rU02.c6      );
-  make_pt(    9.5840,  -6.8186,   0.6136, &rU02._.U.o2  );
-  make_pt(    7.8505, -10.5925,  -1.2223, &rU02._.U.o4  );
-  make_pt(    9.4601,  -8.7514,  -0.9277, &rU02._.U.h3  );
-  make_pt(    5.9281, -10.2509,   0.5782, &rU02._.U.h5  );
-  make_pt(    5.8831,  -8.4931,   2.1028, &rU02._.U.h6  );
-
-  rU03.type = 'U';
-  make_tfo(  -0.4993,   0.0476,   0.8651,
-              0.8078,  -0.3353,   0.4847,
-              0.3132,   0.9409,   0.1290,
-              6.2989,  -5.2303,  -3.8577, &rU03.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU03.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU03.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU03.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU03.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU03.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU03.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU03.o5_     );
-  make_pt(    3.9938,  -6.7042,   1.9023, &rU03.c5_     );
-  make_pt(    3.2332,  -5.9343,   2.0319, &rU03.h5_     );
-  make_pt(    3.9666,  -7.2863,   0.9812, &rU03.h5__    );
-  make_pt(    5.3098,  -5.9546,   1.8564, &rU03.c4_     );
-  make_pt(    5.3863,  -5.3702,   0.9395, &rU03.h4_     );
-  make_pt(    5.3851,  -5.0642,   3.0076, &rU03.o4_     );
-  make_pt(    6.7315,  -4.9724,   3.4462, &rU03.c1_     );
-  make_pt(    7.0033,  -3.9202,   3.3619, &rU03.h1_     );
-  make_pt(    7.5997,  -5.8018,   2.4948, &rU03.c2_     );
-  make_pt(    8.3627,  -6.3254,   3.0707, &rU03.h2__    );
-  make_pt(    8.0410,  -4.9501,   1.4724, &rU03.o2_     );
-  make_pt(    8.2781,  -4.0644,   1.7570, &rU03.h2_     );
-  make_pt(    6.5701,  -6.8129,   1.9714, &rU03.c3_     );
-  make_pt(    6.4186,  -7.5809,   2.7299, &rU03.h3_     );
-  make_pt(    6.9357,  -7.3841,   0.7235, &rU03.o3_     );
-  make_pt(    6.8024,  -5.4718,   4.8475, &rU03.n1      );
-  make_pt(    7.9218,  -5.5700,   6.8877, &rU03.n3      );
-  make_pt(    7.8908,  -5.0886,   5.5944, &rU03.c2      );
-  make_pt(    6.9789,  -6.3827,   7.4823, &rU03.c4      );
-  make_pt(    5.8742,  -6.7319,   6.6202, &rU03.c5      );
-  make_pt(    5.8182,  -6.2769,   5.3570, &rU03.c6      );
-  make_pt(    8.7747,  -4.3728,   5.1568, &rU03._.U.o2  );
-  make_pt(    7.1154,  -6.7509,   8.6509, &rU03._.U.o4  );
-  make_pt(    8.7055,  -5.3037,   7.4491, &rU03._.U.h3  );
-  make_pt(    5.1416,  -7.3178,   6.9665, &rU03._.U.h5  );
-  make_pt(    5.0441,  -6.5310,   4.7784, &rU03._.U.h6  );
-
-  rU04.type = 'U';
-  make_tfo(  -0.5669,  -0.8012,   0.1918,
-             -0.8129,   0.5817,   0.0273,
-             -0.1334,  -0.1404,  -0.9811,
-             -0.3279,   8.3874,   0.3355, &rU04.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU04.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU04.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU04.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU04.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU04.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU04.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU04.o5_     );
-  make_pt(    5.2416,  -8.2422,   2.8181, &rU04.c5_     );
-  make_pt(    5.2050,  -8.8128,   1.8901, &rU04.h5_     );
-  make_pt(    5.5368,  -8.7738,   3.7227, &rU04.h5__    );
-  make_pt(    6.3232,  -7.2037,   2.6002, &rU04.c4_     );
-  make_pt(    7.3048,  -7.6757,   2.5577, &rU04.h4_     );
-  make_pt(    6.0635,  -6.5092,   1.3456, &rU04.o4_     );
-  make_pt(    6.4697,  -5.1547,   1.4629, &rU04.c1_     );
-  make_pt(    7.2354,  -5.0043,   0.7018, &rU04.h1_     );
-  make_pt(    7.0856,  -4.9610,   2.8521, &rU04.c2_     );
-  make_pt(    6.7777,  -3.9935,   3.2487, &rU04.h2__    );
-  make_pt(    8.4627,  -5.1992,   2.7423, &rU04.o2_     );
-  make_pt(    8.8693,  -4.8638,   1.9399, &rU04.h2_     );
-  make_pt(    6.3877,  -6.0809,   3.6362, &rU04.c3_     );
-  make_pt(    5.3770,  -5.7562,   3.8834, &rU04.h3_     );
-  make_pt(    7.1024,  -6.4754,   4.7985, &rU04.o3_     );
-  make_pt(    5.2764,  -4.2883,   1.2538, &rU04.n1      );
-  make_pt(    3.8961,  -3.0896,  -0.1893, &rU04.n3      );
-  make_pt(    5.0095,  -3.8907,  -0.0346, &rU04.c2      );
-  make_pt(    3.0480,  -2.6632,   0.8116, &rU04.c4      );
-  make_pt(    3.4093,  -3.1310,   2.1292, &rU04.c5      );
-  make_pt(    4.4878,  -3.9124,   2.3088, &rU04.c6      );
-  make_pt(    5.7005,  -4.2164,  -0.9842, &rU04._.U.o2  );
-  make_pt(    2.0800,  -1.9458,   0.5503, &rU04._.U.o4  );
-  make_pt(    3.6834,  -2.7882,  -1.1190, &rU04._.U.h3  );
-  make_pt(    2.8508,  -2.8721,   2.9172, &rU04._.U.h5  );
-  make_pt(    4.7188,  -4.2247,   3.2295, &rU04._.U.h6  );
-
-  rU05.type = 'U';
-  make_tfo(  -0.6298,   0.0246,   0.7763,
-             -0.5226,  -0.7529,  -0.4001,
-              0.5746,  -0.6577,   0.4870,
-             -0.0208,  -3.4598,  -9.6882, &rU05.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU05.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU05.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU05.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU05.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU05.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU05.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU05.o5_     );
-  make_pt(    4.3825,  -6.6585,   4.0489, &rU05.c5_     );
-  make_pt(    4.6841,  -7.2019,   4.9443, &rU05.h5_     );
-  make_pt(    3.6189,  -5.8889,   4.1625, &rU05.h5__    );
-  make_pt(    5.6255,  -5.9175,   3.5998, &rU05.c4_     );
-  make_pt(    5.8732,  -5.1228,   4.3034, &rU05.h4_     );
-  make_pt(    6.7337,  -6.8605,   3.5222, &rU05.o4_     );
-  make_pt(    7.5932,  -6.4923,   2.4548, &rU05.c1_     );
-  make_pt(    8.5661,  -6.2983,   2.9064, &rU05.h1_     );
-  make_pt(    7.0527,  -5.2012,   1.8322, &rU05.c2_     );
-  make_pt(    7.1627,  -5.2525,   0.7490, &rU05.h2__    );
-  make_pt(    7.6666,  -4.1249,   2.4880, &rU05.o2_     );
-  make_pt(    8.5944,  -4.2543,   2.6981, &rU05.h2_     );
-  make_pt(    5.5661,  -5.3029,   2.2009, &rU05.c3_     );
-  make_pt(    5.0841,  -6.0018,   1.5172, &rU05.h3_     );
-  make_pt(    4.9062,  -4.0452,   2.2042, &rU05.o3_     );
-  make_pt(    7.6298,  -7.6136,   1.4752, &rU05.n1      );
-  make_pt(    8.5977,  -9.5977,   0.7329, &rU05.n3      );
-  make_pt(    8.5951,  -8.5745,   1.6594, &rU05.c2      );
-  make_pt(    7.7372,  -9.7371,  -0.3364, &rU05.c4      );
-  make_pt(    6.7596,  -8.6801,  -0.4476, &rU05.c5      );
-  make_pt(    6.7338,  -7.6721,   0.4408, &rU05.c6      );
-  make_pt(    9.3993,  -8.5377,   2.5743, &rU05._.U.o2  );
-  make_pt(    7.8374, -10.6990,  -1.1008, &rU05._.U.o4  );
-  make_pt(    9.2924, -10.3081,   0.8477, &rU05._.U.h3  );
-  make_pt(    6.0932,  -8.6982,  -1.1929, &rU05._.U.h5  );
-  make_pt(    6.0481,  -6.9515,   0.3446, &rU05._.U.h6  );
-
-  rU06.type = 'U';
-  make_tfo(  -0.9837,   0.0476,  -0.1733,
-             -0.1792,  -0.3353,   0.9249,
-             -0.0141,   0.9409,   0.3384,
-              5.7793,  -5.2303,   4.5997, &rU06.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU06.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU06.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU06.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU06.p       );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU06.o1p     );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU06.o2p     );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU06.o5_     );
-  make_pt(    3.9938,  -6.7042,   1.9023, &rU06.c5_     );
-  make_pt(    3.2332,  -5.9343,   2.0319, &rU06.h5_     );
-  make_pt(    3.9666,  -7.2863,   0.9812, &rU06.h5__    );
-  make_pt(    5.3098,  -5.9546,   1.8564, &rU06.c4_     );
-  make_pt(    5.3863,  -5.3702,   0.9395, &rU06.h4_     );
-  make_pt(    5.3851,  -5.0642,   3.0076, &rU06.o4_     );
-  make_pt(    6.7315,  -4.9724,   3.4462, &rU06.c1_     );
-  make_pt(    7.0033,  -3.9202,   3.3619, &rU06.h1_     );
-  make_pt(    7.5997,  -5.8018,   2.4948, &rU06.c2_     );
-  make_pt(    8.3627,  -6.3254,   3.0707, &rU06.h2__    );
-  make_pt(    8.0410,  -4.9501,   1.4724, &rU06.o2_     );
-  make_pt(    8.2781,  -4.0644,   1.7570, &rU06.h2_     );
-  make_pt(    6.5701,  -6.8129,   1.9714, &rU06.c3_     );
-  make_pt(    6.4186,  -7.5809,   2.7299, &rU06.h3_     );
-  make_pt(    6.9357,  -7.3841,   0.7235, &rU06.o3_     );
-  make_pt(    6.8024,  -5.4718,   4.8475, &rU06.n1      );
-  make_pt(    6.6920,  -5.0495,   7.1354, &rU06.n3      );
-  make_pt(    6.6201,  -4.5500,   5.8506, &rU06.c2      );
-  make_pt(    6.9254,  -6.3614,   7.4926, &rU06.c4      );
-  make_pt(    7.1046,  -7.2543,   6.3718, &rU06.c5      );
-  make_pt(    7.0391,  -6.7951,   5.1106, &rU06.c6      );
-  make_pt(    6.4083,  -3.3696,   5.6340, &rU06._.U.o2  );
-  make_pt(    6.9679,  -6.6901,   8.6800, &rU06._.U.o4  );
-  make_pt(    6.5626,  -4.3957,   7.8812, &rU06._.U.h3  );
-  make_pt(    7.2781,  -8.2254,   6.5350, &rU06._.U.h5  );
-  make_pt(    7.1657,  -7.4312,   4.3503, &rU06._.U.h6  );
-
-  rU07.type = 'U';
-  make_tfo(  -0.9434,   0.3172,   0.0971,
-              0.2294,   0.4125,   0.8816,
-              0.2396,   0.8539,  -0.4619,
-              8.3625, -52.7147,   1.3745, &rU07.dgf_base_tfo );
-  make_tfo(   0.2765,  -0.1121,  -0.9545,
-             -0.8297,   0.4733,  -0.2959,
-              0.4850,   0.8737,   0.0379,
-            -14.7774, -45.2464,  21.9088, &rU07.p_o3_275_tfo );
-  make_tfo(   0.1063,  -0.6334,  -0.7665,
-             -0.5932,  -0.6591,   0.4624,
-             -0.7980,   0.4055,  -0.4458,
-             43.7634,   4.3296,  28.4890, &rU07.p_o3_180_tfo );
-  make_tfo(   0.7136,  -0.5032,  -0.4873,
-              0.6803,   0.3317,   0.6536,
-             -0.1673,  -0.7979,   0.5791,
-            -17.1858,  41.4390, -27.0751, &rU07.p_o3_60_tfo  );
-  make_pt(   21.3880,  15.0780,  45.5770, &rU07.p       );
-  make_pt(   21.9980,  14.5500,  46.8210, &rU07.o1p     );
-  make_pt(   21.1450,  14.0270,  44.5420, &rU07.o2p     );
-  make_pt(   22.1250,  16.3600,  44.9460, &rU07.o5_     );
-  make_pt(   21.5037,  16.8594,  43.7323, &rU07.c5_     );
-  make_pt(   20.8147,  17.6663,  43.9823, &rU07.h5_     );
-  make_pt(   21.1086,  16.0230,  43.1557, &rU07.h5__    );
-  make_pt(   22.5654,  17.4874,  42.8616, &rU07.c4_     );
-  make_pt(   22.1584,  17.7243,  41.8785, &rU07.h4_     );
-  make_pt(   23.0557,  18.6826,  43.4751, &rU07.o4_     );
-  make_pt(   24.4788,  18.6151,  43.6455, &rU07.c1_     );
-  make_pt(   24.9355,  19.0840,  42.7739, &rU07.h1_     );
-  make_pt(   24.7958,  17.1427,  43.6474, &rU07.c2_     );
-  make_pt(   24.5652,  16.7400,  44.6336, &rU07.h2__    );
-  make_pt(   26.1041,  16.8773,  43.2455, &rU07.o2_     );
-  make_pt(   26.7516,  17.5328,  43.5149, &rU07.h2_     );
-  make_pt(   23.8109,  16.5979,  42.6377, &rU07.c3_     );
-  make_pt(   23.5756,  15.5686,  42.9084, &rU07.h3_     );
-  make_pt(   24.2890,  16.7447,  41.2729, &rU07.o3_     );
-  make_pt(   24.9420,  19.2174,  44.8923, &rU07.n1      );
-  make_pt(   25.2655,  20.5636,  44.8883, &rU07.n3      );
-  make_pt(   25.1663,  21.2219,  43.8561, &rU07.c2      );
-  make_pt(   25.6911,  21.1219,  46.0494, &rU07.c4      );
-  make_pt(   25.8051,  20.4068,  47.2048, &rU07.c5      );
-  make_pt(   26.2093,  20.9962,  48.2534, &rU07.c6      );
-  make_pt(   25.4692,  19.0221,  47.2053, &rU07._.U.o2  );
-  make_pt(   25.0502,  18.4827,  46.0370, &rU07._.U.o4  );
-  make_pt(   25.9599,  22.1772,  46.0966, &rU07._.U.h3  );
-  make_pt(   25.5545,  18.4409,  48.1234, &rU07._.U.h5  );
-  make_pt(   24.7854,  17.4265,  45.9883, &rU07._.U.h6  );
-
-  rU08.type = 'U';
-  make_tfo(  -0.0080,  -0.7928,   0.6094,
-             -0.7512,   0.4071,   0.5197,
-             -0.6601,  -0.4536,  -0.5988,
-             44.1482,  30.7036,   2.1088, &rU08.dgf_base_tfo );
-  make_tfo(   0.2765,  -0.1121,  -0.9545,
-             -0.8297,   0.4733,  -0.2959,
-              0.4850,   0.8737,   0.0379,
-            -14.7774, -45.2464,  21.9088, &rU08.p_o3_275_tfo );
-  make_tfo(   0.1063,  -0.6334,  -0.7665,
-             -0.5932,  -0.6591,   0.4624,
-             -0.7980,   0.4055,  -0.4458,
-             43.7634,   4.3296,  28.4890, &rU08.p_o3_180_tfo );
-  make_tfo(   0.7136,  -0.5032,  -0.4873,
-              0.6803,   0.3317,   0.6536,
-             -0.1673,  -0.7979,   0.5791,
-            -17.1858,  41.4390, -27.0751, &rU08.p_o3_60_tfo  );
-  make_pt(   21.3880,  15.0780,  45.5770, &rU08.p       );
-  make_pt(   21.9980,  14.5500,  46.8210, &rU08.o1p     );
-  make_pt(   21.1450,  14.0270,  44.5420, &rU08.o2p     );
-  make_pt(   22.1250,  16.3600,  44.9460, &rU08.o5_     );
-  make_pt(   23.5096,  16.1227,  44.5783, &rU08.c5_     );
-  make_pt(   23.5649,  15.8588,  43.5222, &rU08.h5_     );
-  make_pt(   23.9621,  15.4341,  45.2919, &rU08.h5__    );
-  make_pt(   24.2805,  17.4138,  44.7151, &rU08.c4_     );
-  make_pt(   25.3492,  17.2309,  44.6030, &rU08.h4_     );
-  make_pt(   23.8497,  18.3471,  43.7208, &rU08.o4_     );
-  make_pt(   23.4090,  19.5681,  44.3321, &rU08.c1_     );
-  make_pt(   24.2595,  20.2496,  44.3524, &rU08.h1_     );
-  make_pt(   23.0418,  19.1813,  45.7407, &rU08.c2_     );
-  make_pt(   22.0532,  18.7224,  45.7273, &rU08.h2__    );
-  make_pt(   23.1307,  20.2521,  46.6291, &rU08.o2_     );
-  make_pt(   22.8888,  21.1051,  46.2611, &rU08.h2_     );
-  make_pt(   24.0799,  18.1326,  46.0700, &rU08.c3_     );
-  make_pt(   23.6490,  17.4370,  46.7900, &rU08.h3_     );
-  make_pt(   25.3329,  18.7227,  46.5109, &rU08.o3_     );
-  make_pt(   22.2515,  20.1624,  43.6698, &rU08.n1      );
-  make_pt(   22.4760,  21.0609,  42.6406, &rU08.n3      );
-  make_pt(   23.6229,  21.3462,  42.3061, &rU08.c2      );
-  make_pt(   21.3986,  21.6081,  42.0236, &rU08.c4      );
-  make_pt(   20.1189,  21.3012,  42.3804, &rU08.c5      );
-  make_pt(   19.1599,  21.8516,  41.7578, &rU08.c6      );
-  make_pt(   19.8919,  20.3745,  43.4387, &rU08._.U.o2  );
-  make_pt(   20.9790,  19.8423,  44.0440, &rU08._.U.o4  );
-  make_pt(   21.5235,  22.3222,  41.2097, &rU08._.U.h3  );
-  make_pt(   18.8732,  20.1200,  43.7312, &rU08._.U.h5  );
-  make_pt(   20.8545,  19.1313,  44.8608, &rU08._.U.h6  );
-
-  rU09.type = 'U';
-  make_tfo(  -0.0317,   0.1374,   0.9900,
-             -0.3422,  -0.9321,   0.1184,
-              0.9391,  -0.3351,   0.0765,
-            -32.1929,  25.8198, -28.5088, &rU09.dgf_base_tfo );
-  make_tfo(   0.2765,  -0.1121,  -0.9545,
-             -0.8297,   0.4733,  -0.2959,
-              0.4850,   0.8737,   0.0379,
-            -14.7774, -45.2464,  21.9088, &rU09.p_o3_275_tfo );
-  make_tfo(   0.1063,  -0.6334,  -0.7665,
-             -0.5932,  -0.6591,   0.4624,
-             -0.7980,   0.4055,  -0.4458,
-             43.7634,   4.3296,  28.4890, &rU09.p_o3_180_tfo );
-  make_tfo(   0.7136,  -0.5032,  -0.4873,
-              0.6803,   0.3317,   0.6536,
-             -0.1673,  -0.7979,   0.5791,
-            -17.1858,  41.4390, -27.0751, &rU09.p_o3_60_tfo  );
-  make_pt(   21.3880,  15.0780,  45.5770, &rU09.p       );
-  make_pt(   21.9980,  14.5500,  46.8210, &rU09.o1p     );
-  make_pt(   21.1450,  14.0270,  44.5420, &rU09.o2p     );
-  make_pt(   22.1250,  16.3600,  44.9460, &rU09.o5_     );
-  make_pt(   21.5037,  16.8594,  43.7323, &rU09.c5_     );
-  make_pt(   20.8147,  17.6663,  43.9823, &rU09.h5_     );
-  make_pt(   21.1086,  16.0230,  43.1557, &rU09.h5__    );
-  make_pt(   22.5654,  17.4874,  42.8616, &rU09.c4_     );
-  make_pt(   23.0565,  18.3036,  43.3915, &rU09.h4_     );
-  make_pt(   23.5375,  16.5054,  42.4925, &rU09.o4_     );
-  make_pt(   23.6574,  16.4257,  41.0649, &rU09.c1_     );
-  make_pt(   24.4701,  17.0882,  40.7671, &rU09.h1_     );
-  make_pt(   22.3525,  16.9643,  40.5396, &rU09.c2_     );
-  make_pt(   21.5993,  16.1799,  40.6133, &rU09.h2__    );
-  make_pt(   22.4693,  17.4849,  39.2515, &rU09.o2_     );
-  make_pt(   23.0899,  17.0235,  38.6827, &rU09.h2_     );
-  make_pt(   22.0341,  18.0633,  41.5279, &rU09.c3_     );
-  make_pt(   20.9509,  18.1709,  41.5846, &rU09.h3_     );
-  make_pt(   22.7249,  19.3020,  41.2100, &rU09.o3_     );
-  make_pt(   23.8580,  15.0648,  40.5757, &rU09.n1      );
-  make_pt(   25.1556,  14.5982,  40.4523, &rU09.n3      );
-  make_pt(   26.1047,  15.3210,  40.7448, &rU09.c2      );
-  make_pt(   25.3391,  13.3315,  40.0020, &rU09.c4      );
-  make_pt(   24.2974,  12.5148,  39.6749, &rU09.c5      );
-  make_pt(   24.5450,  11.3410,  39.2610, &rU09.c6      );
-  make_pt(   22.9633,  12.9979,  39.8053, &rU09._.U.o2  );
-  make_pt(   22.8009,  14.2648,  40.2524, &rU09._.U.o4  );
-  make_pt(   26.3414,  12.9194,  39.8855, &rU09._.U.h3  );
-  make_pt(   22.1227,  12.3533,  39.5486, &rU09._.U.h5  );
-  make_pt(   21.7989,  14.6788,  40.3650, &rU09._.U.h6  );
-
-  rU10.type = 'U';
-  make_tfo(  -0.9674,   0.1021,  -0.2318,
-             -0.2514,  -0.2766,   0.9275,
-              0.0306,   0.9555,   0.2933,
-             27.8571, -42.1305, -24.4563, &rU10.dgf_base_tfo );
-  make_tfo(   0.2765,  -0.1121,  -0.9545,
-             -0.8297,   0.4733,  -0.2959,
-              0.4850,   0.8737,   0.0379,
-            -14.7774, -45.2464,  21.9088, &rU10.p_o3_275_tfo );
-  make_tfo(   0.1063,  -0.6334,  -0.7665,
-             -0.5932,  -0.6591,   0.4624,
-             -0.7980,   0.4055,  -0.4458,
-             43.7634,   4.3296,  28.4890, &rU10.p_o3_180_tfo );
-  make_tfo(   0.7136,  -0.5032,  -0.4873,
-              0.6803,   0.3317,   0.6536,
-             -0.1673,  -0.7979,   0.5791,
-            -17.1858,  41.4390, -27.0751, &rU10.p_o3_60_tfo  );
-  make_pt(   21.3880,  15.0780,  45.5770, &rU10.p       );
-  make_pt(   21.9980,  14.5500,  46.8210, &rU10.o1p     );
-  make_pt(   21.1450,  14.0270,  44.5420, &rU10.o2p     );
-  make_pt(   22.1250,  16.3600,  44.9460, &rU10.o5_     );
-  make_pt(   23.5096,  16.1227,  44.5783, &rU10.c5_     );
-  make_pt(   23.5649,  15.8588,  43.5222, &rU10.h5_     );
-  make_pt(   23.9621,  15.4341,  45.2919, &rU10.h5__    );
-  make_pt(   24.2805,  17.4138,  44.7151, &rU10.c4_     );
-  make_pt(   23.8509,  18.1819,  44.0720, &rU10.h4_     );
-  make_pt(   24.2506,  17.8583,  46.0741, &rU10.o4_     );
-  make_pt(   25.5830,  18.0320,  46.5775, &rU10.c1_     );
-  make_pt(   25.8569,  19.0761,  46.4256, &rU10.h1_     );
-  make_pt(   26.4410,  17.1555,  45.7033, &rU10.c2_     );
-  make_pt(   26.3459,  16.1253,  46.0462, &rU10.h2__    );
-  make_pt(   27.7649,  17.5888,  45.6478, &rU10.o2_     );
-  make_pt(   28.1004,  17.9719,  46.4616, &rU10.h2_     );
-  make_pt(   25.7796,  17.2997,  44.3513, &rU10.c3_     );
-  make_pt(   25.9478,  16.3824,  43.7871, &rU10.h3_     );
-  make_pt(   26.2154,  18.4984,  43.6541, &rU10.o3_     );
-  make_pt(   25.7321,  17.6281,  47.9726, &rU10.n1      );
-  make_pt(   25.5136,  18.5779,  48.9560, &rU10.n3      );
-  make_pt(   25.2079,  19.7276,  48.6503, &rU10.c2      );
-  make_pt(   25.6482,  18.1987,  50.2518, &rU10.c4      );
-  make_pt(   25.9847,  16.9266,  50.6092, &rU10.c5      );
-  make_pt(   26.0918,  16.6439,  51.8416, &rU10.c6      );
-  make_pt(   26.2067,  15.9515,  49.5943, &rU10._.U.o2  );
-  make_pt(   26.0713,  16.3497,  48.3080, &rU10._.U.o4  );
-  make_pt(   25.4890,  18.9105,  51.0618, &rU10._.U.h3  );
-  make_pt(   26.4742,  14.9310,  49.8682, &rU10._.U.h5  );
-  make_pt(   26.2346,  15.6394,  47.4975, &rU10._.U.h6  );
-
-  rUs[0] = &rU10;
-  rUs[1] = &rU09;
-  rUs[2] = &rU08;
-  rUs[3] = &rU07;
-  rUs[4] = &rU06;
-  rUs[5] = &rU05;
-  rUs[6] = &rU04;
-  rUs[7] = &rU03;
-  rUs[8] = &rU02;
-  rUs[9] = &rU01;
-  rUs[10]= 0;
-}
-
-void init_nucleotides()
-{
-  init_A();
-  init_C();
-  init_G();
-  init_U();
-
-  rG_.type = 'G';
-  make_tfo(  -0.2067,  -0.0264,   0.9780,
-              0.9770,  -0.0586,   0.2049,
-              0.0519,   0.9979,   0.0379,
-              1.0331, -46.8078, -36.4742, &rG_.dgf_base_tfo );
-  make_tfo(  -0.8644,  -0.4956,  -0.0851,
-             -0.0427,   0.2409,  -0.9696,
-              0.5010,  -0.8345,  -0.2294,
-              4.0167,  54.5377,  12.4779, &rG_.p_o3_275_tfo );
-  make_tfo(   0.3706,  -0.6167,   0.6945,
-             -0.2867,  -0.7872,  -0.5460,
-              0.8834,   0.0032,  -0.4686,
-            -52.9020,  18.6313,  -0.6709, &rG_.p_o3_180_tfo );
-  make_tfo(   0.4155,   0.9025,  -0.1137,
-              0.9040,  -0.4236,  -0.0582,
-             -0.1007,  -0.0786,  -0.9918,
-             -7.6624, -25.2080,  49.5181, &rG_.p_o3_60_tfo  );
-  make_pt(   31.3810,   0.1400,  47.5810, &rG_.p        );
-  make_pt(   29.9860,   0.6630,  47.6290, &rG_.o1p      );
-  make_pt(   31.7210,  -0.6460,  48.8090, &rG_.o2p      );
-  make_pt(   32.4940,   1.2540,  47.2740, &rG_.o5_      );
-  make_pt(   32.1610,   2.2370,  46.2560, &rG_.c5_      );
-  make_pt(   31.2986,   2.8190,  46.5812, &rG_.h5_      );
-  make_pt(   32.0980,   1.7468,  45.2845, &rG_.h5__     );
-  make_pt(   33.3476,   3.1959,  46.1947, &rG_.c4_      );
-  make_pt(   33.2668,   3.8958,  45.3630, &rG_.h4_      );
-  make_pt(   33.3799,   3.9183,  47.4216, &rG_.o4_      );
-  make_pt(   34.6515,   3.7222,  48.0398, &rG_.c1_      );
-  make_pt(   35.2947,   4.5412,  47.7180, &rG_.h1_      );
-  make_pt(   35.1756,   2.4228,  47.4827, &rG_.c2_      );
-  make_pt(   34.6778,   1.5937,  47.9856, &rG_.h2__     );
-  make_pt(   36.5631,   2.2672,  47.4798, &rG_.o2_      );
-  make_pt(   37.0163,   2.6579,  48.2305, &rG_.h2_      );
-  make_pt(   34.6953,   2.5043,  46.0448, &rG_.c3_      );
-  make_pt(   34.5444,   1.4917,  45.6706, &rG_.h3_      );
-  make_pt(   35.6679,   3.3009,  45.3487, &rG_.o3_      );
-  make_pt(   37.4804,   4.0914,  52.2559, &rG_.n1       );
-  make_pt(   36.9670,   4.1312,  49.9281, &rG_.n3       );
-  make_pt(   37.8045,   4.2519,  50.9550, &rG_.c2       );
-  make_pt(   35.7171,   3.8264,  50.3222, &rG_.c4       );
-  make_pt(   35.2668,   3.6420,  51.6115, &rG_.c5       );
-  make_pt(   36.2037,   3.7829,  52.6706, &rG_.c6       );
-  make_pt(   39.0869,   4.5552,  50.7092, &rG_._.G.n2   );
-  make_pt(   33.9075,   3.3338,  51.6102, &rG_._.G.n7   );
-  make_pt(   34.6126,   3.6358,  49.5108, &rG_._.G.n9   );
-  make_pt(   33.5805,   3.3442,  50.3425, &rG_._.G.c8   );
-  make_pt(   35.9958,   3.6512,  53.8724, &rG_._.G.o6   );
-  make_pt(   38.2106,   4.2053,  52.9295, &rG_._.G.h1   );
-  make_pt(   39.8218,   4.6863,  51.3896, &rG_._.G.h21  );
-  make_pt(   39.3420,   4.6857,  49.7407, &rG_._.G.h22  );
-  make_pt(   32.5194,   3.1070,  50.2664, &rG_._.G.h8   );
-
-  rU_.type = 'U';
-  make_tfo(  -0.0109,   0.5907,   0.8068,
-              0.2217,  -0.7853,   0.5780,
-              0.9751,   0.1852,  -0.1224,
-             -1.4225, -11.0956,  -2.5217, &rU_.dgf_base_tfo );
-  make_tfo(  -0.8313,  -0.4738,  -0.2906,
-              0.0649,   0.4366,  -0.8973,
-              0.5521,  -0.7648,  -0.3322,
-              1.6833,   6.8060,  -7.0011, &rU_.p_o3_275_tfo );
-  make_tfo(   0.3445,  -0.7630,   0.5470,
-             -0.4628,  -0.6450,  -0.6082,
-              0.8168,  -0.0436,  -0.5753,
-             -6.8179,  -3.9778,  -5.9887, &rU_.p_o3_180_tfo );
-  make_tfo(   0.5855,   0.7931,  -0.1682,
-              0.8103,  -0.5790,   0.0906,
-             -0.0255,  -0.1894,  -0.9816,
-              6.1203,  -7.1051,   3.1984, &rU_.p_o3_60_tfo  );
-  make_pt(    2.6760,  -8.4960,   3.2880, &rU_.p        );
-  make_pt(    1.4950,  -7.6230,   3.4770, &rU_.o1p      );
-  make_pt(    2.9490,  -9.4640,   4.3740, &rU_.o2p      );
-  make_pt(    3.9730,  -7.5950,   3.0340, &rU_.o5_      );
-  make_pt(    5.2430,  -8.2420,   2.8260, &rU_.c5_      );
-  make_pt(    5.1974,  -8.8497,   1.9223, &rU_.h5_      );
-  make_pt(    5.5548,  -8.7348,   3.7469, &rU_.h5__     );
-  make_pt(    6.3140,  -7.2060,   2.5510, &rU_.c4_      );
-  make_pt(    5.8744,  -6.2116,   2.4731, &rU_.h4_      );
-  make_pt(    7.2798,  -7.2260,   3.6420, &rU_.o4_      );
-  make_pt(    8.5733,  -6.9410,   3.1329, &rU_.c1_      );
-  make_pt(    8.9047,  -6.0374,   3.6446, &rU_.h1_      );
-  make_pt(    8.4429,  -6.6596,   1.6327, &rU_.c2_      );
-  make_pt(    9.2880,  -7.1071,   1.1096, &rU_.h2__     );
-  make_pt(    8.2502,  -5.2799,   1.4754, &rU_.o2_      );
-  make_pt(    8.7676,  -4.7284,   2.0667, &rU_.h2_      );
-  make_pt(    7.1642,  -7.4416,   1.3021, &rU_.c3_      );
-  make_pt(    7.4125,  -8.5002,   1.2260, &rU_.h3_      );
-  make_pt(    6.5160,  -6.9772,   0.1267, &rU_.o3_      );
-  make_pt(    9.4531,  -8.1107,   3.4087, &rU_.n1       );
-  make_pt(   11.5931,  -9.0015,   3.6357, &rU_.n3       );
-  make_pt(   10.8101,  -7.8950,   3.3748, &rU_.c2       );
-  make_pt(   11.1439, -10.2744,   3.9206, &rU_.c4       );
-  make_pt(    9.7056, -10.4026,   3.9332, &rU_.c5       );
-  make_pt(    8.9192,  -9.3419,   3.6833, &rU_.c6       );
-  make_pt(   11.3013,  -6.8063,   3.1326, &rU_._.U.o2   );
-  make_pt(   11.9431, -11.1876,   4.1375, &rU_._.U.o4   );
-  make_pt(   12.5840,  -8.8673,   3.6158, &rU_._.U.h3   );
-  make_pt(    9.2891, -11.2898,   4.1313, &rU_._.U.h5   );
-  make_pt(    7.9263,  -9.4537,   3.6977, &rU_._.U.h6   );
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* PARTIAL INSTANTIATIONS */
-
-struct struct_var
-{
-  int i;
-  tfo t;
-  nuc n;
-  int on_stack;
-};
-
-typedef struct struct_var *var;
-
-typedef struct struct_var *var_list;
-
-struct struct_sol_list
-{
-  var_list sol;
-  struct struct_sol_list *next;
-};
-
-typedef struct struct_sol_list *sol_list;
-
-struct struct_var partial_inst[200];
-int partial_inst_length;
-
-#ifdef lazy
-
-#define absolute_pos(var,pt1,pt2)\
-{ if ((pt1)->relative) { tfo_apply((var)->t,pt1,pt1); (pt1)->relative = 0; }\
-  *(pt2) = *(pt1);\
-}
-
-void make_relative_nuc( t, n1, n2 )
-tfo t;
-nuc n1, n2;
-{
-  *n2 = *n1;
-  n2->p.relative = 1;
-  n2->o1p.relative = 1;
-  n2->o2p.relative = 1;
-  n2->o5_.relative = 1;
-  n2->c5_.relative = 1;
-  n2->h5_.relative = 1;
-  n2->h5__.relative = 1;
-  n2->c4_.relative = 1;
-  n2->h4_.relative = 1;
-  n2->o4_.relative = 1;
-  n2->c1_.relative = 1;
-  n2->h1_.relative = 1;
-  n2->c2_.relative = 1;
-  n2->h2__.relative = 1;
-  n2->o2_.relative = 1;
-  n2->h2_.relative = 1;
-  n2->c3_.relative = 1;
-  n2->h3_.relative = 1;
-  n2->o3_.relative = 1;
-  n2->n1.relative = 1;
-  n2->n3.relative = 1;
-  n2->c2.relative = 1;
-  n2->c4.relative = 1;
-  n2->c5.relative = 1;
-  n2->c6.relative = 1;
-
-  switch (n2->type)
-  {
-    case 'A':
-      n2->_.A.n6.relative = 1;
-      n2->_.A.n7.relative = 1;
-      n2->_.A.n9.relative = 1;
-      n2->_.A.c8.relative = 1;
-      n2->_.A.h2.relative = 1;
-      n2->_.A.h61.relative = 1;
-      n2->_.A.h62.relative = 1;
-      n2->_.A.h8.relative = 1;
-      break;
-
-    case 'C':
-      n2->_.C.n4.relative = 1;
-      n2->_.C.o2.relative = 1;
-      n2->_.C.h41.relative = 1;
-      n2->_.C.h42.relative = 1;
-      n2->_.C.h5.relative = 1;
-      n2->_.C.h6.relative = 1;
-      break;
-
-    case 'G':
-      n2->_.G.n2.relative = 1;
-      n2->_.G.n7.relative = 1;
-      n2->_.G.n9.relative = 1;
-      n2->_.G.c8.relative = 1;
-      n2->_.G.o6.relative = 1;
-      n2->_.G.h1.relative = 1;
-      n2->_.G.h21.relative = 1;
-      n2->_.G.h22.relative = 1;
-      n2->_.G.h8.relative = 1;
-      break;
-
-    case 'U':
-      n2->_.U.o2.relative = 1;
-      n2->_.U.o4.relative = 1;
-      n2->_.U.h3.relative = 1;
-      n2->_.U.h5.relative = 1;
-      n2->_.U.h6.relative = 1;
-      break;
-  }
-}  
-
-#else
-
-#define absolute_pos(var,pt1,pt2)tfo_apply((var)->t,pt1,pt2)
-
-#endif
-
-#define atom_pos(atom,var,pos)\
-{ pt x = &(var)->n->atom; absolute_pos(var,x,pos); }
-
-var get_var( i )
-int i;
-{
-  var v = &partial_inst[partial_inst_length-1];
-  while (v->i != i) v--;
-  return v;
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* SEARCH */
-
-void (*seq)();
-int (*constraint)();
-sol_list solutions, last_solution;
-
-void search( problem_domains, problem_constraint )
-void (*problem_domains)();
-int (*problem_constraint)();
-{
-  seq = problem_domains;
-  constraint = problem_constraint;
-  solutions = NULL;
-  last_solution = NULL;
-  partial_inst_length = 0;
-  (*seq)();
-}
-
-void try( i, t, n )
-int i;
-tfo t;
-nuc n;
-{
-  var v = &partial_inst[partial_inst_length];
-#ifdef lazy
-  struct struct_nuc rel_n;
-  make_relative_nuc( t, n, &rel_n );
-  v->n = &rel_n;
-#else
-  v->n = n;
-#endif
-  v->i = i;
-  v->t = t;
-  v->on_stack = 1;
-  if ((*constraint)( v ))
-  {
-    partial_inst_length++;
-    (*seq)();
-    partial_inst_length--;
-  }
-}
-
-void found_solution()
-{
-  int i;
-  sol_list sols;
-  var_list sol;
-  sol = (var_list)malloc( (partial_inst_length+1)*sizeof(struct struct_var) );
-  if (sol==NULL) { printf( "memory overflow\n" ); exit(1); }
-  for (i=0; i<partial_inst_length; i++)
-  {
-    if (partial_inst[i].on_stack)
-    {
-      tfo t;
-      nuc n;
-      t = (tfo)malloc( sizeof(struct struct_tfo) );
-      if (t==NULL) { printf( "memory overflow\n" ); exit(1); }
-      *t = *partial_inst[i].t;
-      partial_inst[i].t = t;
-#ifdef lazy
-      n = (nuc)malloc( sizeof(struct struct_nuc) );
-      if (n==NULL) { printf( "memory overflow\n" ); exit(1); }
-      *n = *partial_inst[i].n;
-      partial_inst[i].n = n;
-#endif
-      partial_inst[i].on_stack = 0;
-    }
-    sol[i].i = partial_inst[i].i;
-    sol[i].t = partial_inst[i].t;
-    sol[i].n = partial_inst[i].n;
-  }
-  sol[i].i = -1;
-  sols = (sol_list)malloc( sizeof(struct struct_sol_list) );
-  if (sols==NULL) { printf( "memory overflow\n" ); exit(1); }
-  sols->sol = sol;
-  sols->next = NULL;
-  if (last_solution == NULL)
-    solutions = sols;
-  else
-    last_solution->next = sols;
-  last_solution = sols;
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* DOMAINS */
-
-void dgf_base( t1, ref, n, t2 )
-tfo t1;
-var ref;
-nuc n;
-tfo t2;
-{
-  nuc ref_n = ref->n;
-  struct struct_pt p1, p2, p3;
-  struct struct_tfo m, align;
-  switch (ref_n->type)
-  {
-    case 'A':
-      atom_pos( c1_, ref, &p1 );
-      atom_pos( _.A.n9, ref, &p2 );
-      atom_pos( c4, ref, &p3 );
-      break;
-    case 'C':
-      atom_pos( c1_, ref, &p1 );
-      atom_pos( n1, ref, &p2 );
-      atom_pos( c2, ref, &p3 );
-      break;
-    case 'G':
-      atom_pos( c1_, ref, &p1 );
-      atom_pos( _.G.n9, ref, &p2 );
-      atom_pos( c4, ref, &p3 );
-      break;
-    case 'U':
-      atom_pos( c1_, ref, &p1 );
-      atom_pos( n1, ref, &p2 );
-      atom_pos( c2, ref, &p3 );
-      break;
-  }
-  tfo_align( &p1, &p2, &p3, &m );
-  tfo_inv_ortho( &m, &align );
-  tfo_combine( t1, &align, &m );
-  tfo_combine( &n->dgf_base_tfo, &m, t2 );
-}
-
-void reference( n, i )
-nuc n;
-int i;
-{
-  try( i, &tfo_id, n );
-}
-
-struct struct_tfo wc_tfo =
-{
-  -1.0000,  0.0028, -0.0019,
-   0.0028,  0.3468, -0.9379,
-  -0.0019, -0.9379, -0.3468,
-  -0.0080,  6.0730,  8.7208
-};
-
-void wc( n, i, j )
-nuc n;
-int i, j;
-{
-  struct struct_tfo t;
-  dgf_base( &wc_tfo, get_var(j), n, &t );
-  try( i, &t, n );
-}
-
-struct struct_tfo wc_dumas_tfo =
-{
-  -0.9737, -0.1834,  0.1352,
-  -0.1779,  0.2417, -0.9539,
-   0.1422, -0.9529, -0.2679,
-   0.4837,  6.2649,  8.0285
- };
-
-void wc_dumas( n, i, j )
-nuc n;
-int i, j;
-{
-  struct struct_tfo t;
-  dgf_base( &wc_dumas_tfo, get_var(j), n, &t );
-  try( i, &t, n );
-}
-
-struct struct_tfo helix5_tfo =
-{
-   0.9886, -0.0961,  0.1156,
-   0.1424,  0.8452, -0.5152,
-  -0.0482,  0.5258,  0.8492,
-  -3.8737,  0.5480,  3.8024
-};
-
-void helix5( n, i, j )
-nuc n;
-int i, j;
-{
-  struct struct_tfo t;
-  dgf_base( &helix5_tfo, get_var(j), n, &t );
-  try( i, &t, n );
-}
-
-struct struct_tfo helix3_tfo =
-{
-   0.9886,  0.1424, -0.0482,
-  -0.0961,  0.8452,  0.5258,
-   0.1156, -0.5152,  0.8492,
-   3.4426,  2.0474, -3.7042
- };
-
-void helix3( n, i, j )
-nuc n;
-int i, j;
-{
-  struct struct_tfo t;
-  dgf_base( &helix3_tfo, get_var(j), n, &t );
-  try( i, &t, n );
-}
-
-struct struct_tfo g37_a38_tfo =
-{
-   0.9991,  0.0164, -0.0387,
-  -0.0375,  0.7616, -0.6470,
-   0.0189,  0.6478,  0.7615,
-  -3.3018,  0.9975,  2.5585
-};
-  
-void G37_A38( n, i, j )
-nuc n;
-int i, j;
-{
-  struct struct_tfo t;
-  dgf_base( &g37_a38_tfo, get_var(j), n, &t );
-  try( i, &t, n );
-}
-
-void stacked5( n, i, j )
-nuc n;
-int i, j;
-{
-  G37_A38( n, i, j );
-  helix5( n, i, j );
-}
-
-struct struct_tfo a38_g37_tfo =
-{
-   0.9991, -0.0375,  0.0189,
-   0.0164,  0.7616,  0.6478,
-  -0.0387, -0.6470,  0.7615,
-   3.3819,  0.7718, -2.5321
-};
-
-void A38_G37( n, i, j )
-nuc n;
-int i, j;
-{
-  struct struct_tfo t;
-  dgf_base( &a38_g37_tfo, get_var(j), n, &t );
-  try( i, &t, n );
-}
-
-void stacked3( n, i, j )
-nuc n;
-int i, j;
-{
-  A38_G37( n, i, j );
-  helix3( n, i, j );
-}
-
-void P_O3( n, i, j )
-nuc *n;
-int i, j;
-{
-  var ref = get_var(j);
-  struct struct_pt p1, p2, p3;
-  struct struct_tfo m, align;
-
-  atom_pos( o3_, ref, &p1 );
-  atom_pos( c3_, ref, &p2 );
-  atom_pos( c4_, ref, &p3 );
-  tfo_align( &p1, &p2, &p3, &m );
-  tfo_inv_ortho( &m, &align );
-
-  while (*n!=NULL)
-  {
-    tfo_combine( &(*n)->p_o3_60_tfo, &align, &m );
-    try( i, &m, *n );
-    tfo_combine( &(*n)->p_o3_180_tfo, &align, &m );
-    try( i, &m, *n );
-    tfo_combine( &(*n)->p_o3_275_tfo, &align, &m );
-    try( i, &m, *n );
-    n++;
-  }
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* PROBLEM STATEMENT */
-
-/* Anticodon problem */
-
-void anticodon_domains()
-{
-  switch (partial_inst_length)
-  {
-    case  0: reference( &rC, 27     ); break;
-    case  1: helix5(    &rC, 28, 27 ); break;
-    case  2: helix5(    &rA, 29, 28 ); break;
-    case  3: helix5(    &rG, 30, 29 ); break;
-    case  4: helix5(    &rA, 31, 30 ); break;
-    case  5: wc(        &rU, 39, 31 ); break;
-    case  6: helix5(    &rC, 40, 39 ); break;
-    case  7: helix5(    &rU, 41, 40 ); break;
-    case  8: helix5(    &rG, 42, 41 ); break;
-    case  9: helix5(    &rG, 43, 42 ); break;
-    case 10: stacked3(  &rA, 38, 39 ); break;
-    case 11: stacked3(  &rG, 37, 38 ); break;
-    case 12: stacked3(  &rA, 36, 37 ); break;
-    case 13: stacked3(  &rA, 35, 36 ); break;
-    case 14: stacked3(  &rG, 34, 35 ); break;
-    case 15: P_O3(      rCs, 32, 31 ); break;
-    case 16: P_O3(      rUs, 33, 32 ); break;
-    case 17: found_solution();
-  }
-}
-
-int anticodon_constraint( v )
-var v;
-{
-  if (v->i == 33)
-  {
-    var ref;
-    struct struct_pt p, o3_;
-    ref = get_var(34);
-    atom_pos( p,   ref, &p );
-    atom_pos( o3_, v,   &o3_ );
-    return (pt_dist( &p, &o3_ ) < 3.0);
-  }
-  else
-    return 1;
-}
-
-void anticodon()
-{
-  search( anticodon_domains, anticodon_constraint );
-}
-
-/* Pseudoknot problem */
-
-void pseudoknot_domains()
-{
-  switch (partial_inst_length)
-  {
-    case  0: reference( &rA, 23     ); break;
-    case  1: wc_dumas(  &rU,  8, 23 ); break;
-    case  2: helix3(    &rG, 22, 23 ); break;
-    case  3: wc_dumas(  &rC,  9, 22 ); break;
-    case  4: helix3(    &rG, 21, 22 ); break;
-    case  5: wc_dumas(  &rC, 10, 21 ); break;
-    case  6: helix3(    &rC, 20, 21 ); break;
-    case  7: wc_dumas(  &rG, 11, 20 ); break;
-    case  8: helix3(    &rU_,19, 20 ); break;
-    case  9: wc_dumas(  &rA, 12, 19 ); break;
-    case 10: helix3(    &rC,  3, 19 ); break;
-    case 11: wc_dumas(  &rG, 13,  3 ); break;
-    case 12: helix3(    &rC,  2,  3 ); break;
-    case 13: wc_dumas(  &rG, 14,  2 ); break;
-    case 14: helix3(    &rC,  1,  2 ); break;
-    case 15: wc_dumas(  &rG_,15,  1 ); break;
-    case 16: P_O3(      rUs, 16, 15 ); break;
-    case 17: P_O3(      rCs, 17, 16 ); break;
-    case 18: P_O3(      rAs, 18, 17 ); break;
-    case 19: helix3(    &rU,  7,  8 ); break;
-    case 20: P_O3(      rCs,  4,  3 ); break;
-    case 21: stacked5(  &rU,  5,  4 ); break;
-    case 22: stacked5(  &rC,  6,  5 ); break;
-    case 23: found_solution();
-  }
-}
-
-int pseudoknot_constraint( v )
-var v;
-{
-  switch (v->i)
-  {
-    case 18:
-    {
-      var ref;
-      struct struct_pt p, o3_;
-      ref = get_var(19);
-      atom_pos( p,   ref, &p );
-      atom_pos( o3_, v,   &o3_ );
-      return (pt_dist( &p, &o3_ ) <= 4.0);
-    }
-    case 6:
-    {
-      var ref;
-      struct struct_pt p, o3_;
-      ref = get_var(7);
-      atom_pos( p,   ref, &p );
-      atom_pos( o3_, v,   &o3_ );
-      return (pt_dist( &p, &o3_ ) <= 4.5);
-    }
-    default:
-      return 1;
-  }
-}
-
-void pseudoknot()
-{
-  search( pseudoknot_domains, pseudoknot_constraint );
-}
-
-/*---------------------------------------------------------------------------*/
-
-/* TESTING */
-
-pt point_list[50];
-
-pt *list_of_atoms( n )
-nuc n;
-{
-  pt *ptr;
-  ptr = point_list;
-  *ptr++ = &n->p;
-  *ptr++ = &n->o1p;
-  *ptr++ = &n->o2p;
-  *ptr++ = &n->o5_;
-  *ptr++ = &n->c5_;
-  *ptr++ = &n->h5_;
-  *ptr++ = &n->h5__;
-  *ptr++ = &n->c4_;
-  *ptr++ = &n->h4_;
-  *ptr++ = &n->o4_;
-  *ptr++ = &n->c1_;
-  *ptr++ = &n->h1_;
-  *ptr++ = &n->c2_;
-  *ptr++ = &n->h2__;
-  *ptr++ = &n->o2_;
-  *ptr++ = &n->h2_;
-  *ptr++ = &n->c3_;
-  *ptr++ = &n->h3_;
-  *ptr++ = &n->o3_;
-  *ptr++ = &n->n1;
-  *ptr++ = &n->n3;
-  *ptr++ = &n->c2;
-  *ptr++ = &n->c4;
-  *ptr++ = &n->c5;
-  *ptr++ = &n->c6;
-
-  switch (n->type)
-  {
-    case 'A':
-      *ptr++ = &n->_.A.n6;
-      *ptr++ = &n->_.A.n7;
-      *ptr++ = &n->_.A.n9;
-      *ptr++ = &n->_.A.c8;
-      *ptr++ = &n->_.A.h2;
-      *ptr++ = &n->_.A.h61;
-      *ptr++ = &n->_.A.h62;
-      *ptr++ = &n->_.A.h8;
-      break;
-
-    case 'C':
-      *ptr++ = &n->_.C.n4;
-      *ptr++ = &n->_.C.o2;
-      *ptr++ = &n->_.C.h41;
-      *ptr++ = &n->_.C.h42;
-      *ptr++ = &n->_.C.h5;
-      *ptr++ = &n->_.C.h6;
-      break;
-
-    case 'G':
-      *ptr++ = &n->_.G.n2;
-      *ptr++ = &n->_.G.n7;
-      *ptr++ = &n->_.G.n9;
-      *ptr++ = &n->_.G.c8;
-      *ptr++ = &n->_.G.o6;
-      *ptr++ = &n->_.G.h1;
-      *ptr++ = &n->_.G.h21;
-      *ptr++ = &n->_.G.h22;
-      *ptr++ = &n->_.G.h8;
-      break;
-
-    case 'U':
-      *ptr++ = &n->_.U.o2;
-      *ptr++ = &n->_.U.o4;
-      *ptr++ = &n->_.U.h3;
-      *ptr++ = &n->_.U.h5;
-      *ptr++ = &n->_.U.h6;
-      break;
-  }
-  *ptr = NULL;
-  return point_list;
-}
-
-FLOAT distance( p )
-pt p;
-{
-  FLOAT x = p->x, y = p->y, z = p->z;
-  return sqrt( x*x + y*y + z*z );
-}
-
-FLOAT m; /* current maximal distance */
-
-void var_most_distant_atom( v )
-var v;
-{
-  pt *ptr;
-  ptr = list_of_atoms( v->n );
-  while (*ptr != NULL)
-  {
-    pt p;
-    struct struct_pt abs_pos;
-    FLOAT x;
-    p = *ptr++;
-    absolute_pos( v, p, &abs_pos );
-    x = distance( &abs_pos );
-    if (x > m) m = x;
-  }
-}
-
-void sol_most_distant_atom( s )
-var_list s;
-{
-  while (s->i >= 0)
-  {
-    var_most_distant_atom( s );
-    s++;
-  }
-}
-
-FLOAT most_distant_atom( sols )
-sol_list sols;
-{
-  m = 0.0; /* set current maximum to 0 */
-
-  while (sols!=NULL)
-  {
-    sol_most_distant_atom( sols->sol );
-    sols = sols->next;
-  }
-  return m;
-}
-
-void check()
-{
-  int n;
-
-  pseudoknot();
-
-  n = 0;
-  while (solutions!=NULL)
-  {
-    n++;
-    solutions = solutions->next;
-  }
-  printf( "Number of solutions: %d\n", n );
-}
-
-void run()
-{
-  pseudoknot();
-  printf( "Distance of most distant atom: %g\n", most_distant_atom(solutions) );
-}
-
-int main(argc, argv)
-int argc;
-char **argv;
-{
-  init_nucleotides();
-
-  run();
-
-  return 0;
-}
-
-/*---------------------------------------------------------------------------*/
diff --git a/spectral/hartel/nucleic2/nucleic2.m b/spectral/hartel/nucleic2/nucleic2.m
deleted file mode 100644 (file)
index d1230e8..0000000
+++ /dev/null
@@ -1,3329 +0,0 @@
-||  File: "nucleic2.m"
-||
-||  Author: Marc Feeley (feeley@iro.umontreal.ca)
-||
-||  Last modified: June 6, 1994
-||
-||  This program is a modified version of the program described in the paper:
-||
-||    M. Feeley, M. Turcotte, G. Lapalme, "Using Multilisp for Solving
-||    Constraint Satisfaction Problems: an Application to Nucleic Acid 3D
-||    Structure Determination" published in the journal "Lisp and Symbolic
-||    Computation".
-||
-||  The differences between this program and the original are described in
-||  the paper:
-||
-||    "???" published in the "Journal of Functional Programming".
-
-float == num
-int == num
-
-|| In this program, the following functions are only used as infix
-|| operators (e.g. 3.5 $fadd 2.1).  The arguments are always floating
-|| point numbers.
-
-fadd = (+)
-fsub = (-)
-fmul = (*)
-fdiv = (/)
-feq = (=)
-flt = (<)
-fle = (<=)
-fgt = (>)
-fge = (>=)
-
-|| The arguments to the following functions are always floating
-|| point numbers.
-
-fneg x = -x
-fsin x = sin x
-fcos x = cos x
-fatan x = arctan x
-fsqrt x = sqrt x
-
-|| -- MATH UTILITIES ----------------------------------------------------------
-
-constant_pi        =  3.14159265358979323846
-constant_minus_pi  = -3.14159265358979323846
-constant_pi2       =  1.57079632679489661923
-constant_minus_pi2 = -1.57079632679489661923
-
-math_atan2 y x
-  = fatan (y $fdiv x), if x $fgt 0.0
-  = constant_minus_pi2, if (x $feq 0.0)&(y $flt 0.0)
-  = (fatan (y $fdiv x)) $fadd constant_minus_pi, if (x $feq 0.0)&(y $fge 0.0)
-  = constant_pi2, if (x $feq 0.0)
-  = (fatan (y $fdiv x)) $fadd constant_pi, otherwise
-
-|| -- POINTS ------------------------------------------------------------------
-
-pt ::= Pt float float float
-
-pt_sub (Pt x1 y1 z1) (Pt x2 y2 z2)
-  = Pt (x1 $fsub x2) (y1 $fsub y2) (z1 $fsub z2)
-
-pt_dist (Pt x1 y1 z1) (Pt x2 y2 z2)
-  = fsqrt ((dx $fmul dx) $fadd (dy $fmul dy) $fadd (dz $fmul dz))
-    where dx = (x1 $fsub x2)
-          dy = (y1 $fsub y2)
-          dz = (z1 $fsub z2)
-
-pt_phi (Pt x y z)
-  = math_atan2 (((fcos b) $fmul z) $fadd ((fsin b) $fmul x)) y
-    where b = math_atan2 x z
-
-pt_theta (Pt x y z)
-  =  math_atan2 x z
-
-|| -- COORDINATE TRANSFORMATIONS ----------------------------------------------
-
-|| The notation for the transformations follows "Paul, R.P. (1981) Robot
-|| Manipulators.  MIT Press." with the exception that our transformation
-|| matrices don't have the perspective terms and are the transpose of
-|| Paul's one.  See also "M\"antyl\"a, M. (1985) An Introduction to
-|| Solid Modeling, Computer Science Press" Appendix A.
-||
-|| The components of a transformation matrix are named like this:
-||
-||  a  b  c
-||  d  e  f
-||  g  h  i
-|| tx ty tz
-||
-|| The components tx, ty, and tz are the translation vector.
-
-tfo ::= Tfo float float float float float float float float float float float float
-
-tfo_id = Tfo 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0 1.0 0.0 0.0 0.0
-
-|| The function "tfo-apply" multiplies a transformation matrix, tfo, by a
-|| point vector, p.  The result is a new point.
-
-tfo_apply (Tfo a b c d e f g h i tx ty tz) (Pt x y z)
-  = Pt ((x $fmul a) $fadd (y $fmul d) $fadd (z $fmul g) $fadd tx)
-       ((x $fmul b) $fadd (y $fmul e) $fadd (z $fmul h) $fadd ty)
-       ((x $fmul c) $fadd (y $fmul f) $fadd (z $fmul i) $fadd tz)
-
-|| The function "tfo-combine" multiplies two transformation matrices A and B.
-|| The result is a new matrix which cumulates the transformations described
-|| by A and B.
-
-tfo_combine
-  (Tfo a_a a_b a_c a_d a_e a_f a_g a_h a_i a_tx a_ty a_tz)
-  (Tfo b_a b_b b_c b_d b_e b_f b_g b_h b_i b_tx b_ty b_tz)
-  = Tfo
-      ((a_a $fmul b_a) $fadd (a_b $fmul b_d) $fadd (a_c $fmul b_g))
-      ((a_a $fmul b_b) $fadd (a_b $fmul b_e) $fadd (a_c $fmul b_h))
-      ((a_a $fmul b_c) $fadd (a_b $fmul b_f) $fadd (a_c $fmul b_i))
-      ((a_d $fmul b_a) $fadd (a_e $fmul b_d) $fadd (a_f $fmul b_g))
-      ((a_d $fmul b_b) $fadd (a_e $fmul b_e) $fadd (a_f $fmul b_h))
-      ((a_d $fmul b_c) $fadd (a_e $fmul b_f) $fadd (a_f $fmul b_i))
-      ((a_g $fmul b_a) $fadd (a_h $fmul b_d) $fadd (a_i $fmul b_g))
-      ((a_g $fmul b_b) $fadd (a_h $fmul b_e) $fadd (a_i $fmul b_h))
-      ((a_g $fmul b_c) $fadd (a_h $fmul b_f) $fadd (a_i $fmul b_i))
-      ((a_tx $fmul b_a) $fadd (a_ty $fmul b_d) $fadd (a_tz $fmul b_g) $fadd b_tx)
-      ((a_tx $fmul b_b) $fadd (a_ty $fmul b_e) $fadd (a_tz $fmul b_h) $fadd b_ty)
-      ((a_tx $fmul b_c) $fadd (a_ty $fmul b_f) $fadd (a_tz $fmul b_i) $fadd b_tz)
-
-|| The function "tfo-inv-ortho" computes the inverse of a homogeneous
-|| transformation matrix.
-
-tfo_inv_ortho (Tfo a b c d e f g h i tx ty tz)
-  = Tfo
-     a d g
-     b e h
-     c f i
-     (fneg ((a $fmul tx) $fadd (b $fmul ty) $fadd (c $fmul tz)))
-     (fneg ((d $fmul tx) $fadd (e $fmul ty) $fadd (f $fmul tz)))
-     (fneg ((g $fmul tx) $fadd (h $fmul ty) $fadd (i $fmul tz)))
-
-|| Given three points p1, p2, and p3, the function "tfo-align" computes
-|| a transformation matrix such that point p1 gets mapped to (0,0,0), p2 gets
-|| mapped to the Y axis and p3 gets mapped to the YZ plane.
-
-tfo_align (Pt x1 y1 z1) (Pt x2 y2 z2) (Pt x3 y3 z3)
-  = Tfo
-      ((cost $fmul cosr) $fsub (cospsint $fmul sinr))
-      sinpsint
-      ((cost $fmul sinr) $fadd (cospsint $fmul cosr))
-      (sinp $fmul sinr)
-      cosp
-      (fneg (sinp $fmul cosr))
-      ((fneg (sint $fmul cosr)) $fsub (cospcost $fmul sinr))
-      sinpcost
-      ((fneg (sint $fmul sinr)) $fadd (cospcost $fmul cosr))
-      ((x $fmul cosr) $fsub (z $fmul sinr))
-      y
-      ((x $fmul sinr) $fadd (z $fmul cosr))
-    where
-      x31 = (x3 $fsub x1)
-      y31 = (y3 $fsub y1)
-      z31 = (z3 $fsub z1)
-      rotpy = (pt_sub (Pt x2 y2 z2) (Pt x1 y1 z1))
-      phi = (pt_phi rotpy)
-      theta = (pt_theta rotpy)
-      sinp = (fsin phi)
-      sint = (fsin theta)
-      cosp = (fcos phi)
-      cost = (fcos theta)
-      sinpsint = (sinp $fmul sint)
-      sinpcost = (sinp $fmul cost)
-      cospsint = (cosp $fmul sint)
-      cospcost = (cosp $fmul cost)
-      rotpz = Pt
-                ((cost $fmul x31) $fsub (sint $fmul z31))
-                ((sinpsint $fmul x31) $fadd
-                 (cosp $fmul y31) $fadd
-                 (sinpcost $fmul z31))
-                ((cospsint $fmul x31) $fadd
-                 (fneg (sinp $fmul y31)) $fadd
-                 (cospcost $fmul z31))
-      rho = (pt_theta rotpz)
-      cosr = (fcos rho)
-      sinr = (fsin rho)
-      x = ((fneg (x1 $fmul cost)) $fadd (z1 $fmul sint))
-      y = (((fneg (x1 $fmul sinpsint)) $fsub (y1 $fmul cosp)) $fsub
-           (z1 $fmul sinpcost))
-      z = (((fneg (x1 $fmul cospsint)) $fadd (y1 $fmul sinp)) $fsub
-           (z1 $fmul cospcost))
-
-|| -- NUCLEIC ACID CONFORMATIONS DATA BASE ------------------------------------
-
-|| Numbering of atoms follows the paper:
-||
-|| IUPAC-IUB Joint Commission on Biochemical Nomenclature (JCBN)
-|| (1983) Abbreviations and Symbols for the Description of
-|| Conformations of Polynucleotide Chains.  Eur. J. Biochem 131,
-|| 9-15.
-
-|| Define part common to all 4 nucleotide types.
-
-nuc ::= Nuc
-          tfo tfo tfo tfo
-          pt pt pt pt pt pt pt pt pt pt pt pt pt
-          pt pt pt pt pt pt pt pt pt pt pt pt
-          nuc_specific
-
-||  dgf_base_tfo  ; defines the standard position for wc and wc_dumas
-||  p_o3'_275_tfo ; defines the standard position for the connect function
-||  p_o3'_180_tfo
-||  p_o3'_60_tfo
-||  p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2' c3'
-||  h3' o3' n1 n3 c2 c4 c5 c6
-
-is_A (Nuc
-        dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-        p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-        c3' h3' o3' n1 n3 c2 c4 c5 c6
-        (A n6 n7 n9 c8 h2 h61 h62 h8))
-  = True
-is_A x
-  = False
-
-is_C (Nuc
-        dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-        p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-        c3' h3' o3' n1 n3 c2 c4 c5 c6
-        (C n4 o2 h41 h42 h5 h6))
-  = True
-is_C x
-  = False
-
-is_G (Nuc
-        dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-        p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-        c3' h3' o3' n1 n3 c2 c4 c5 c6
-        (G n2 n7 n9 c8 o6 h1 h21 h22 h8))
-  = True
-is_G x
-  = False
-
-nuc_C1'
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = c1'
-
-nuc_C2 
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = c2
-
-nuc_C3'
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = c3'
-
-nuc_C4 
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = c4
-
-nuc_C4'
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = c4'
-
-nuc_N1 
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = n1
-
-nuc_O3'
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = o3'
-
-nuc_P
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = p
-
-nuc_dgf_base_tfo
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = dgf_base_tfo
-
-nuc_p_o3'_180_tfo
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = p_o3'_180_tfo
-
-nuc_p_o3'_275_tfo
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = p_o3'_275_tfo
-
-nuc_p_o3'_60_tfo
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = p_o3'_60_tfo
-
-rA_N9  
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (A n6 n7 n9 c8 h2 h61 h62 h8))
-  = n9
-
-rG_N9  
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (G n2 n7 n9 c8 o6 h1 h21 h22 h8))
-  = n9
-
-|| Define remaining atoms for each nucleotide type.
-
-nuc_specific
-  ::= A pt pt pt pt pt pt pt pt
-      | C pt pt pt pt pt pt
-      | G pt pt pt pt pt pt pt pt pt
-      | U pt pt pt pt pt
-
-|| A n6 n7 n9 c8 h2 h61 h62 h8
-|| C n4 o2 h41 h42 h5 h6
-|| G n2 n7 n9 c8 o6 h1 h21 h22 h8
-|| U o2 o4 h3 h5 h6
-
-|| Database of nucleotide conformations:
-
-rA
-  = Nuc
-      (Tfo (-0.0018)  (-0.8207)   (0.5714)  || dgf_base_tfo
-            (0.2679)  (-0.5509)  (-0.7904)
-            (0.9634)   (0.1517)   (0.2209)
-            (0.0073)   (8.4030)   (0.6232))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (5.4550)   (8.2120)  (-2.8810)) || C5' 
-      (Pt  (5.4546)   (8.8508)  (-1.9978)) || H5' 
-      (Pt  (5.7588)   (8.6625)  (-3.8259)) || H5''
-      (Pt  (6.4970)   (7.1480)  (-2.5980)) || C4' 
-      (Pt  (7.4896)   (7.5919)  (-2.5214)) || H4' 
-      (Pt  (6.1630)   (6.4860)  (-1.3440)) || O4' 
-      (Pt  (6.5400)   (5.1200)  (-1.4190)) || C1' 
-      (Pt  (7.2763)   (4.9681)  (-0.6297)) || H1' 
-      (Pt  (7.1940)   (4.8830)  (-2.7770)) || C2' 
-      (Pt  (6.8667)   (3.9183)  (-3.1647)) || H2''
-      (Pt  (8.5860)   (5.0910)  (-2.6140)) || O2' 
-      (Pt  (8.9510)   (4.7626)  (-1.7890)) || H2' 
-      (Pt  (6.5720)   (6.0040)  (-3.6090)) || C3' 
-      (Pt  (5.5636)   (5.7066)  (-3.8966)) || H3' 
-      (Pt  (7.3801)   (6.3562)  (-4.7350)) || O3' 
-      (Pt  (4.7150)   (0.4910)  (-0.1360)) || N1  
-      (Pt  (6.3490)   (2.1730)  (-0.6020)) || N3  
-      (Pt  (5.9530)   (0.9650)  (-0.2670)) || C2  
-      (Pt  (5.2900)   (2.9790)  (-0.8260)) || C4  
-      (Pt  (3.9720)   (2.6390)  (-0.7330)) || C5  
-      (Pt  (3.6770)   (1.3160)  (-0.3660)) || C6
-      (A
-      (Pt  (2.4280)   (0.8450)  (-0.2360)) || N6  
-      (Pt  (3.1660)   (3.7290)  (-1.0360)) || N7  
-      (Pt  (5.3170)   (4.2990)  (-1.1930)) || N9  
-      (Pt  (4.0100)   (4.6780)  (-1.2990)) || C8  
-      (Pt  (6.6890)   (0.1903)  (-0.0518)) || H2  
-      (Pt  (1.6470)   (1.4460)  (-0.4040)) || H61 
-      (Pt  (2.2780)  (-0.1080)  (-0.0280)) || H62 
-      (Pt  (3.4421)   (5.5744)  (-1.5482)) || H8  
-      )
-
-rA01
-  = Nuc
-      (Tfo (-0.0043)  (-0.8175)   (0.5759)  || dgf_base_tfo
-            (0.2617)  (-0.5567)  (-0.7884)
-            (0.9651)   (0.1473)   (0.2164)
-            (0.0359)   (8.3929)   (0.5532))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (5.4352)   (8.2183)  (-2.7757)) || C5' 
-      (Pt  (5.3830)   (8.7883)  (-1.8481)) || H5' 
-      (Pt  (5.7729)   (8.7436)  (-3.6691)) || H5''
-      (Pt  (6.4830)   (7.1518)  (-2.5252)) || C4' 
-      (Pt  (7.4749)   (7.5972)  (-2.4482)) || H4' 
-      (Pt  (6.1626)   (6.4620)  (-1.2827)) || O4' 
-      (Pt  (6.5431)   (5.0992)  (-1.3905)) || C1' 
-      (Pt  (7.2871)   (4.9328)  (-0.6114)) || H1' 
-      (Pt  (7.1852)   (4.8935)  (-2.7592)) || C2' 
-      (Pt  (6.8573)   (3.9363)  (-3.1645)) || H2''
-      (Pt  (8.5780)   (5.1025)  (-2.6046)) || O2' 
-      (Pt  (8.9516)   (4.7577)  (-1.7902)) || H2' 
-      (Pt  (6.5522)   (6.0300)  (-3.5612)) || C3' 
-      (Pt  (5.5420)   (5.7356)  (-3.8459)) || H3' 
-      (Pt  (7.3487)   (6.4089)  (-4.6867)) || O3' 
-      (Pt  (4.7442)   (0.4514)  (-0.1390)) || N1  
-      (Pt  (6.3687)   (2.1459)  (-0.5926)) || N3  
-      (Pt  (5.9795)   (0.9335)  (-0.2657)) || C2  
-      (Pt  (5.3052)   (2.9471)  (-0.8125)) || C4  
-      (Pt  (3.9891)   (2.5987)  (-0.7230)) || C5  
-      (Pt  (3.7016)   (1.2717)  (-0.3647)) || C6
-      (A
-      (Pt  (2.4553)   (0.7925)  (-0.2390)) || N6  
-      (Pt  (3.1770)   (3.6859)  (-1.0198)) || N7  
-      (Pt  (5.3247)   (4.2695)  (-1.1710)) || N9  
-      (Pt  (4.0156)   (4.6415)  (-1.2759)) || C8  
-      (Pt  (6.7198)   (0.1618)  (-0.0547)) || H2  
-      (Pt  (1.6709)   (1.3900)  (-0.4039)) || H61 
-      (Pt  (2.3107)  (-0.1627)  (-0.0373)) || H62 
-      (Pt  (3.4426)   (5.5361)  (-1.5199)) || H8  
-      )
-
-rA02
-  = Nuc
-      (Tfo  (0.5566)   (0.0449)   (0.8296)  || dgf_base_tfo
-            (0.5125)   (0.7673)  (-0.3854)
-           (-0.6538)   (0.6397)   (0.4041)
-           (-9.1161)  (-3.7679)  (-2.9968))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.5778)   (6.6594)  (-4.0364)) || C5' 
-      (Pt  (4.9220)   (7.1963)  (-4.9204)) || H5' 
-      (Pt  (3.7996)   (5.9091)  (-4.1764)) || H5''
-      (Pt  (5.7873)   (5.8869)  (-3.5482)) || C4' 
-      (Pt  (6.0405)   (5.0875)  (-4.2446)) || H4' 
-      (Pt  (6.9135)   (6.8036)  (-3.4310)) || O4' 
-      (Pt  (7.7293)   (6.4084)  (-2.3392)) || C1' 
-      (Pt  (8.7078)   (6.1815)  (-2.7624)) || H1' 
-      (Pt  (7.1305)   (5.1418)  (-1.7347)) || C2' 
-      (Pt  (7.2040)   (5.1982)  (-0.6486)) || H2''
-      (Pt  (7.7417)   (4.0392)  (-2.3813)) || O2' 
-      (Pt  (8.6785)   (4.1443)  (-2.5630)) || H2' 
-      (Pt  (5.6666)   (5.2728)  (-2.1536)) || C3' 
-      (Pt  (5.1747)   (5.9805)  (-1.4863)) || H3' 
-      (Pt  (4.9997)   (4.0086)  (-2.1973)) || O3' 
-      (Pt (10.3245)   (8.5459)   (1.5467)) || N1  
-      (Pt  (9.8051)   (6.9432)  (-0.1497)) || N3  
-      (Pt (10.5175)   (7.4328)   (0.8408)) || C2  
-      (Pt  (8.7523)   (7.7422)  (-0.4228)) || C4  
-      (Pt  (8.4257)   (8.9060)   (0.2099)) || C5  
-      (Pt  (9.2665)   (9.3242)   (1.2540)) || C6
-      (A
-      (Pt  (9.0664)  (10.4462)   (1.9610)) || N6  
-      (Pt  (7.2750)   (9.4537)  (-0.3428)) || N7  
-      (Pt  (7.7962)   (7.5519)  (-1.3859)) || N9  
-      (Pt  (6.9479)   (8.6157)  (-1.2771)) || C8  
-      (Pt (11.4063)   (6.9047)   (1.1859)) || H2  
-      (Pt  (8.2845)  (11.0341)   (1.7552)) || H61 
-      (Pt  (9.6584)  (10.6647)   (2.7198)) || H62 
-      (Pt  (6.0430)   (8.9853)  (-1.7594)) || H8  
-      )
-
-rA03
-  = Nuc
-      (Tfo (-0.5021)   (0.0731)   (0.8617)  || dgf_base_tfo
-           (-0.8112)   (0.3054)  (-0.4986)
-           (-0.2996)  (-0.9494)  (-0.0940)
-            (6.4273)  (-5.1944)  (-3.7807))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.1214)   (6.7116)  (-1.9049)) || C5' 
-      (Pt  (3.3465)   (5.9610)  (-2.0607)) || H5' 
-      (Pt  (4.0789)   (7.2928)  (-0.9837)) || H5''
-      (Pt  (5.4170)   (5.9293)  (-1.8186)) || C4' 
-      (Pt  (5.4506)   (5.3400)  (-0.9023)) || H4' 
-      (Pt  (5.5067)   (5.0417)  (-2.9703)) || O4' 
-      (Pt  (6.8650)   (4.9152)  (-3.3612)) || C1' 
-      (Pt  (7.1090)   (3.8577)  (-3.2603)) || H1' 
-      (Pt  (7.7152)   (5.7282)  (-2.3894)) || C2' 
-      (Pt  (8.5029)   (6.2356)  (-2.9463)) || H2''
-      (Pt  (8.1036)   (4.8568)  (-1.3419)) || O2' 
-      (Pt  (8.3270)   (3.9651)  (-1.6184)) || H2' 
-      (Pt  (6.7003)   (6.7565)  (-1.8911)) || C3' 
-      (Pt  (6.5898)   (7.5329)  (-2.6482)) || H3' 
-      (Pt  (7.0505)   (7.2878)  (-0.6105)) || O3' 
-      (Pt  (9.6740)   (4.7656)  (-7.6614)) || N1  
-      (Pt  (9.0739)   (4.3013)  (-5.3941)) || N3  
-      (Pt  (9.8416)   (4.2192)  (-6.4581)) || C2  
-      (Pt  (7.9885)   (5.0632)  (-5.6446)) || C4  
-      (Pt  (7.6822)   (5.6856)  (-6.8194)) || C5  
-      (Pt  (8.5831)   (5.5215)  (-7.8840)) || C6
-      (A
-      (Pt  (8.4084)   (6.0747)  (-9.0933)) || N6  
-      (Pt  (6.4857)   (6.3816)  (-6.7035)) || N7  
-      (Pt  (6.9740)   (5.3703)  (-4.7760)) || N9  
-      (Pt  (6.1133)   (6.1613)  (-5.4808)) || C8  
-      (Pt (10.7627)   (3.6375)  (-6.4220)) || H2  
-      (Pt  (7.6031)   (6.6390)  (-9.2733)) || H61 
-      (Pt  (9.1004)   (5.9708)  (-9.7893)) || H62 
-      (Pt  (5.1705)   (6.6830)  (-5.3167)) || H8  
-      )
-
-rA04
-  = Nuc
-      (Tfo (-0.5426)  (-0.8175)   (0.1929)  || dgf_base_tfo
-            (0.8304)  (-0.5567)  (-0.0237)
-            (0.1267)   (0.1473)   (0.9809)
-           (-0.5075)   (8.3929)   (0.2229))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (5.4352)   (8.2183)  (-2.7757)) || C5' 
-      (Pt  (5.3830)   (8.7883)  (-1.8481)) || H5' 
-      (Pt  (5.7729)   (8.7436)  (-3.6691)) || H5''
-      (Pt  (6.4830)   (7.1518)  (-2.5252)) || C4' 
-      (Pt  (7.4749)   (7.5972)  (-2.4482)) || H4' 
-      (Pt  (6.1626)   (6.4620)  (-1.2827)) || O4' 
-      (Pt  (6.5431)   (5.0992)  (-1.3905)) || C1' 
-      (Pt  (7.2871)   (4.9328)  (-0.6114)) || H1' 
-      (Pt  (7.1852)   (4.8935)  (-2.7592)) || C2' 
-      (Pt  (6.8573)   (3.9363)  (-3.1645)) || H2''
-      (Pt  (8.5780)   (5.1025)  (-2.6046)) || O2' 
-      (Pt  (8.9516)   (4.7577)  (-1.7902)) || H2' 
-      (Pt  (6.5522)   (6.0300)  (-3.5612)) || C3' 
-      (Pt  (5.5420)   (5.7356)  (-3.8459)) || H3' 
-      (Pt  (7.3487)   (6.4089)  (-4.6867)) || O3' 
-      (Pt  (3.6343)   (2.6680)   (2.0783)) || N1  
-      (Pt  (5.4505)   (3.9805)   (1.2446)) || N3  
-      (Pt  (4.7540)   (3.3816)   (2.1851)) || C2  
-      (Pt  (4.8805)   (3.7951)   (0.0354)) || C4  
-      (Pt  (3.7416)   (3.0925)  (-0.2305)) || C5  
-      (Pt  (3.0873)   (2.4980)   (0.8606)) || C6
-      (A
-      (Pt  (1.9600)   (1.7805)   (0.7462)) || N6  
-      (Pt  (3.4605)   (3.1184)  (-1.5906)) || N7  
-      (Pt  (5.3247)   (4.2695)  (-1.1710)) || N9  
-      (Pt  (4.4244)   (3.8244)  (-2.0953)) || C8  
-      (Pt  (5.0814)   (3.4352)   (3.2234)) || H2  
-      (Pt  (1.5423)   (1.6454)  (-0.1520)) || H61 
-      (Pt  (1.5716)   (1.3398)   (1.5392)) || H62 
-      (Pt  (4.2675)   (3.8876)  (-3.1721)) || H8  
-      )
-
-rA05
-  = Nuc
-      (Tfo (-0.5891)   (0.0449)   (0.8068)  || dgf_base_tfo
-            (0.5375)   (0.7673)   (0.3498)
-           (-0.6034)   (0.6397)  (-0.4762)
-           (-0.3019)  (-3.7679)  (-9.5913))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.5778)   (6.6594)  (-4.0364)) || C5' 
-      (Pt  (4.9220)   (7.1963)  (-4.9204)) || H5' 
-      (Pt  (3.7996)   (5.9091)  (-4.1764)) || H5''
-      (Pt  (5.7873)   (5.8869)  (-3.5482)) || C4' 
-      (Pt  (6.0405)   (5.0875)  (-4.2446)) || H4' 
-      (Pt  (6.9135)   (6.8036)  (-3.4310)) || O4' 
-      (Pt  (7.7293)   (6.4084)  (-2.3392)) || C1' 
-      (Pt  (8.7078)   (6.1815)  (-2.7624)) || H1' 
-      (Pt  (7.1305)   (5.1418)  (-1.7347)) || C2' 
-      (Pt  (7.2040)   (5.1982)  (-0.6486)) || H2''
-      (Pt  (7.7417)   (4.0392)  (-2.3813)) || O2' 
-      (Pt  (8.6785)   (4.1443)  (-2.5630)) || H2' 
-      (Pt  (5.6666)   (5.2728)  (-2.1536)) || C3' 
-      (Pt  (5.1747)   (5.9805)  (-1.4863)) || H3' 
-      (Pt  (4.9997)   (4.0086)  (-2.1973)) || O3' 
-      (Pt (10.2594)  (10.6774)  (-1.0056)) || N1  
-      (Pt  (9.7528)   (8.7080)  (-2.2631)) || N3  
-      (Pt (10.4471)   (9.7876)  (-1.9791)) || C2  
-      (Pt  (8.7271)   (8.5575)  (-1.3991)) || C4  
-      (Pt  (8.4100)   (9.3803)  (-0.3580)) || C5  
-      (Pt  (9.2294)  (10.5030)  (-0.1574)) || C6
-      (A
-      (Pt  (9.0349)  (11.3951)   (0.8250)) || N6  
-      (Pt  (7.2891)   (8.9068)   (0.3121)) || N7  
-      (Pt  (7.7962)   (7.5519)  (-1.3859)) || N9  
-      (Pt  (6.9702)   (7.8292)  (-0.3353)) || C8  
-      (Pt (11.3132)  (10.0537)  (-2.5851)) || H2  
-      (Pt  (8.2741)  (11.2784)   (1.4629)) || H61 
-      (Pt  (9.6733)  (12.1368)   (0.9529)) || H62 
-      (Pt  (6.0888)   (7.3990)   (0.1403)) || H8  
-      )
-
-rA06
-  = Nuc
-      (Tfo (-0.9815)   (0.0731)  (-0.1772)  || dgf_base_tfo
-            (0.1912)   (0.3054)  (-0.9328)
-           (-0.0141)  (-0.9494)  (-0.3137)
-            (5.7506)  (-5.1944)   (4.7470))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.1214)   (6.7116)  (-1.9049)) || C5' 
-      (Pt  (3.3465)   (5.9610)  (-2.0607)) || H5' 
-      (Pt  (4.0789)   (7.2928)  (-0.9837)) || H5''
-      (Pt  (5.4170)   (5.9293)  (-1.8186)) || C4' 
-      (Pt  (5.4506)   (5.3400)  (-0.9023)) || H4' 
-      (Pt  (5.5067)   (5.0417)  (-2.9703)) || O4' 
-      (Pt  (6.8650)   (4.9152)  (-3.3612)) || C1' 
-      (Pt  (7.1090)   (3.8577)  (-3.2603)) || H1' 
-      (Pt  (7.7152)   (5.7282)  (-2.3894)) || C2' 
-      (Pt  (8.5029)   (6.2356)  (-2.9463)) || H2''
-      (Pt  (8.1036)   (4.8568)  (-1.3419)) || O2' 
-      (Pt  (8.3270)   (3.9651)  (-1.6184)) || H2' 
-      (Pt  (6.7003)   (6.7565)  (-1.8911)) || C3' 
-      (Pt  (6.5898)   (7.5329)  (-2.6482)) || H3' 
-      (Pt  (7.0505)   (7.2878)  (-0.6105)) || O3' 
-      (Pt  (6.6624)   (3.5061)  (-8.2986)) || N1  
-      (Pt  (6.5810)   (3.2570)  (-5.9221)) || N3  
-      (Pt  (6.5151)   (2.8263)  (-7.1625)) || C2  
-      (Pt  (6.8364)   (4.5817)  (-5.8882)) || C4  
-      (Pt  (7.0116)   (5.4064)  (-6.9609)) || C5  
-      (Pt  (6.9173)   (4.8260)  (-8.2361)) || C6
-      (A
-      (Pt  (7.0668)   (5.5163)  (-9.3763)) || N6  
-      (Pt  (7.2573)   (6.7070)  (-6.5394)) || N7  
-      (Pt  (6.9740)   (5.3703)  (-4.7760)) || N9  
-      (Pt  (7.2238)   (6.6275)  (-5.2453)) || C8  
-      (Pt  (6.3146)   (1.7741)  (-7.3641)) || H2  
-      (Pt  (7.2568)   (6.4972)  (-9.3456)) || H61 
-      (Pt  (7.0437)   (5.0478) (-10.2446)) || H62 
-      (Pt  (7.4108)   (7.6227)  (-4.8418)) || H8  
-      )
-
-rA07
-  = Nuc
-      (Tfo  (0.2379)   (0.1310)  (-0.9624)  || dgf_base_tfo
-           (-0.5876)  (-0.7696)  (-0.2499)
-           (-0.7734)   (0.6249)  (-0.1061)
-           (30.9870) (-26.9344)  (42.6416))
-      (Tfo  (0.7529)   (0.1548)   (0.6397)  || p_o3'_275_tfo
-            (0.2952)  (-0.9481)  (-0.1180)
-            (0.5882)   (0.2777)  (-0.7595)
-          (-58.8919) (-11.3095)   (6.0866))
-      (Tfo (-0.0239)   (0.9667)  (-0.2546)  || p_o3'_180_tfo
-            (0.9731)  (-0.0359)  (-0.2275)
-           (-0.2290)  (-0.2532)  (-0.9399)
-            (3.5401) (-29.7913)  (52.2796))
-      (Tfo (-0.8912)  (-0.4531)   (0.0242)  || p_o3'_60_tfo
-           (-0.1183)   (0.1805)  (-0.9764)
-            (0.4380)  (-0.8730)  (-0.2145)
-           (19.9023)  (54.8054)  (15.2799))
-      (Pt (41.8210)   (8.3880)  (43.5890)) || P   
-      (Pt (42.5400)   (8.0450)  (44.8330)) || O1P 
-      (Pt (42.2470)   (9.6920)  (42.9910)) || O2P 
-      (Pt (40.2550)   (8.2030)  (43.7340)) || O5' 
-      (Pt (39.3505)   (8.4697)  (42.6565)) || C5' 
-      (Pt (39.1377)   (7.5433)  (42.1230)) || H5' 
-      (Pt (39.7203)   (9.3119)  (42.0717)) || H5''
-      (Pt (38.0405)   (8.9195)  (43.2869)) || C4' 
-      (Pt (37.3687)   (9.3036)  (42.5193)) || H4' 
-      (Pt (37.4319)   (7.8146)  (43.9387)) || O4' 
-      (Pt (37.1959)   (8.1354)  (45.3237)) || C1' 
-      (Pt (36.1788)   (8.5202)  (45.3970)) || H1' 
-      (Pt (38.1721)   (9.2328)  (45.6504)) || C2' 
-      (Pt (39.1555)   (8.7939)  (45.8188)) || H2''
-      (Pt (37.7862)  (10.0617)  (46.7013)) || O2' 
-      (Pt (37.3087)   (9.6229)  (47.4092)) || H2' 
-      (Pt (38.1844)  (10.0268)  (44.3367)) || C3' 
-      (Pt (39.1578)  (10.5054)  (44.2289)) || H3' 
-      (Pt (37.0547)  (10.9127)  (44.3441)) || O3' 
-      (Pt (34.8811)   (4.2072)  (47.5784)) || N1  
-      (Pt (35.1084)   (6.1336)  (46.1818)) || N3  
-      (Pt (34.4108)   (5.1360)  (46.7207)) || C2  
-      (Pt (36.3908)   (6.1224)  (46.6053)) || C4  
-      (Pt (36.9819)   (5.2334)  (47.4697)) || C5  
-      (Pt (36.1786)   (4.1985)  (48.0035)) || C6
-      (A
-      (Pt (36.6103)   (3.2749)  (48.8452)) || N6  
-      (Pt (38.3236)   (5.5522)  (47.6595)) || N7  
-      (Pt (37.3887)   (7.0024)  (46.2437)) || N9  
-      (Pt (38.5055)   (6.6096)  (46.9057)) || C8  
-      (Pt (33.3553)   (5.0152)  (46.4771)) || H2  
-      (Pt (37.5730)   (3.2804)  (49.1507)) || H61 
-      (Pt (35.9775)   (2.5638)  (49.1828)) || H62 
-      (Pt (39.5461)   (6.9184)  (47.0041)) || H8  
-      )
-
-rA08
-  = Nuc
-      (Tfo  (0.1084)  (-0.0895)  (-0.9901)  || dgf_base_tfo
-            (0.9789)  (-0.1638)   (0.1220)
-           (-0.1731)  (-0.9824)   (0.0698)
-           (-2.9039)  (47.2655)  (33.0094))
-      (Tfo  (0.7529)   (0.1548)   (0.6397)  || p_o3'_275_tfo
-            (0.2952)  (-0.9481)  (-0.1180)
-            (0.5882)   (0.2777)  (-0.7595)
-          (-58.8919) (-11.3095)   (6.0866))
-      (Tfo (-0.0239)   (0.9667)  (-0.2546)  || p_o3'_180_tfo
-            (0.9731)  (-0.0359)  (-0.2275)
-           (-0.2290)  (-0.2532)  (-0.9399)
-            (3.5401) (-29.7913)  (52.2796))
-      (Tfo (-0.8912)  (-0.4531)   (0.0242)  || p_o3'_60_tfo
-           (-0.1183)   (0.1805)  (-0.9764)
-            (0.4380)  (-0.8730)  (-0.2145)
-           (19.9023)  (54.8054)  (15.2799))
-      (Pt (41.8210)   (8.3880)  (43.5890)) || P   
-      (Pt (42.5400)   (8.0450)  (44.8330)) || O1P 
-      (Pt (42.2470)   (9.6920)  (42.9910)) || O2P 
-      (Pt (40.2550)   (8.2030)  (43.7340)) || O5' 
-      (Pt (39.4850)   (8.9301)  (44.6977)) || C5' 
-      (Pt (39.0638)   (9.8199)  (44.2296)) || H5' 
-      (Pt (40.0757)   (9.0713)  (45.6029)) || H5''
-      (Pt (38.3102)   (8.0414)  (45.0789)) || C4' 
-      (Pt (37.7842)   (8.4637)  (45.9351)) || H4' 
-      (Pt (37.4200)   (7.9453)  (43.9769)) || O4' 
-      (Pt (37.2249)   (6.5609)  (43.6273)) || C1' 
-      (Pt (36.3360)   (6.2168)  (44.1561)) || H1' 
-      (Pt (38.4347)   (5.8414)  (44.1590)) || C2' 
-      (Pt (39.2688)   (5.9974)  (43.4749)) || H2''
-      (Pt (38.2344)   (4.4907)  (44.4348)) || O2' 
-      (Pt (37.6374)   (4.0386)  (43.8341)) || H2' 
-      (Pt (38.6926)   (6.6079)  (45.4637)) || C3' 
-      (Pt (39.7585)   (6.5640)  (45.6877)) || H3' 
-      (Pt (37.8238)   (6.0705)  (46.4723)) || O3' 
-      (Pt (33.9162)   (6.2598)  (39.7758)) || N1  
-      (Pt (34.6709)   (6.5759)  (42.0215)) || N3  
-      (Pt (33.7257)   (6.5186)  (41.0858)) || C2  
-      (Pt (35.8935)   (6.3324)  (41.5018)) || C4  
-      (Pt (36.2105)   (6.0601)  (40.1932)) || C5  
-      (Pt (35.1538)   (6.0151)  (39.2537)) || C6
-      (A
-      (Pt (35.3088)   (5.7642)  (37.9649)) || N6  
-      (Pt (37.5818)   (5.8677)  (40.0507)) || N7  
-      (Pt (37.0932)   (6.3197)  (42.1810)) || N9  
-      (Pt (38.0509)   (6.0354)  (41.2635)) || C8  
-      (Pt (32.6830)   (6.6898)  (41.3532)) || H2  
-      (Pt (36.2305)   (5.5855)  (37.5925)) || H61 
-      (Pt (34.5056)   (5.7512)  (37.3528)) || H62 
-      (Pt (39.1318)   (5.8993)  (41.2285)) || H8  
-      )
-
-rA09
-  = Nuc
-      (Tfo  (0.8467)   (0.4166)  (-0.3311)  || dgf_base_tfo
-           (-0.3962)   (0.9089)   (0.1303)
-            (0.3552)   (0.0209)   (0.9346)
-          (-42.7319) (-26.6223) (-29.8163))
-      (Tfo  (0.7529)   (0.1548)   (0.6397)  || p_o3'_275_tfo
-            (0.2952)  (-0.9481)  (-0.1180)
-            (0.5882)   (0.2777)  (-0.7595)
-          (-58.8919) (-11.3095)   (6.0866))
-      (Tfo (-0.0239)   (0.9667)  (-0.2546)  || p_o3'_180_tfo
-            (0.9731)  (-0.0359)  (-0.2275)
-           (-0.2290)  (-0.2532)  (-0.9399)
-            (3.5401) (-29.7913)  (52.2796))
-      (Tfo (-0.8912)  (-0.4531)   (0.0242)  || p_o3'_60_tfo
-           (-0.1183)   (0.1805)  (-0.9764)
-            (0.4380)  (-0.8730)  (-0.2145)
-           (19.9023)  (54.8054)  (15.2799))
-      (Pt (41.8210)   (8.3880)  (43.5890)) || P   
-      (Pt (42.5400)   (8.0450)  (44.8330)) || O1P 
-      (Pt (42.2470)   (9.6920)  (42.9910)) || O2P 
-      (Pt (40.2550)   (8.2030)  (43.7340)) || O5' 
-      (Pt (39.3505)   (8.4697)  (42.6565)) || C5' 
-      (Pt (39.1377)   (7.5433)  (42.1230)) || H5' 
-      (Pt (39.7203)   (9.3119)  (42.0717)) || H5''
-      (Pt (38.0405)   (8.9195)  (43.2869)) || C4' 
-      (Pt (37.6479)   (8.1347)  (43.9335)) || H4' 
-      (Pt (38.2691)  (10.0933)  (44.0524)) || O4' 
-      (Pt (37.3999)  (11.1488)  (43.5973)) || C1' 
-      (Pt (36.5061)  (11.1221)  (44.2206)) || H1' 
-      (Pt (37.0364)  (10.7838)  (42.1836)) || C2' 
-      (Pt (37.8636)  (11.0489)  (41.5252)) || H2''
-      (Pt (35.8275)  (11.3133)  (41.7379)) || O2' 
-      (Pt (35.6214)  (12.1896)  (42.0714)) || H2' 
-      (Pt (36.9316)   (9.2556)  (42.2837)) || C3' 
-      (Pt (37.1778)   (8.8260)  (41.3127)) || H3' 
-      (Pt (35.6285)   (8.9334)  (42.7926)) || O3' 
-      (Pt (38.1482)  (15.2833)  (46.4641)) || N1  
-      (Pt (37.3641)  (13.0968)  (45.9007)) || N3  
-      (Pt (37.5032)  (14.1288)  (46.7300)) || C2  
-      (Pt (37.9570)  (13.3377)  (44.7113)) || C4  
-      (Pt (38.6397)  (14.4660)  (44.3267)) || C5  
-      (Pt (38.7473)  (15.5229)  (45.2609)) || C6
-      (A
-      (Pt (39.3720)  (16.6649)  (45.0297)) || N6  
-      (Pt (39.1079)  (14.3351)  (43.0223)) || N7  
-      (Pt (38.0132)  (12.4868)  (43.6280)) || N9  
-      (Pt (38.7058)  (13.1402)  (42.6620)) || C8  
-      (Pt (37.0731)  (14.0857)  (47.7306)) || H2  
-      (Pt (39.8113)  (16.8281)  (44.1350)) || H61 
-      (Pt (39.4100)  (17.3741)  (45.7478)) || H62 
-      (Pt (39.0412)  (12.9660)  (41.6397)) || H8  
-      )
-
-rA10
-  = Nuc
-      (Tfo  (0.7063)   (0.6317)  (-0.3196)  || dgf_base_tfo
-           (-0.0403)  (-0.4149)  (-0.9090)
-           (-0.7068)   (0.6549)  (-0.2676)
-            (6.4402) (-52.1496)  (30.8246))
-      (Tfo  (0.7529)   (0.1548)   (0.6397)  || p_o3'_275_tfo
-            (0.2952)  (-0.9481)  (-0.1180)
-            (0.5882)   (0.2777)  (-0.7595)
-          (-58.8919) (-11.3095)   (6.0866))
-      (Tfo (-0.0239)   (0.9667)  (-0.2546)  || p_o3'_180_tfo
-            (0.9731)  (-0.0359)  (-0.2275)
-           (-0.2290)  (-0.2532)  (-0.9399)
-            (3.5401) (-29.7913)  (52.2796))
-      (Tfo (-0.8912)  (-0.4531)   (0.0242)  || p_o3'_60_tfo
-           (-0.1183)   (0.1805)  (-0.9764)
-            (0.4380)  (-0.8730)  (-0.2145)
-           (19.9023)  (54.8054)  (15.2799))
-      (Pt (41.8210)   (8.3880)  (43.5890)) || P   
-      (Pt (42.5400)   (8.0450)  (44.8330)) || O1P 
-      (Pt (42.2470)   (9.6920)  (42.9910)) || O2P 
-      (Pt (40.2550)   (8.2030)  (43.7340)) || O5' 
-      (Pt (39.4850)   (8.9301)  (44.6977)) || C5' 
-      (Pt (39.0638)   (9.8199)  (44.2296)) || H5' 
-      (Pt (40.0757)   (9.0713)  (45.6029)) || H5''
-      (Pt (38.3102)   (8.0414)  (45.0789)) || C4' 
-      (Pt (37.7099)   (7.8166)  (44.1973)) || H4' 
-      (Pt (38.8012)   (6.8321)  (45.6380)) || O4' 
-      (Pt (38.2431)   (6.6413)  (46.9529)) || C1' 
-      (Pt (37.3505)   (6.0262)  (46.8385)) || H1' 
-      (Pt (37.8484)   (8.0156)  (47.4214)) || C2' 
-      (Pt (38.7381)   (8.5406)  (47.7690)) || H2''
-      (Pt (36.8286)   (8.0368)  (48.3701)) || O2' 
-      (Pt (36.8392)   (7.3063)  (48.9929)) || H2' 
-      (Pt (37.3576)   (8.6512)  (46.1132)) || C3' 
-      (Pt (37.5207)   (9.7275)  (46.1671)) || H3' 
-      (Pt (35.9985)   (8.2392)  (45.9032)) || O3' 
-      (Pt (39.9117)   (2.2278)  (48.8527)) || N1  
-      (Pt (38.6207)   (3.6941)  (47.4757)) || N3  
-      (Pt (38.9872)   (2.4888)  (47.9057)) || C2  
-      (Pt (39.2961)   (4.6720)  (48.1174)) || C4  
-      (Pt (40.2546)   (4.5307)  (49.0912)) || C5  
-      (Pt (40.5932)   (3.2189)  (49.4985)) || C6
-      (A
-      (Pt (41.4938)   (2.9317)  (50.4229)) || N6  
-      (Pt (40.7195)   (5.7755)  (49.5060)) || N7  
-      (Pt (39.1730)   (6.0305)  (47.9170)) || N9  
-      (Pt (40.0413)   (6.6250)  (48.7728)) || C8  
-      (Pt (38.5257)   (1.5960)  (47.4838)) || H2  
-      (Pt (41.9907)   (3.6753)  (50.8921)) || H61 
-      (Pt (41.6848)   (1.9687)  (50.6599)) || H62 
-      (Pt (40.3571)   (7.6321)  (49.0452)) || H8  
-      )
-
-rAs = [rA01,rA02,rA03,rA04,rA05,rA06,rA07,rA08,rA09,rA10]
-
-rC
-  = Nuc
-      (Tfo (-0.0359)  (-0.8071)   (0.5894)  || dgf_base_tfo
-           (-0.2669)   (0.5761)   (0.7726)
-           (-0.9631)  (-0.1296)  (-0.2361)
-            (0.1584)   (8.3434)   (0.5434))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2430)  (-8.2420)   (2.8260)) || C5' 
-      (Pt  (5.1974)  (-8.8497)   (1.9223)) || H5' 
-      (Pt  (5.5548)  (-8.7348)   (3.7469)) || H5''
-      (Pt  (6.3140)  (-7.2060)   (2.5510)) || C4' 
-      (Pt  (7.2954)  (-7.6762)   (2.4898)) || H4' 
-      (Pt  (6.0140)  (-6.5420)   (1.2890)) || O4' 
-      (Pt  (6.4190)  (-5.1840)   (1.3620)) || C1' 
-      (Pt  (7.1608)  (-5.0495)   (0.5747)) || H1' 
-      (Pt  (7.0760)  (-4.9560)   (2.7270)) || C2' 
-      (Pt  (6.7770)  (-3.9803)   (3.1099)) || H2''
-      (Pt  (8.4500)  (-5.1930)   (2.5810)) || O2' 
-      (Pt  (8.8309)  (-4.8755)   (1.7590)) || H2' 
-      (Pt  (6.4060)  (-6.0590)   (3.5580)) || C3' 
-      (Pt  (5.4021)  (-5.7313)   (3.8281)) || H3' 
-      (Pt  (7.1570)  (-6.4240)   (4.7070)) || O3' 
-      (Pt  (5.2170)  (-4.3260)   (1.1690)) || N1  
-      (Pt  (4.2960)  (-2.2560)   (0.6290)) || N3  
-      (Pt  (5.4330)  (-3.0200)   (0.7990)) || C2  
-      (Pt  (2.9930)  (-2.6780)   (0.7940)) || C4  
-      (Pt  (2.8670)  (-4.0630)   (1.1830)) || C5  
-      (Pt  (3.9570)  (-4.8300)   (1.3550)) || C6
-      (C
-      (Pt  (2.0187)  (-1.8047)   (0.5874)) || N4  
-      (Pt  (6.5470)  (-2.5560)   (0.6290)) || O2  
-      (Pt  (1.0684)  (-2.1236)   (0.7109)) || H41 
-      (Pt  (2.2344)  (-0.8560)   (0.3162)) || H42 
-      (Pt  (1.8797)  (-4.4972)   (1.3404)) || H5  
-      (Pt  (3.8479)  (-5.8742)   (1.6480)) || H6  
-      )
-
-rC01
-  = Nuc
-      (Tfo (-0.0137)  (-0.8012)   (0.5983)  || dgf_base_tfo
-           (-0.2523)   (0.5817)   (0.7733)
-           (-0.9675)  (-0.1404)  (-0.2101)
-            (0.2031)   (8.3874)   (0.4228))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2416)  (-8.2422)   (2.8181)) || C5' 
-      (Pt  (5.2050)  (-8.8128)   (1.8901)) || H5' 
-      (Pt  (5.5368)  (-8.7738)   (3.7227)) || H5''
-      (Pt  (6.3232)  (-7.2037)   (2.6002)) || C4' 
-      (Pt  (7.3048)  (-7.6757)   (2.5577)) || H4' 
-      (Pt  (6.0635)  (-6.5092)   (1.3456)) || O4' 
-      (Pt  (6.4697)  (-5.1547)   (1.4629)) || C1' 
-      (Pt  (7.2354)  (-5.0043)   (0.7018)) || H1' 
-      (Pt  (7.0856)  (-4.9610)   (2.8521)) || C2' 
-      (Pt  (6.7777)  (-3.9935)   (3.2487)) || H2''
-      (Pt  (8.4627)  (-5.1992)   (2.7423)) || O2' 
-      (Pt  (8.8693)  (-4.8638)   (1.9399)) || H2' 
-      (Pt  (6.3877)  (-6.0809)   (3.6362)) || C3' 
-      (Pt  (5.3770)  (-5.7562)   (3.8834)) || H3' 
-      (Pt  (7.1024)  (-6.4754)   (4.7985)) || O3' 
-      (Pt  (5.2764)  (-4.2883)   (1.2538)) || N1  
-      (Pt  (4.3777)  (-2.2062)   (0.7229)) || N3  
-      (Pt  (5.5069)  (-2.9779)   (0.9088)) || C2  
-      (Pt  (3.0693)  (-2.6246)   (0.8500)) || C4  
-      (Pt  (2.9279)  (-4.0146)   (1.2149)) || C5  
-      (Pt  (4.0101)  (-4.7892)   (1.4017)) || C6
-      (C
-      (Pt  (2.1040)  (-1.7437)   (0.6331)) || N4  
-      (Pt  (6.6267)  (-2.5166)   (0.7728)) || O2  
-      (Pt  (1.1496)  (-2.0600)   (0.7287)) || H41 
-      (Pt  (2.3303)  (-0.7921)   (0.3815)) || H42 
-      (Pt  (1.9353)  (-4.4465)   (1.3419)) || H5  
-      (Pt  (3.8895)  (-5.8371)   (1.6762)) || H6  
-      )
-
-rC02
-  = Nuc
-      (Tfo  (0.5141)   (0.0246)   (0.8574)  || dgf_base_tfo
-           (-0.5547)  (-0.7529)   (0.3542)
-            (0.6542)  (-0.6577)  (-0.3734)
-           (-9.1111)  (-3.4598)  (-3.2939))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (4.3825)  (-6.6585)   (4.0489)) || C5' 
-      (Pt  (4.6841)  (-7.2019)   (4.9443)) || H5' 
-      (Pt  (3.6189)  (-5.8889)   (4.1625)) || H5''
-      (Pt  (5.6255)  (-5.9175)   (3.5998)) || C4' 
-      (Pt  (5.8732)  (-5.1228)   (4.3034)) || H4' 
-      (Pt  (6.7337)  (-6.8605)   (3.5222)) || O4' 
-      (Pt  (7.5932)  (-6.4923)   (2.4548)) || C1' 
-      (Pt  (8.5661)  (-6.2983)   (2.9064)) || H1' 
-      (Pt  (7.0527)  (-5.2012)   (1.8322)) || C2' 
-      (Pt  (7.1627)  (-5.2525)   (0.7490)) || H2''
-      (Pt  (7.6666)  (-4.1249)   (2.4880)) || O2' 
-      (Pt  (8.5944)  (-4.2543)   (2.6981)) || H2' 
-      (Pt  (5.5661)  (-5.3029)   (2.2009)) || C3' 
-      (Pt  (5.0841)  (-6.0018)   (1.5172)) || H3' 
-      (Pt  (4.9062)  (-4.0452)   (2.2042)) || O3' 
-      (Pt  (7.6298)  (-7.6136)   (1.4752)) || N1  
-      (Pt  (8.6945)  (-8.7046)  (-0.2857)) || N3  
-      (Pt  (8.6943)  (-7.6514)   (0.6066)) || C2  
-      (Pt  (7.7426)  (-9.6987)  (-0.3801)) || C4  
-      (Pt  (6.6642)  (-9.5742)   (0.5722)) || C5  
-      (Pt  (6.6391)  (-8.5592)   (1.4526)) || C6
-      (C
-      (Pt  (7.9033) (-10.6371)  (-1.3010)) || N4  
-      (Pt  (9.5840)  (-6.8186)   (0.6136)) || O2  
-      (Pt  (7.2009) (-11.3604)  (-1.3619)) || H41 
-      (Pt  (8.7058) (-10.6168)  (-1.9140)) || H42 
-      (Pt  (5.8585) (-10.3083)   (0.5822)) || H5  
-      (Pt  (5.8197)  (-8.4773)   (2.1667)) || H6  
-      )
-
-rC03
-  = Nuc
-      (Tfo (-0.4993)   (0.0476)   (0.8651)  || dgf_base_tfo
-            (0.8078)  (-0.3353)   (0.4847)
-            (0.3132)   (0.9409)   (0.1290)
-            (6.2989)  (-5.2303)  (-3.8577))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (3.9938)  (-6.7042)   (1.9023)) || C5' 
-      (Pt  (3.2332)  (-5.9343)   (2.0319)) || H5' 
-      (Pt  (3.9666)  (-7.2863)   (0.9812)) || H5''
-      (Pt  (5.3098)  (-5.9546)   (1.8564)) || C4' 
-      (Pt  (5.3863)  (-5.3702)   (0.9395)) || H4' 
-      (Pt  (5.3851)  (-5.0642)   (3.0076)) || O4' 
-      (Pt  (6.7315)  (-4.9724)   (3.4462)) || C1' 
-      (Pt  (7.0033)  (-3.9202)   (3.3619)) || H1' 
-      (Pt  (7.5997)  (-5.8018)   (2.4948)) || C2' 
-      (Pt  (8.3627)  (-6.3254)   (3.0707)) || H2''
-      (Pt  (8.0410)  (-4.9501)   (1.4724)) || O2' 
-      (Pt  (8.2781)  (-4.0644)   (1.7570)) || H2' 
-      (Pt  (6.5701)  (-6.8129)   (1.9714)) || C3' 
-      (Pt  (6.4186)  (-7.5809)   (2.7299)) || H3' 
-      (Pt  (6.9357)  (-7.3841)   (0.7235)) || O3' 
-      (Pt  (6.8024)  (-5.4718)   (4.8475)) || N1  
-      (Pt  (7.9218)  (-5.5700)   (6.8877)) || N3  
-      (Pt  (7.8908)  (-5.0886)   (5.5944)) || C2  
-      (Pt  (6.9789)  (-6.3827)   (7.4823)) || C4  
-      (Pt  (5.8742)  (-6.7319)   (6.6202)) || C5  
-      (Pt  (5.8182)  (-6.2769)   (5.3570)) || C6
-      (C
-      (Pt  (7.1702)  (-6.7511)   (8.7402)) || N4  
-      (Pt  (8.7747)  (-4.3728)   (5.1568)) || O2  
-      (Pt  (6.4741)  (-7.3461)   (9.1662)) || H41 
-      (Pt  (7.9889)  (-6.4396)   (9.2429)) || H42 
-      (Pt  (5.0736)  (-7.3713)   (6.9922)) || H5  
-      (Pt  (4.9784)  (-6.5473)   (4.7170)) || H6  
-      )
-
-rC04
-  = Nuc
-      (Tfo (-0.5669)  (-0.8012)   (0.1918)  || dgf_base_tfo
-           (-0.8129)   (0.5817)   (0.0273)
-           (-0.1334)  (-0.1404)  (-0.9811)
-           (-0.3279)   (8.3874)   (0.3355))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2416)  (-8.2422)   (2.8181)) || C5' 
-      (Pt  (5.2050)  (-8.8128)   (1.8901)) || H5' 
-      (Pt  (5.5368)  (-8.7738)   (3.7227)) || H5''
-      (Pt  (6.3232)  (-7.2037)   (2.6002)) || C4' 
-      (Pt  (7.3048)  (-7.6757)   (2.5577)) || H4' 
-      (Pt  (6.0635)  (-6.5092)   (1.3456)) || O4' 
-      (Pt  (6.4697)  (-5.1547)   (1.4629)) || C1' 
-      (Pt  (7.2354)  (-5.0043)   (0.7018)) || H1' 
-      (Pt  (7.0856)  (-4.9610)   (2.8521)) || C2' 
-      (Pt  (6.7777)  (-3.9935)   (3.2487)) || H2''
-      (Pt  (8.4627)  (-5.1992)   (2.7423)) || O2' 
-      (Pt  (8.8693)  (-4.8638)   (1.9399)) || H2' 
-      (Pt  (6.3877)  (-6.0809)   (3.6362)) || C3' 
-      (Pt  (5.3770)  (-5.7562)   (3.8834)) || H3' 
-      (Pt  (7.1024)  (-6.4754)   (4.7985)) || O3' 
-      (Pt  (5.2764)  (-4.2883)   (1.2538)) || N1  
-      (Pt  (3.8961)  (-3.0896)  (-0.1893)) || N3  
-      (Pt  (5.0095)  (-3.8907)  (-0.0346)) || C2  
-      (Pt  (3.0480)  (-2.6632)   (0.8116)) || C4  
-      (Pt  (3.4093)  (-3.1310)   (2.1292)) || C5  
-      (Pt  (4.4878)  (-3.9124)   (2.3088)) || C6
-      (C
-      (Pt  (2.0216)  (-1.8941)   (0.4804)) || N4  
-      (Pt  (5.7005)  (-4.2164)  (-0.9842)) || O2  
-      (Pt  (1.4067)  (-1.5873)   (1.2205)) || H41 
-      (Pt  (1.8721)  (-1.6319)  (-0.4835)) || H42 
-      (Pt  (2.8048)  (-2.8507)   (2.9918)) || H5  
-      (Pt  (4.7491)  (-4.2593)   (3.3085)) || H6  
-      )
-
-rC05
-  = Nuc
-      (Tfo (-0.6298)   (0.0246)   (0.7763)  || dgf_base_tfo
-           (-0.5226)  (-0.7529)  (-0.4001)
-            (0.5746)  (-0.6577)   (0.4870)
-           (-0.0208)  (-3.4598)  (-9.6882))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (4.3825)  (-6.6585)   (4.0489)) || C5' 
-      (Pt  (4.6841)  (-7.2019)   (4.9443)) || H5' 
-      (Pt  (3.6189)  (-5.8889)   (4.1625)) || H5''
-      (Pt  (5.6255)  (-5.9175)   (3.5998)) || C4' 
-      (Pt  (5.8732)  (-5.1228)   (4.3034)) || H4' 
-      (Pt  (6.7337)  (-6.8605)   (3.5222)) || O4' 
-      (Pt  (7.5932)  (-6.4923)   (2.4548)) || C1' 
-      (Pt  (8.5661)  (-6.2983)   (2.9064)) || H1' 
-      (Pt  (7.0527)  (-5.2012)   (1.8322)) || C2' 
-      (Pt  (7.1627)  (-5.2525)   (0.7490)) || H2''
-      (Pt  (7.6666)  (-4.1249)   (2.4880)) || O2' 
-      (Pt  (8.5944)  (-4.2543)   (2.6981)) || H2' 
-      (Pt  (5.5661)  (-5.3029)   (2.2009)) || C3' 
-      (Pt  (5.0841)  (-6.0018)   (1.5172)) || H3' 
-      (Pt  (4.9062)  (-4.0452)   (2.2042)) || O3' 
-      (Pt  (7.6298)  (-7.6136)   (1.4752)) || N1  
-      (Pt  (8.5977)  (-9.5977)   (0.7329)) || N3  
-      (Pt  (8.5951)  (-8.5745)   (1.6594)) || C2  
-      (Pt  (7.7372)  (-9.7371)  (-0.3364)) || C4  
-      (Pt  (6.7596)  (-8.6801)  (-0.4476)) || C5  
-      (Pt  (6.7338)  (-7.6721)   (0.4408)) || C6
-      (C
-      (Pt  (7.8849) (-10.7881)  (-1.1289)) || N4  
-      (Pt  (9.3993)  (-8.5377)   (2.5743)) || O2  
-      (Pt  (7.2499) (-10.8809)  (-1.9088)) || H41 
-      (Pt  (8.6122) (-11.4649)  (-0.9468)) || H42 
-      (Pt  (6.0317)  (-8.6941)  (-1.2588)) || H5  
-      (Pt  (5.9901)  (-6.8809)   (0.3459)) || H6  
-      )
-
-rC06
-  = Nuc
-      (Tfo (-0.9837)   (0.0476)  (-0.1733)  || dgf_base_tfo
-           (-0.1792)  (-0.3353)   (0.9249)
-           (-0.0141)   (0.9409)   (0.3384)
-            (5.7793)  (-5.2303)   (4.5997))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (3.9938)  (-6.7042)   (1.9023)) || C5' 
-      (Pt  (3.2332)  (-5.9343)   (2.0319)) || H5' 
-      (Pt  (3.9666)  (-7.2863)   (0.9812)) || H5''
-      (Pt  (5.3098)  (-5.9546)   (1.8564)) || C4' 
-      (Pt  (5.3863)  (-5.3702)   (0.9395)) || H4' 
-      (Pt  (5.3851)  (-5.0642)   (3.0076)) || O4' 
-      (Pt  (6.7315)  (-4.9724)   (3.4462)) || C1' 
-      (Pt  (7.0033)  (-3.9202)   (3.3619)) || H1' 
-      (Pt  (7.5997)  (-5.8018)   (2.4948)) || C2' 
-      (Pt  (8.3627)  (-6.3254)   (3.0707)) || H2''
-      (Pt  (8.0410)  (-4.9501)   (1.4724)) || O2' 
-      (Pt  (8.2781)  (-4.0644)   (1.7570)) || H2' 
-      (Pt  (6.5701)  (-6.8129)   (1.9714)) || C3' 
-      (Pt  (6.4186)  (-7.5809)   (2.7299)) || H3' 
-      (Pt  (6.9357)  (-7.3841)   (0.7235)) || O3' 
-      (Pt  (6.8024)  (-5.4718)   (4.8475)) || N1  
-      (Pt  (6.6920)  (-5.0495)   (7.1354)) || N3  
-      (Pt  (6.6201)  (-4.5500)   (5.8506)) || C2  
-      (Pt  (6.9254)  (-6.3614)   (7.4926)) || C4  
-      (Pt  (7.1046)  (-7.2543)   (6.3718)) || C5  
-      (Pt  (7.0391)  (-6.7951)   (5.1106)) || C6
-      (C
-      (Pt  (6.9614)  (-6.6648)   (8.7815)) || N4  
-      (Pt  (6.4083)  (-3.3696)   (5.6340)) || O2  
-      (Pt  (7.1329)  (-7.6280)   (9.0324)) || H41 
-      (Pt  (6.8204)  (-5.9469)   (9.4777)) || H42 
-      (Pt  (7.2954)  (-8.3135)   (6.5440)) || H5  
-      (Pt  (7.1753)  (-7.4798)   (4.2735)) || H6  
-      )
-
-rC07
-  = Nuc
-      (Tfo  (0.0033)   (0.2720)  (-0.9623)  || dgf_base_tfo
-            (0.3013)  (-0.9179)  (-0.2584)
-           (-0.9535)  (-0.2891)  (-0.0850)
-           (43.0403)  (13.7233)  (34.5710))
-      (Tfo  (0.9187)   (0.2887)   (0.2694)  || p_o3'_275_tfo
-            (0.0302)  (-0.7316)   (0.6811)
-            (0.3938)  (-0.6176)  (-0.6808)
-          (-48.4330)  (26.3254)  (13.6383))
-      (Tfo (-0.1504)   (0.7744)  (-0.6145)  || p_o3'_180_tfo
-            (0.7581)   (0.4893)   (0.4311)
-            (0.6345)  (-0.4010)  (-0.6607)
-          (-31.9784) (-13.4285)  (44.9650))
-      (Tfo (-0.6236)  (-0.7810)  (-0.0337)  || p_o3'_60_tfo
-           (-0.6890)   (0.5694)  (-0.4484)
-            (0.3694)  (-0.2564)  (-0.8932)
-           (12.1105)  (30.8774)  (46.0946))
-      (Pt (33.3400)  (11.0980)  (46.1750)) || P   
-      (Pt (34.5130)  (10.2320)  (46.4660)) || O1P 
-      (Pt (33.4130)  (12.3960)  (46.9340)) || O2P 
-      (Pt (31.9810)  (10.3390)  (46.4820)) || O5' 
-      (Pt (30.8152)  (11.1619)  (46.2003)) || C5' 
-      (Pt (30.4519)  (10.9454)  (45.1957)) || H5' 
-      (Pt (31.0379)  (12.2016)  (46.4400)) || H5''
-      (Pt (29.7081)  (10.7448)  (47.1428)) || C4' 
-      (Pt (28.8710)  (11.4416)  (47.0982)) || H4' 
-      (Pt (29.2550)   (9.4394)  (46.8162)) || O4' 
-      (Pt (29.3907)   (8.5625)  (47.9460)) || C1' 
-      (Pt (28.4416)   (8.5669)  (48.4819)) || H1' 
-      (Pt (30.4468)   (9.2031)  (48.7952)) || C2' 
-      (Pt (31.4222)   (8.9651)  (48.3709)) || H2''
-      (Pt (30.3701)   (8.9157)  (50.1624)) || O2' 
-      (Pt (30.0652)   (8.0304)  (50.3740)) || H2' 
-      (Pt (30.1622)  (10.6879)  (48.6120)) || C3' 
-      (Pt (31.0952)  (11.2399)  (48.7254)) || H3' 
-      (Pt (29.1076)  (11.1535)  (49.4702)) || O3' 
-      (Pt (29.7883)   (7.2209)  (47.5235)) || N1  
-      (Pt (29.1825)   (5.0438)  (46.8275)) || N3  
-      (Pt (28.8008)   (6.2912)  (47.2263)) || C2  
-      (Pt (30.4888)   (4.6890)  (46.7186)) || C4  
-      (Pt (31.5034)   (5.6405)  (47.0249)) || C5  
-      (Pt (31.1091)   (6.8691)  (47.4156)) || C6
-      (C
-      (Pt (30.8109)   (3.4584)  (46.3336)) || N4  
-      (Pt (27.6171)   (6.5989)  (47.3189)) || O2  
-      (Pt (31.7923)   (3.2301)  (46.2638)) || H41 
-      (Pt (30.0880)   (2.7857)  (46.1215)) || H42 
-      (Pt (32.5542)   (5.3634)  (46.9395)) || H5  
-      (Pt (31.8523)   (7.6279)  (47.6603)) || H6  
-      )
-
-rC08
-  = Nuc
-      (Tfo  (0.0797)  (-0.6026)  (-0.7941)  || dgf_base_tfo
-            (0.7939)   (0.5201)  (-0.3150)
-            (0.6028)  (-0.6054)   (0.5198)
-          (-36.8341)  (41.5293)   (1.6628))
-      (Tfo  (0.9187)   (0.2887)   (0.2694)  || p_o3'_275_tfo
-            (0.0302)  (-0.7316)   (0.6811)
-            (0.3938)  (-0.6176)  (-0.6808)
-          (-48.4330)  (26.3254)  (13.6383))
-      (Tfo (-0.1504)   (0.7744)  (-0.6145)  || p_o3'_180_tfo
-            (0.7581)   (0.4893)   (0.4311)
-            (0.6345)  (-0.4010)  (-0.6607)
-          (-31.9784) (-13.4285)  (44.9650))
-      (Tfo (-0.6236)  (-0.7810)  (-0.0337)  || p_o3'_60_tfo
-           (-0.6890)   (0.5694)  (-0.4484)
-            (0.3694)  (-0.2564)  (-0.8932)
-           (12.1105)  (30.8774)  (46.0946))
-      (Pt (33.3400)  (11.0980)  (46.1750)) || P   
-      (Pt (34.5130)  (10.2320)  (46.4660)) || O1P 
-      (Pt (33.4130)  (12.3960)  (46.9340)) || O2P 
-      (Pt (31.9810)  (10.3390)  (46.4820)) || O5' 
-      (Pt (31.8779)   (9.9369)  (47.8760)) || C5' 
-      (Pt (31.3239)  (10.6931)  (48.4322)) || H5' 
-      (Pt (32.8647)   (9.6624)  (48.2489)) || H5''
-      (Pt (31.0429)   (8.6773)  (47.9401)) || C4' 
-      (Pt (31.0779)   (8.2331)  (48.9349)) || H4' 
-      (Pt (29.6956)   (8.9669)  (47.5983)) || O4' 
-      (Pt (29.2784)   (8.1700)  (46.4782)) || C1' 
-      (Pt (28.8006)   (7.2731)  (46.8722)) || H1' 
-      (Pt (30.5544)   (7.7940)  (45.7875)) || C2' 
-      (Pt (30.8837)   (8.6410)  (45.1856)) || H2''
-      (Pt (30.5100)   (6.6007)  (45.0582)) || O2' 
-      (Pt (29.6694)   (6.4168)  (44.6326)) || H2' 
-      (Pt (31.5146)   (7.5954)  (46.9527)) || C3' 
-      (Pt (32.5255)   (7.8261)  (46.6166)) || H3' 
-      (Pt (31.3876)   (6.2951)  (47.5516)) || O3' 
-      (Pt (28.3976)   (8.9302)  (45.5933)) || N1  
-      (Pt (26.2155)   (9.6135)  (44.9910)) || N3  
-      (Pt (27.0281)   (8.8961)  (45.8192)) || C2  
-      (Pt (26.7044)  (10.3489)  (43.9595)) || C4  
-      (Pt (28.1088)  (10.3837)  (43.7247)) || C5  
-      (Pt (28.8978)   (9.6708)  (44.5535)) || C6
-      (C
-      (Pt (25.8715)  (11.0249)  (43.1749)) || N4  
-      (Pt (26.5733)   (8.2371)  (46.7484)) || O2  
-      (Pt (26.2707)  (11.5609)  (42.4177)) || H41 
-      (Pt (24.8760)  (10.9939)  (43.3427)) || H42 
-      (Pt (28.5089)  (10.9722)  (42.8990)) || H5  
-      (Pt (29.9782)   (9.6687)  (44.4097)) || H6  
-      )
-
-rC09
-  = Nuc
-      (Tfo  (0.8727)   (0.4760)  (-0.1091)  || dgf_base_tfo
-           (-0.4188)   (0.6148)  (-0.6682)
-           (-0.2510)   (0.6289)   (0.7359)
-           (-8.1687) (-52.0761) (-25.0726))
-      (Tfo  (0.9187)   (0.2887)   (0.2694)  || p_o3'_275_tfo
-            (0.0302)  (-0.7316)   (0.6811)
-            (0.3938)  (-0.6176)  (-0.6808)
-          (-48.4330)  (26.3254)  (13.6383))
-      (Tfo (-0.1504)   (0.7744)  (-0.6145)  || p_o3'_180_tfo
-            (0.7581)   (0.4893)   (0.4311)
-            (0.6345)  (-0.4010)  (-0.6607)
-          (-31.9784) (-13.4285)  (44.9650))
-      (Tfo (-0.6236)  (-0.7810)  (-0.0337)  || p_o3'_60_tfo
-           (-0.6890)   (0.5694)  (-0.4484)
-            (0.3694)  (-0.2564)  (-0.8932)
-           (12.1105)  (30.8774)  (46.0946))
-      (Pt (33.3400)  (11.0980)  (46.1750)) || P   
-      (Pt (34.5130)  (10.2320)  (46.4660)) || O1P 
-      (Pt (33.4130)  (12.3960)  (46.9340)) || O2P 
-      (Pt (31.9810)  (10.3390)  (46.4820)) || O5' 
-      (Pt (30.8152)  (11.1619)  (46.2003)) || C5' 
-      (Pt (30.4519)  (10.9454)  (45.1957)) || H5' 
-      (Pt (31.0379)  (12.2016)  (46.4400)) || H5''
-      (Pt (29.7081)  (10.7448)  (47.1428)) || C4' 
-      (Pt (29.4506)   (9.6945)  (47.0059)) || H4' 
-      (Pt (30.1045)  (10.9634)  (48.4885)) || O4' 
-      (Pt (29.1794)  (11.8418)  (49.1490)) || C1' 
-      (Pt (28.4388)  (11.2210)  (49.6533)) || H1' 
-      (Pt (28.5211)  (12.6008)  (48.0367)) || C2' 
-      (Pt (29.1947)  (13.3949)  (47.7147)) || H2''
-      (Pt (27.2316)  (13.0683)  (48.3134)) || O2' 
-      (Pt (27.0851)  (13.3391)  (49.2227)) || H2' 
-      (Pt (28.4131)  (11.5507)  (46.9391)) || C3' 
-      (Pt (28.4451)  (12.0512)  (45.9713)) || H3' 
-      (Pt (27.2707)  (10.6955)  (47.1097)) || O3' 
-      (Pt (29.8751)  (12.7405)  (50.0682)) || N1  
-      (Pt (30.7172)  (13.1841)  (52.2328)) || N3  
-      (Pt (30.0617)  (12.3404)  (51.3847)) || C2  
-      (Pt (31.1834)  (14.3941)  (51.8297)) || C4  
-      (Pt (30.9913)  (14.8074)  (50.4803)) || C5  
-      (Pt (30.3434)  (13.9610)  (49.6548)) || C6
-      (C
-      (Pt (31.8090)  (15.1847)  (52.6957)) || N4  
-      (Pt (29.6470)  (11.2494)  (51.7616)) || O2  
-      (Pt (32.1422)  (16.0774)  (52.3606)) || H41 
-      (Pt (31.9392)  (14.8893)  (53.6527)) || H42 
-      (Pt (31.3632)  (15.7771)  (50.1491)) || H5  
-      (Pt (30.1742)  (14.2374)  (48.6141)) || H6  
-      )
-
-rC10
-  = Nuc
-      (Tfo  (0.1549)   (0.8710)  (-0.4663)  || dgf_base_tfo
-            (0.6768)  (-0.4374)  (-0.5921)
-           (-0.7197)  (-0.2239)  (-0.6572)
-           (25.2447) (-14.1920)  (50.3201))
-      (Tfo  (0.9187)   (0.2887)   (0.2694)  || p_o3'_275_tfo
-            (0.0302)  (-0.7316)   (0.6811)
-            (0.3938)  (-0.6176)  (-0.6808)
-          (-48.4330)  (26.3254)  (13.6383))
-      (Tfo (-0.1504)   (0.7744)  (-0.6145)  || p_o3'_180_tfo
-            (0.7581)   (0.4893)   (0.4311)
-            (0.6345)  (-0.4010)  (-0.6607)
-          (-31.9784) (-13.4285)  (44.9650))
-      (Tfo (-0.6236)  (-0.7810)  (-0.0337)  || p_o3'_60_tfo
-           (-0.6890)   (0.5694)  (-0.4484)
-            (0.3694)  (-0.2564)  (-0.8932)
-           (12.1105)  (30.8774)  (46.0946))
-      (Pt (33.3400)  (11.0980)  (46.1750)) || P   
-      (Pt (34.5130)  (10.2320)  (46.4660)) || O1P 
-      (Pt (33.4130)  (12.3960)  (46.9340)) || O2P 
-      (Pt (31.9810)  (10.3390)  (46.4820)) || O5' 
-      (Pt (31.8779)   (9.9369)  (47.8760)) || C5' 
-      (Pt (31.3239)  (10.6931)  (48.4322)) || H5' 
-      (Pt (32.8647)   (9.6624)  (48.2489)) || H5''
-      (Pt (31.0429)   (8.6773)  (47.9401)) || C4' 
-      (Pt (30.0440)   (8.8473)  (47.5383)) || H4' 
-      (Pt (31.6749)   (7.6351)  (47.2119)) || O4' 
-      (Pt (31.9159)   (6.5022)  (48.0616)) || C1' 
-      (Pt (31.0691)   (5.8243)  (47.9544)) || H1' 
-      (Pt (31.9300)   (7.0685)  (49.4493)) || C2' 
-      (Pt (32.9024)   (7.5288)  (49.6245)) || H2''
-      (Pt (31.5672)   (6.1750)  (50.4632)) || O2' 
-      (Pt (31.8416)   (5.2663)  (50.3200)) || H2' 
-      (Pt (30.8618)   (8.1514)  (49.3749)) || C3' 
-      (Pt (31.1122)   (8.9396)  (50.0850)) || H3' 
-      (Pt (29.5351)   (7.6245)  (49.5409)) || O3' 
-      (Pt (33.1890)   (5.8629)  (47.7343)) || N1  
-      (Pt (34.4004)   (4.2636)  (46.4828)) || N3  
-      (Pt (33.2062)   (4.8497)  (46.7851)) || C2  
-      (Pt (35.5600)   (4.6374)  (47.0822)) || C4  
-      (Pt (35.5444)   (5.6751)  (48.0577)) || C5  
-      (Pt (34.3565)   (6.2450)  (48.3432)) || C6
-      (C
-      (Pt (36.6977)   (4.0305)  (46.7598)) || N4  
-      (Pt (32.1661)   (4.5034)  (46.2348)) || O2  
-      (Pt (37.5405)   (4.3347)  (47.2259)) || H41 
-      (Pt (36.7033)   (3.2923)  (46.0706)) || H42 
-      (Pt (36.4713)   (5.9811)  (48.5428)) || H5  
-      (Pt (34.2986)   (7.0426)  (49.0839)) || H6  
-      )
-
-rCs = [rC01,rC02,rC03,rC04,rC05,rC06,rC07,rC08,rC09,rC10]
-
-rG
-  = Nuc
-      (Tfo (-0.0018)  (-0.8207)   (0.5714)  || dgf_base_tfo
-            (0.2679)  (-0.5509)  (-0.7904)
-            (0.9634)   (0.1517)   (0.2209)
-            (0.0073)   (8.4030)   (0.6232))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (5.4550)   (8.2120)  (-2.8810)) || C5' 
-      (Pt  (5.4546)   (8.8508)  (-1.9978)) || H5' 
-      (Pt  (5.7588)   (8.6625)  (-3.8259)) || H5''
-      (Pt  (6.4970)   (7.1480)  (-2.5980)) || C4' 
-      (Pt  (7.4896)   (7.5919)  (-2.5214)) || H4' 
-      (Pt  (6.1630)   (6.4860)  (-1.3440)) || O4' 
-      (Pt  (6.5400)   (5.1200)  (-1.4190)) || C1' 
-      (Pt  (7.2763)   (4.9681)  (-0.6297)) || H1' 
-      (Pt  (7.1940)   (4.8830)  (-2.7770)) || C2' 
-      (Pt  (6.8667)   (3.9183)  (-3.1647)) || H2''
-      (Pt  (8.5860)   (5.0910)  (-2.6140)) || O2' 
-      (Pt  (8.9510)   (4.7626)  (-1.7890)) || H2' 
-      (Pt  (6.5720)   (6.0040)  (-3.6090)) || C3' 
-      (Pt  (5.5636)   (5.7066)  (-3.8966)) || H3' 
-      (Pt  (7.3801)   (6.3562)  (-4.7350)) || O3' 
-      (Pt  (4.7150)   (0.4910)  (-0.1360)) || N1  
-      (Pt  (6.3490)   (2.1730)  (-0.6020)) || N3  
-      (Pt  (5.9530)   (0.9650)  (-0.2670)) || C2  
-      (Pt  (5.2900)   (2.9790)  (-0.8260)) || C4  
-      (Pt  (3.9720)   (2.6390)  (-0.7330)) || C5  
-      (Pt  (3.6770)   (1.3160)  (-0.3660)) || C6
-      (G
-      (Pt  (6.8426)   (0.0056)  (-0.0019)) || N2  
-      (Pt  (3.1660)   (3.7290)  (-1.0360)) || N7  
-      (Pt  (5.3170)   (4.2990)  (-1.1930)) || N9  
-      (Pt  (4.0100)   (4.6780)  (-1.2990)) || C8  
-      (Pt  (2.4280)   (0.8450)  (-0.2360)) || O6  
-      (Pt  (4.6151)  (-0.4677)   (0.1305)) || H1  
-      (Pt  (6.6463)  (-0.9463)   (0.2729)) || H21 
-      (Pt  (7.8170)   (0.2642)  (-0.0640)) || H22 
-      (Pt  (3.4421)   (5.5744)  (-1.5482)) || H8  
-      )
-
-rG01
-  = Nuc
-      (Tfo (-0.0043)  (-0.8175)   (0.5759)  || dgf_base_tfo
-            (0.2617)  (-0.5567)  (-0.7884)
-            (0.9651)   (0.1473)   (0.2164)
-            (0.0359)   (8.3929)   (0.5532))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (5.4352)   (8.2183)  (-2.7757)) || C5' 
-      (Pt  (5.3830)   (8.7883)  (-1.8481)) || H5' 
-      (Pt  (5.7729)   (8.7436)  (-3.6691)) || H5''
-      (Pt  (6.4830)   (7.1518)  (-2.5252)) || C4' 
-      (Pt  (7.4749)   (7.5972)  (-2.4482)) || H4' 
-      (Pt  (6.1626)   (6.4620)  (-1.2827)) || O4' 
-      (Pt  (6.5431)   (5.0992)  (-1.3905)) || C1' 
-      (Pt  (7.2871)   (4.9328)  (-0.6114)) || H1' 
-      (Pt  (7.1852)   (4.8935)  (-2.7592)) || C2' 
-      (Pt  (6.8573)   (3.9363)  (-3.1645)) || H2''
-      (Pt  (8.5780)   (5.1025)  (-2.6046)) || O2' 
-      (Pt  (8.9516)   (4.7577)  (-1.7902)) || H2' 
-      (Pt  (6.5522)   (6.0300)  (-3.5612)) || C3' 
-      (Pt  (5.5420)   (5.7356)  (-3.8459)) || H3' 
-      (Pt  (7.3487)   (6.4089)  (-4.6867)) || O3' 
-      (Pt  (4.7442)   (0.4514)  (-0.1390)) || N1  
-      (Pt  (6.3687)   (2.1459)  (-0.5926)) || N3  
-      (Pt  (5.9795)   (0.9335)  (-0.2657)) || C2  
-      (Pt  (5.3052)   (2.9471)  (-0.8125)) || C4  
-      (Pt  (3.9891)   (2.5987)  (-0.7230)) || C5  
-      (Pt  (3.7016)   (1.2717)  (-0.3647)) || C6
-      (G
-      (Pt  (6.8745)  (-0.0224)  (-0.0058)) || N2  
-      (Pt  (3.1770)   (3.6859)  (-1.0198)) || N7  
-      (Pt  (5.3247)   (4.2695)  (-1.1710)) || N9  
-      (Pt  (4.0156)   (4.6415)  (-1.2759)) || C8  
-      (Pt  (2.4553)   (0.7925)  (-0.2390)) || O6  
-      (Pt  (4.6497)  (-0.5095)   (0.1212)) || H1  
-      (Pt  (6.6836)  (-0.9771)   (0.2627)) || H21 
-      (Pt  (7.8474)   (0.2424)  (-0.0653)) || H22 
-      (Pt  (3.4426)   (5.5361)  (-1.5199)) || H8  
-      )
-
-rG02
-  = Nuc
-      (Tfo  (0.5566)   (0.0449)   (0.8296)  || dgf_base_tfo
-            (0.5125)   (0.7673)  (-0.3854)
-           (-0.6538)   (0.6397)   (0.4041)
-           (-9.1161)  (-3.7679)  (-2.9968))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.5778)   (6.6594)  (-4.0364)) || C5' 
-      (Pt  (4.9220)   (7.1963)  (-4.9204)) || H5' 
-      (Pt  (3.7996)   (5.9091)  (-4.1764)) || H5''
-      (Pt  (5.7873)   (5.8869)  (-3.5482)) || C4' 
-      (Pt  (6.0405)   (5.0875)  (-4.2446)) || H4' 
-      (Pt  (6.9135)   (6.8036)  (-3.4310)) || O4' 
-      (Pt  (7.7293)   (6.4084)  (-2.3392)) || C1' 
-      (Pt  (8.7078)   (6.1815)  (-2.7624)) || H1' 
-      (Pt  (7.1305)   (5.1418)  (-1.7347)) || C2' 
-      (Pt  (7.2040)   (5.1982)  (-0.6486)) || H2''
-      (Pt  (7.7417)   (4.0392)  (-2.3813)) || O2' 
-      (Pt  (8.6785)   (4.1443)  (-2.5630)) || H2' 
-      (Pt  (5.6666)   (5.2728)  (-2.1536)) || C3' 
-      (Pt  (5.1747)   (5.9805)  (-1.4863)) || H3' 
-      (Pt  (4.9997)   (4.0086)  (-2.1973)) || O3' 
-      (Pt (10.3245)   (8.5459)   (1.5467)) || N1  
-      (Pt  (9.8051)   (6.9432)  (-0.1497)) || N3  
-      (Pt (10.5175)   (7.4328)   (0.8408)) || C2  
-      (Pt  (8.7523)   (7.7422)  (-0.4228)) || C4  
-      (Pt  (8.4257)   (8.9060)   (0.2099)) || C5  
-      (Pt  (9.2665)   (9.3242)   (1.2540)) || C6
-      (G
-      (Pt (11.6077)   (6.7966)   (1.2752)) || N2  
-      (Pt  (7.2750)   (9.4537)  (-0.3428)) || N7  
-      (Pt  (7.7962)   (7.5519)  (-1.3859)) || N9  
-      (Pt  (6.9479)   (8.6157)  (-1.2771)) || C8  
-      (Pt  (9.0664)  (10.4462)   (1.9610)) || O6  
-      (Pt (10.9838)   (8.7524)   (2.2697)) || H1  
-      (Pt (12.2274)   (7.0896)   (2.0170)) || H21 
-      (Pt (11.8502)   (5.9398)   (0.7984)) || H22 
-      (Pt  (6.0430)   (8.9853)  (-1.7594)) || H8  
-      )
-
-rG03
-  = Nuc
-      (Tfo (-0.5021)   (0.0731)   (0.8617)  || dgf_base_tfo
-           (-0.8112)   (0.3054)  (-0.4986)
-           (-0.2996)  (-0.9494)  (-0.0940)
-            (6.4273)  (-5.1944)  (-3.7807))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.1214)   (6.7116)  (-1.9049)) || C5' 
-      (Pt  (3.3465)   (5.9610)  (-2.0607)) || H5' 
-      (Pt  (4.0789)   (7.2928)  (-0.9837)) || H5''
-      (Pt  (5.4170)   (5.9293)  (-1.8186)) || C4' 
-      (Pt  (5.4506)   (5.3400)  (-0.9023)) || H4' 
-      (Pt  (5.5067)   (5.0417)  (-2.9703)) || O4' 
-      (Pt  (6.8650)   (4.9152)  (-3.3612)) || C1' 
-      (Pt  (7.1090)   (3.8577)  (-3.2603)) || H1' 
-      (Pt  (7.7152)   (5.7282)  (-2.3894)) || C2' 
-      (Pt  (8.5029)   (6.2356)  (-2.9463)) || H2''
-      (Pt  (8.1036)   (4.8568)  (-1.3419)) || O2' 
-      (Pt  (8.3270)   (3.9651)  (-1.6184)) || H2' 
-      (Pt  (6.7003)   (6.7565)  (-1.8911)) || C3' 
-      (Pt  (6.5898)   (7.5329)  (-2.6482)) || H3' 
-      (Pt  (7.0505)   (7.2878)  (-0.6105)) || O3' 
-      (Pt  (9.6740)   (4.7656)  (-7.6614)) || N1  
-      (Pt  (9.0739)   (4.3013)  (-5.3941)) || N3  
-      (Pt  (9.8416)   (4.2192)  (-6.4581)) || C2  
-      (Pt  (7.9885)   (5.0632)  (-5.6446)) || C4  
-      (Pt  (7.6822)   (5.6856)  (-6.8194)) || C5  
-      (Pt  (8.5831)   (5.5215)  (-7.8840)) || C6
-      (G
-      (Pt (10.9733)   (3.5117)  (-6.4286)) || N2  
-      (Pt  (6.4857)   (6.3816)  (-6.7035)) || N7  
-      (Pt  (6.9740)   (5.3703)  (-4.7760)) || N9  
-      (Pt  (6.1133)   (6.1613)  (-5.4808)) || C8  
-      (Pt  (8.4084)   (6.0747)  (-9.0933)) || O6  
-      (Pt (10.3759)   (4.5855)  (-8.3504)) || H1  
-      (Pt (11.6254)   (3.3761)  (-7.1879)) || H21 
-      (Pt (11.1917)   (3.0460)  (-5.5593)) || H22 
-      (Pt  (5.1705)   (6.6830)  (-5.3167)) || H8  
-      )
-
-rG04
-  = Nuc
-      (Tfo (-0.5426)  (-0.8175)   (0.1929)  || dgf_base_tfo
-            (0.8304)  (-0.5567)  (-0.0237)
-            (0.1267)   (0.1473)   (0.9809)
-           (-0.5075)   (8.3929)   (0.2229))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (5.4352)   (8.2183)  (-2.7757)) || C5' 
-      (Pt  (5.3830)   (8.7883)  (-1.8481)) || H5' 
-      (Pt  (5.7729)   (8.7436)  (-3.6691)) || H5''
-      (Pt  (6.4830)   (7.1518)  (-2.5252)) || C4' 
-      (Pt  (7.4749)   (7.5972)  (-2.4482)) || H4' 
-      (Pt  (6.1626)   (6.4620)  (-1.2827)) || O4' 
-      (Pt  (6.5431)   (5.0992)  (-1.3905)) || C1' 
-      (Pt  (7.2871)   (4.9328)  (-0.6114)) || H1' 
-      (Pt  (7.1852)   (4.8935)  (-2.7592)) || C2' 
-      (Pt  (6.8573)   (3.9363)  (-3.1645)) || H2''
-      (Pt  (8.5780)   (5.1025)  (-2.6046)) || O2' 
-      (Pt  (8.9516)   (4.7577)  (-1.7902)) || H2' 
-      (Pt  (6.5522)   (6.0300)  (-3.5612)) || C3' 
-      (Pt  (5.5420)   (5.7356)  (-3.8459)) || H3' 
-      (Pt  (7.3487)   (6.4089)  (-4.6867)) || O3' 
-      (Pt  (3.6343)   (2.6680)   (2.0783)) || N1  
-      (Pt  (5.4505)   (3.9805)   (1.2446)) || N3  
-      (Pt  (4.7540)   (3.3816)   (2.1851)) || C2  
-      (Pt  (4.8805)   (3.7951)   (0.0354)) || C4  
-      (Pt  (3.7416)   (3.0925)  (-0.2305)) || C5  
-      (Pt  (3.0873)   (2.4980)   (0.8606)) || C6
-      (G
-      (Pt  (5.1433)   (3.4373)   (3.4609)) || N2  
-      (Pt  (3.4605)   (3.1184)  (-1.5906)) || N7  
-      (Pt  (5.3247)   (4.2695)  (-1.1710)) || N9  
-      (Pt  (4.4244)   (3.8244)  (-2.0953)) || C8  
-      (Pt  (1.9600)   (1.7805)   (0.7462)) || O6  
-      (Pt  (3.2489)   (2.2879)   (2.9191)) || H1  
-      (Pt  (4.6785)   (3.0243)   (4.2568)) || H21 
-      (Pt  (5.9823)   (3.9654)   (3.6539)) || H22 
-      (Pt  (4.2675)   (3.8876)  (-3.1721)) || H8  
-      )
-
-rG05
-  = Nuc
-      (Tfo (-0.5891)   (0.0449)   (0.8068)  || dgf_base_tfo
-            (0.5375)   (0.7673)   (0.3498)
-           (-0.6034)   (0.6397)  (-0.4762)
-           (-0.3019)  (-3.7679)  (-9.5913))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.5778)   (6.6594)  (-4.0364)) || C5' 
-      (Pt  (4.9220)   (7.1963)  (-4.9204)) || H5' 
-      (Pt  (3.7996)   (5.9091)  (-4.1764)) || H5''
-      (Pt  (5.7873)   (5.8869)  (-3.5482)) || C4' 
-      (Pt  (6.0405)   (5.0875)  (-4.2446)) || H4' 
-      (Pt  (6.9135)   (6.8036)  (-3.4310)) || O4' 
-      (Pt  (7.7293)   (6.4084)  (-2.3392)) || C1' 
-      (Pt  (8.7078)   (6.1815)  (-2.7624)) || H1' 
-      (Pt  (7.1305)   (5.1418)  (-1.7347)) || C2' 
-      (Pt  (7.2040)   (5.1982)  (-0.6486)) || H2''
-      (Pt  (7.7417)   (4.0392)  (-2.3813)) || O2' 
-      (Pt  (8.6785)   (4.1443)  (-2.5630)) || H2' 
-      (Pt  (5.6666)   (5.2728)  (-2.1536)) || C3' 
-      (Pt  (5.1747)   (5.9805)  (-1.4863)) || H3' 
-      (Pt  (4.9997)   (4.0086)  (-2.1973)) || O3' 
-      (Pt (10.2594)  (10.6774)  (-1.0056)) || N1  
-      (Pt  (9.7528)   (8.7080)  (-2.2631)) || N3  
-      (Pt (10.4471)   (9.7876)  (-1.9791)) || C2  
-      (Pt  (8.7271)   (8.5575)  (-1.3991)) || C4  
-      (Pt  (8.4100)   (9.3803)  (-0.3580)) || C5  
-      (Pt  (9.2294)  (10.5030)  (-0.1574)) || C6
-      (G
-      (Pt (11.5110)  (10.1256)  (-2.7114)) || N2  
-      (Pt  (7.2891)   (8.9068)   (0.3121)) || N7  
-      (Pt  (7.7962)   (7.5519)  (-1.3859)) || N9  
-      (Pt  (6.9702)   (7.8292)  (-0.3353)) || C8  
-      (Pt  (9.0349)  (11.3951)   (0.8250)) || O6  
-      (Pt (10.9013)  (11.4422)  (-0.9512)) || H1  
-      (Pt (12.1031)  (10.9341)  (-2.5861)) || H21 
-      (Pt (11.7369)   (9.5180)  (-3.4859)) || H22 
-      (Pt  (6.0888)   (7.3990)   (0.1403)) || H8  
-      )
-
-rG06
-  = Nuc
-      (Tfo (-0.9815)   (0.0731)  (-0.1772)  || dgf_base_tfo
-            (0.1912)   (0.3054)  (-0.9328)
-           (-0.0141)  (-0.9494)  (-0.3137)
-            (5.7506)  (-5.1944)   (4.7470))
-      (Tfo (-0.8143)  (-0.5091)  (-0.2788)  || p_o3'_275_tfo
-           (-0.0433)  (-0.4257)   (0.9038)
-           (-0.5788)   (0.7480)   (0.3246)
-            (1.5227)   (6.9114)  (-7.0765))
-      (Tfo  (0.3822)  (-0.7477)   (0.5430)  || p_o3'_180_tfo
-            (0.4552)   (0.6637)   (0.5935)
-           (-0.8042)   (0.0203)   (0.5941)
-           (-6.9472)  (-4.1186)  (-5.9108))
-      (Tfo  (0.5640)   (0.8007)  (-0.2022)  || p_o3'_60_tfo
-           (-0.8247)   (0.5587)  (-0.0878)
-            (0.0426)   (0.2162)   (0.9754)
-            (6.2694)  (-7.0540)   (3.3316))
-      (Pt  (2.8930)   (8.5380)  (-3.3280)) || P   
-      (Pt  (1.6980)   (7.6960)  (-3.5570)) || O1P 
-      (Pt  (3.2260)   (9.5010)  (-4.4020)) || O2P 
-      (Pt  (4.1590)   (7.6040)  (-3.0340)) || O5' 
-      (Pt  (4.1214)   (6.7116)  (-1.9049)) || C5' 
-      (Pt  (3.3465)   (5.9610)  (-2.0607)) || H5' 
-      (Pt  (4.0789)   (7.2928)  (-0.9837)) || H5''
-      (Pt  (5.4170)   (5.9293)  (-1.8186)) || C4' 
-      (Pt  (5.4506)   (5.3400)  (-0.9023)) || H4' 
-      (Pt  (5.5067)   (5.0417)  (-2.9703)) || O4' 
-      (Pt  (6.8650)   (4.9152)  (-3.3612)) || C1' 
-      (Pt  (7.1090)   (3.8577)  (-3.2603)) || H1' 
-      (Pt  (7.7152)   (5.7282)  (-2.3894)) || C2' 
-      (Pt  (8.5029)   (6.2356)  (-2.9463)) || H2''
-      (Pt  (8.1036)   (4.8568)  (-1.3419)) || O2' 
-      (Pt  (8.3270)   (3.9651)  (-1.6184)) || H2' 
-      (Pt  (6.7003)   (6.7565)  (-1.8911)) || C3' 
-      (Pt  (6.5898)   (7.5329)  (-2.6482)) || H3' 
-      (Pt  (7.0505)   (7.2878)  (-0.6105)) || O3' 
-      (Pt  (6.6624)   (3.5061)  (-8.2986)) || N1  
-      (Pt  (6.5810)   (3.2570)  (-5.9221)) || N3  
-      (Pt  (6.5151)   (2.8263)  (-7.1625)) || C2  
-      (Pt  (6.8364)   (4.5817)  (-5.8882)) || C4  
-      (Pt  (7.0116)   (5.4064)  (-6.9609)) || C5  
-      (Pt  (6.9173)   (4.8260)  (-8.2361)) || C6
-      (G
-      (Pt  (6.2717)   (1.5402)  (-7.4250)) || N2  
-      (Pt  (7.2573)   (6.7070)  (-6.5394)) || N7  
-      (Pt  (6.9740)   (5.3703)  (-4.7760)) || N9  
-      (Pt  (7.2238)   (6.6275)  (-5.2453)) || C8  
-      (Pt  (7.0668)   (5.5163)  (-9.3763)) || O6  
-      (Pt  (6.5754)   (2.9964)  (-9.1545)) || H1  
-      (Pt  (6.1908)   (1.1105)  (-8.3354)) || H21 
-      (Pt  (6.1346)   (0.9352)  (-6.6280)) || H22 
-      (Pt  (7.4108)   (7.6227)  (-4.8418)) || H8  
-      )
-
-rG07
-  = Nuc
-      (Tfo  (0.0894)  (-0.6059)   (0.7905)  || dgf_base_tfo
-           (-0.6810)   (0.5420)   (0.4924)
-           (-0.7268)  (-0.5824)  (-0.3642)
-           (34.1424)  (45.9610) (-11.8600))
-      (Tfo (-0.8644)  (-0.4956)  (-0.0851)  || p_o3'_275_tfo
-           (-0.0427)   (0.2409)  (-0.9696)
-            (0.5010)  (-0.8345)  (-0.2294)
-            (4.0167)  (54.5377)  (12.4779))
-      (Tfo  (0.3706)  (-0.6167)   (0.6945)  || p_o3'_180_tfo
-           (-0.2867)  (-0.7872)  (-0.5460)
-            (0.8834)   (0.0032)  (-0.4686)
-          (-52.9020)  (18.6313)  (-0.6709))
-      (Tfo  (0.4155)   (0.9025)  (-0.1137)  || p_o3'_60_tfo
-            (0.9040)  (-0.4236)  (-0.0582)
-           (-0.1007)  (-0.0786)  (-0.9918)
-           (-7.6624) (-25.2080)  (49.5181))
-      (Pt (31.3810)   (0.1400)  (47.5810)) || P   
-      (Pt (29.9860)   (0.6630)  (47.6290)) || O1P 
-      (Pt (31.7210)  (-0.6460)  (48.8090)) || O2P 
-      (Pt (32.4940)   (1.2540)  (47.2740)) || O5' 
-      (Pt (33.8709)   (0.7918)  (47.2113)) || C5' 
-      (Pt (34.1386)   (0.5870)  (46.1747)) || H5' 
-      (Pt (34.0186)  (-0.0095)  (47.9353)) || H5''
-      (Pt (34.7297)   (1.9687)  (47.6685)) || C4' 
-      (Pt (35.7723)   (1.6845)  (47.8113)) || H4' 
-      (Pt (34.6455)   (2.9768)  (46.6660)) || O4' 
-      (Pt (34.1690)   (4.1829)  (47.2627)) || C1' 
-      (Pt (35.0437)   (4.7633)  (47.5560)) || H1' 
-      (Pt (33.4145)   (3.7532)  (48.4954)) || C2' 
-      (Pt (32.4340)   (3.3797)  (48.2001)) || H2''
-      (Pt (33.3209)   (4.6953)  (49.5217)) || O2' 
-      (Pt (33.2374)   (5.6059)  (49.2295)) || H2' 
-      (Pt (34.2724)   (2.5970)  (48.9773)) || C3' 
-      (Pt (33.6373)   (1.8935)  (49.5157)) || H3' 
-      (Pt (35.3453)   (3.1884)  (49.7285)) || O3' 
-      (Pt (34.0511)   (7.8930)  (43.7791)) || N1  
-      (Pt (34.9937)   (6.3369)  (45.3199)) || N3  
-      (Pt (35.0882)   (7.3126)  (44.4200)) || C2  
-      (Pt (33.7190)   (5.9650)  (45.5374)) || C4  
-      (Pt (32.5845)   (6.4770)  (44.9458)) || C5  
-      (Pt (32.7430)   (7.5179)  (43.9914)) || C6
-      (G
-      (Pt (36.3030)   (7.7827)  (44.1036)) || N2  
-      (Pt (31.4499)   (5.8335)  (45.4368)) || N7  
-      (Pt (33.2760)   (4.9817)  (46.4043)) || N9  
-      (Pt (31.9235)   (4.9639)  (46.2934)) || C8  
-      (Pt (31.8602)   (8.1000)  (43.3695)) || O6  
-      (Pt (34.2623)   (8.6223)  (43.1283)) || H1  
-      (Pt (36.5188)   (8.5081)  (43.4347)) || H21 
-      (Pt (37.0888)   (7.3524)  (44.5699)) || H22 
-      (Pt (31.0815)   (4.4201)  (46.7218)) || H8  
-      )
-
-rG08
-  = Nuc
-      (Tfo  (0.2224)   (0.6335)   (0.7411)  || dgf_base_tfo
-           (-0.3644)  (-0.6510)   (0.6659)
-            (0.9043)  (-0.4181)   (0.0861)
-          (-47.6824)  (-0.5823) (-31.7554))
-      (Tfo (-0.8644)  (-0.4956)  (-0.0851)  || p_o3'_275_tfo
-           (-0.0427)   (0.2409)  (-0.9696)
-            (0.5010)  (-0.8345)  (-0.2294)
-            (4.0167)  (54.5377)  (12.4779))
-      (Tfo  (0.3706)  (-0.6167)   (0.6945)  || p_o3'_180_tfo
-           (-0.2867)  (-0.7872)  (-0.5460)
-            (0.8834)   (0.0032)  (-0.4686)
-          (-52.9020)  (18.6313)  (-0.6709))
-      (Tfo  (0.4155)   (0.9025)  (-0.1137)  || p_o3'_60_tfo
-            (0.9040)  (-0.4236)  (-0.0582)
-           (-0.1007)  (-0.0786)  (-0.9918)
-           (-7.6624) (-25.2080)  (49.5181))
-      (Pt (31.3810)   (0.1400)  (47.5810)) || P   
-      (Pt (29.9860)   (0.6630)  (47.6290)) || O1P 
-      (Pt (31.7210)  (-0.6460)  (48.8090)) || O2P 
-      (Pt (32.4940)   (1.2540)  (47.2740)) || O5' 
-      (Pt (32.5924)   (2.3488)  (48.2255)) || C5' 
-      (Pt (33.3674)   (2.1246)  (48.9584)) || H5' 
-      (Pt (31.5994)   (2.5917)  (48.6037)) || H5''
-      (Pt (33.0722)   (3.5577)  (47.4258)) || C4' 
-      (Pt (33.0310)   (4.4778)  (48.0089)) || H4' 
-      (Pt (34.4173)   (3.3055)  (47.0316)) || O4' 
-      (Pt (34.5056)   (3.3910)  (45.6094)) || C1' 
-      (Pt (34.7881)   (4.4152)  (45.3663)) || H1' 
-      (Pt (33.1122)   (3.1198)  (45.1010)) || C2' 
-      (Pt (32.9230)   (2.0469)  (45.1369)) || H2''
-      (Pt (32.7946)   (3.6590)  (43.8529)) || O2' 
-      (Pt (33.5170)   (3.6707)  (43.2207)) || H2' 
-      (Pt (32.2730)   (3.8173)  (46.1566)) || C3' 
-      (Pt (31.3094)   (3.3123)  (46.2244)) || H3' 
-      (Pt (32.2391)   (5.2039)  (45.7807)) || O3' 
-      (Pt (39.3337)   (2.7157)  (44.1441)) || N1  
-      (Pt (37.4430)   (3.8242)  (45.0824)) || N3  
-      (Pt (38.7276)   (3.7646)  (44.7403)) || C2  
-      (Pt (36.7791)   (2.6963)  (44.7704)) || C4  
-      (Pt (37.2860)   (1.5653)  (44.1678)) || C5  
-      (Pt (38.6647)   (1.5552)  (43.8235)) || C6
-      (G
-      (Pt (39.5123)   (4.8216)  (44.9936)) || N2  
-      (Pt (36.2829)   (0.6110)  (44.0078)) || N7  
-      (Pt (35.4394)   (2.4314)  (44.9931)) || N9  
-      (Pt (35.2180)   (1.1815)  (44.5128)) || C8  
-      (Pt (39.2907)   (0.6514)  (43.2796)) || O6  
-      (Pt (40.3076)   (2.8048)  (43.9352)) || H1  
-      (Pt (40.4994)   (4.9066)  (44.7977)) || H21 
-      (Pt (39.0738)   (5.6108)  (45.4464)) || H22 
-      (Pt (34.3856)   (0.4842)  (44.4185)) || H8  
-      )
-
-rG09
-  = Nuc
-      (Tfo (-0.9699)  (-0.1688)  (-0.1753)  || dgf_base_tfo
-           (-0.1050)  (-0.3598)   (0.9271)
-           (-0.2196)   (0.9176)   (0.3312)
-           (45.6217) (-38.9484) (-12.3208))
-      (Tfo (-0.8644)  (-0.4956)  (-0.0851)  || p_o3'_275_tfo
-           (-0.0427)   (0.2409)  (-0.9696)
-            (0.5010)  (-0.8345)  (-0.2294)
-            (4.0167)  (54.5377)  (12.4779))
-      (Tfo  (0.3706)  (-0.6167)   (0.6945)  || p_o3'_180_tfo
-           (-0.2867)  (-0.7872)  (-0.5460)
-            (0.8834)   (0.0032)  (-0.4686)
-          (-52.9020)  (18.6313)  (-0.6709))
-      (Tfo  (0.4155)   (0.9025)  (-0.1137)  || p_o3'_60_tfo
-            (0.9040)  (-0.4236)  (-0.0582)
-           (-0.1007)  (-0.0786)  (-0.9918)
-           (-7.6624) (-25.2080)  (49.5181))
-      (Pt (31.3810)   (0.1400)  (47.5810)) || P   
-      (Pt (29.9860)   (0.6630)  (47.6290)) || O1P 
-      (Pt (31.7210)  (-0.6460)  (48.8090)) || O2P 
-      (Pt (32.4940)   (1.2540)  (47.2740)) || O5' 
-      (Pt (33.8709)   (0.7918)  (47.2113)) || C5' 
-      (Pt (34.1386)   (0.5870)  (46.1747)) || H5' 
-      (Pt (34.0186)  (-0.0095)  (47.9353)) || H5''
-      (Pt (34.7297)   (1.9687)  (47.6685)) || C4' 
-      (Pt (34.5880)   (2.8482)  (47.0404)) || H4' 
-      (Pt (34.3575)   (2.2770)  (49.0081)) || O4' 
-      (Pt (35.5157)   (2.1993)  (49.8389)) || C1' 
-      (Pt (35.9424)   (3.2010)  (49.8893)) || H1' 
-      (Pt (36.4701)   (1.2820)  (49.1169)) || C2' 
-      (Pt (36.1545)   (0.2498)  (49.2683)) || H2''
-      (Pt (37.8262)   (1.4547)  (49.4008)) || O2' 
-      (Pt (38.0227)   (1.6945)  (50.3094)) || H2' 
-      (Pt (36.2242)   (1.6797)  (47.6725)) || C3' 
-      (Pt (36.4297)   (0.8197)  (47.0351)) || H3' 
-      (Pt (37.0289)   (2.8480)  (47.4426)) || O3' 
-      (Pt (34.3005)   (3.5042)  (54.6070)) || N1  
-      (Pt (34.7693)   (3.7936)  (52.2874)) || N3  
-      (Pt (34.4484)   (4.2541)  (53.4939)) || C2  
-      (Pt (34.9354)   (2.4584)  (52.2785)) || C4  
-      (Pt (34.8092)   (1.5915)  (53.3422)) || C5  
-      (Pt (34.4646)   (2.1367)  (54.6085)) || C6
-      (G
-      (Pt (34.2514)   (5.5708)  (53.6503)) || N2  
-      (Pt (35.0641)   (0.2835)  (52.9337)) || N7  
-      (Pt (35.2669)   (1.6690)  (51.1915)) || N9  
-      (Pt (35.3288)   (0.3954)  (51.6563)) || C8  
-      (Pt (34.3151)   (1.5317)  (55.6650)) || O6  
-      (Pt (34.0623)   (3.9797)  (55.4539)) || H1  
-      (Pt (33.9950)   (6.0502)  (54.5016)) || H21 
-      (Pt (34.3512)   (6.1432)  (52.8242)) || H22 
-      (Pt (35.5414)  (-0.6006)  (51.2679)) || H8  
-      )
-
-rG10
-  = Nuc
-      (Tfo (-0.0980)  (-0.9723)   (0.2122)  || dgf_base_tfo
-           (-0.9731)   (0.1383)   (0.1841)
-           (-0.2083)  (-0.1885)  (-0.9597)
-           (17.8469)  (38.8265)  (37.0475))
-      (Tfo (-0.8644)  (-0.4956)  (-0.0851)  || p_o3'_275_tfo
-           (-0.0427)   (0.2409)  (-0.9696)
-            (0.5010)  (-0.8345)  (-0.2294)
-            (4.0167)  (54.5377)  (12.4779))
-      (Tfo  (0.3706)  (-0.6167)   (0.6945)  || p_o3'_180_tfo
-           (-0.2867)  (-0.7872)  (-0.5460)
-            (0.8834)   (0.0032)  (-0.4686)
-          (-52.9020)  (18.6313)  (-0.6709))
-      (Tfo  (0.4155)   (0.9025)  (-0.1137)  || p_o3'_60_tfo
-            (0.9040)  (-0.4236)  (-0.0582)
-           (-0.1007)  (-0.0786)  (-0.9918)
-           (-7.6624) (-25.2080)  (49.5181))
-      (Pt (31.3810)   (0.1400)  (47.5810)) || P   
-      (Pt (29.9860)   (0.6630)  (47.6290)) || O1P 
-      (Pt (31.7210)  (-0.6460)  (48.8090)) || O2P 
-      (Pt (32.4940)   (1.2540)  (47.2740)) || O5' 
-      (Pt (32.5924)   (2.3488)  (48.2255)) || C5' 
-      (Pt (33.3674)   (2.1246)  (48.9584)) || H5' 
-      (Pt (31.5994)   (2.5917)  (48.6037)) || H5''
-      (Pt (33.0722)   (3.5577)  (47.4258)) || C4' 
-      (Pt (34.0333)   (3.3761)  (46.9447)) || H4' 
-      (Pt (32.0890)   (3.8338)  (46.4332)) || O4' 
-      (Pt (31.6377)   (5.1787)  (46.5914)) || C1' 
-      (Pt (32.2499)   (5.8016)  (45.9392)) || H1' 
-      (Pt (31.9167)   (5.5319)  (48.0305)) || C2' 
-      (Pt (31.1507)   (5.0820)  (48.6621)) || H2''
-      (Pt (32.0865)   (6.8890)  (48.3114)) || O2' 
-      (Pt (31.5363)   (7.4819)  (47.7942)) || H2' 
-      (Pt (33.2398)   (4.8224)  (48.2563)) || C3' 
-      (Pt (33.3166)   (4.5570)  (49.3108)) || H3' 
-      (Pt (34.2528)   (5.7056)  (47.7476)) || O3' 
-      (Pt (28.2782)   (6.3049)  (42.9364)) || N1  
-      (Pt (30.4001)   (5.8547)  (43.9258)) || N3  
-      (Pt (29.6195)   (6.1568)  (42.8913)) || C2  
-      (Pt (29.7005)   (5.7006)  (45.0649)) || C4  
-      (Pt (28.3383)   (5.8221)  (45.2343)) || C5  
-      (Pt (27.5519)   (6.1461)  (44.0958)) || C6
-      (G
-      (Pt (30.1838)   (6.3385)  (41.6890)) || N2  
-      (Pt (27.9936)   (5.5926)  (46.5651)) || N7  
-      (Pt (30.2046)   (5.3825)  (46.3136)) || N9  
-      (Pt (29.1371)   (5.3398)  (47.1506)) || C8  
-      (Pt (26.3361)   (6.3024)  (44.0495)) || O6  
-      (Pt (27.8122)   (6.5394)  (42.0833)) || H1  
-      (Pt (29.7125)   (6.5595)  (40.8235)) || H21 
-      (Pt (31.1859)   (6.2231)  (41.6389)) || H22 
-      (Pt (28.9406)   (5.1504)  (48.2059)) || H8  
-      )
-
-rGs = [rG01,rG02,rG03,rG04,rG05,rG06,rG07,rG08,rG09,rG10]
-
-rU
-  = Nuc
-      (Tfo (-0.0359)  (-0.8071)   (0.5894)  || dgf_base_tfo
-           (-0.2669)   (0.5761)   (0.7726)
-           (-0.9631)  (-0.1296)  (-0.2361)
-            (0.1584)   (8.3434)   (0.5434))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2430)  (-8.2420)   (2.8260)) || C5' 
-      (Pt  (5.1974)  (-8.8497)   (1.9223)) || H5' 
-      (Pt  (5.5548)  (-8.7348)   (3.7469)) || H5''
-      (Pt  (6.3140)  (-7.2060)   (2.5510)) || C4' 
-      (Pt  (7.2954)  (-7.6762)   (2.4898)) || H4' 
-      (Pt  (6.0140)  (-6.5420)   (1.2890)) || O4' 
-      (Pt  (6.4190)  (-5.1840)   (1.3620)) || C1' 
-      (Pt  (7.1608)  (-5.0495)   (0.5747)) || H1' 
-      (Pt  (7.0760)  (-4.9560)   (2.7270)) || C2' 
-      (Pt  (6.7770)  (-3.9803)   (3.1099)) || H2''
-      (Pt  (8.4500)  (-5.1930)   (2.5810)) || O2' 
-      (Pt  (8.8309)  (-4.8755)   (1.7590)) || H2' 
-      (Pt  (6.4060)  (-6.0590)   (3.5580)) || C3' 
-      (Pt  (5.4021)  (-5.7313)   (3.8281)) || H3' 
-      (Pt  (7.1570)  (-6.4240)   (4.7070)) || O3' 
-      (Pt  (5.2170)  (-4.3260)   (1.1690)) || N1  
-      (Pt  (4.2960)  (-2.2560)   (0.6290)) || N3  
-      (Pt  (5.4330)  (-3.0200)   (0.7990)) || C2  
-      (Pt  (2.9930)  (-2.6780)   (0.7940)) || C4  
-      (Pt  (2.8670)  (-4.0630)   (1.1830)) || C5  
-      (Pt  (3.9570)  (-4.8300)   (1.3550)) || C6
-      (U
-      (Pt  (6.5470)  (-2.5560)   (0.6290)) || O2  
-      (Pt  (2.0540)  (-1.9000)   (0.6130)) || O4  
-      (Pt  (4.4300)  (-1.3020)   (0.3600)) || H3  
-      (Pt  (1.9590)  (-4.4570)   (1.3250)) || H5  
-      (Pt  (3.8460)  (-5.7860)   (1.6240)) || H6  
-      )
-
-rU01
-  = Nuc
-      (Tfo (-0.0137)  (-0.8012)   (0.5983)  || dgf_base_tfo
-           (-0.2523)   (0.5817)   (0.7733)
-           (-0.9675)  (-0.1404)  (-0.2101)
-            (0.2031)   (8.3874)   (0.4228))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2416)  (-8.2422)   (2.8181)) || C5' 
-      (Pt  (5.2050)  (-8.8128)   (1.8901)) || H5' 
-      (Pt  (5.5368)  (-8.7738)   (3.7227)) || H5''
-      (Pt  (6.3232)  (-7.2037)   (2.6002)) || C4' 
-      (Pt  (7.3048)  (-7.6757)   (2.5577)) || H4' 
-      (Pt  (6.0635)  (-6.5092)   (1.3456)) || O4' 
-      (Pt  (6.4697)  (-5.1547)   (1.4629)) || C1' 
-      (Pt  (7.2354)  (-5.0043)   (0.7018)) || H1' 
-      (Pt  (7.0856)  (-4.9610)   (2.8521)) || C2' 
-      (Pt  (6.7777)  (-3.9935)   (3.2487)) || H2''
-      (Pt  (8.4627)  (-5.1992)   (2.7423)) || O2' 
-      (Pt  (8.8693)  (-4.8638)   (1.9399)) || H2' 
-      (Pt  (6.3877)  (-6.0809)   (3.6362)) || C3' 
-      (Pt  (5.3770)  (-5.7562)   (3.8834)) || H3' 
-      (Pt  (7.1024)  (-6.4754)   (4.7985)) || O3' 
-      (Pt  (5.2764)  (-4.2883)   (1.2538)) || N1  
-      (Pt  (4.3777)  (-2.2062)   (0.7229)) || N3  
-      (Pt  (5.5069)  (-2.9779)   (0.9088)) || C2  
-      (Pt  (3.0693)  (-2.6246)   (0.8500)) || C4  
-      (Pt  (2.9279)  (-4.0146)   (1.2149)) || C5  
-      (Pt  (4.0101)  (-4.7892)   (1.4017)) || C6
-      (U
-      (Pt  (6.6267)  (-2.5166)   (0.7728)) || O2  
-      (Pt  (2.1383)  (-1.8396)   (0.6581)) || O4  
-      (Pt  (4.5223)  (-1.2489)   (0.4716)) || H3  
-      (Pt  (2.0151)  (-4.4065)   (1.3290)) || H5  
-      (Pt  (3.8886)  (-5.7486)   (1.6535)) || H6  
-      )
-
-rU02
-  = Nuc
-      (Tfo  (0.5141)   (0.0246)   (0.8574)  || dgf_base_tfo
-           (-0.5547)  (-0.7529)   (0.3542)
-            (0.6542)  (-0.6577)  (-0.3734)
-           (-9.1111)  (-3.4598)  (-3.2939))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (4.3825)  (-6.6585)   (4.0489)) || C5' 
-      (Pt  (4.6841)  (-7.2019)   (4.9443)) || H5' 
-      (Pt  (3.6189)  (-5.8889)   (4.1625)) || H5''
-      (Pt  (5.6255)  (-5.9175)   (3.5998)) || C4' 
-      (Pt  (5.8732)  (-5.1228)   (4.3034)) || H4' 
-      (Pt  (6.7337)  (-6.8605)   (3.5222)) || O4' 
-      (Pt  (7.5932)  (-6.4923)   (2.4548)) || C1' 
-      (Pt  (8.5661)  (-6.2983)   (2.9064)) || H1' 
-      (Pt  (7.0527)  (-5.2012)   (1.8322)) || C2' 
-      (Pt  (7.1627)  (-5.2525)   (0.7490)) || H2''
-      (Pt  (7.6666)  (-4.1249)   (2.4880)) || O2' 
-      (Pt  (8.5944)  (-4.2543)   (2.6981)) || H2' 
-      (Pt  (5.5661)  (-5.3029)   (2.2009)) || C3' 
-      (Pt  (5.0841)  (-6.0018)   (1.5172)) || H3' 
-      (Pt  (4.9062)  (-4.0452)   (2.2042)) || O3' 
-      (Pt  (7.6298)  (-7.6136)   (1.4752)) || N1  
-      (Pt  (8.6945)  (-8.7046)  (-0.2857)) || N3  
-      (Pt  (8.6943)  (-7.6514)   (0.6066)) || C2  
-      (Pt  (7.7426)  (-9.6987)  (-0.3801)) || C4  
-      (Pt  (6.6642)  (-9.5742)   (0.5722)) || C5  
-      (Pt  (6.6391)  (-8.5592)   (1.4526)) || C6
-      (U
-      (Pt  (9.5840)  (-6.8186)   (0.6136)) || O2  
-      (Pt  (7.8505) (-10.5925)  (-1.2223)) || O4  
-      (Pt  (9.4601)  (-8.7514)  (-0.9277)) || H3  
-      (Pt  (5.9281) (-10.2509)   (0.5782)) || H5  
-      (Pt  (5.8831)  (-8.4931)   (2.1028)) || H6  
-      )
-
-rU03
-  = Nuc
-      (Tfo (-0.4993)   (0.0476)   (0.8651)  || dgf_base_tfo
-            (0.8078)  (-0.3353)   (0.4847)
-            (0.3132)   (0.9409)   (0.1290)
-            (6.2989)  (-5.2303)  (-3.8577))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (3.9938)  (-6.7042)   (1.9023)) || C5' 
-      (Pt  (3.2332)  (-5.9343)   (2.0319)) || H5' 
-      (Pt  (3.9666)  (-7.2863)   (0.9812)) || H5''
-      (Pt  (5.3098)  (-5.9546)   (1.8564)) || C4' 
-      (Pt  (5.3863)  (-5.3702)   (0.9395)) || H4' 
-      (Pt  (5.3851)  (-5.0642)   (3.0076)) || O4' 
-      (Pt  (6.7315)  (-4.9724)   (3.4462)) || C1' 
-      (Pt  (7.0033)  (-3.9202)   (3.3619)) || H1' 
-      (Pt  (7.5997)  (-5.8018)   (2.4948)) || C2' 
-      (Pt  (8.3627)  (-6.3254)   (3.0707)) || H2''
-      (Pt  (8.0410)  (-4.9501)   (1.4724)) || O2' 
-      (Pt  (8.2781)  (-4.0644)   (1.7570)) || H2' 
-      (Pt  (6.5701)  (-6.8129)   (1.9714)) || C3' 
-      (Pt  (6.4186)  (-7.5809)   (2.7299)) || H3' 
-      (Pt  (6.9357)  (-7.3841)   (0.7235)) || O3' 
-      (Pt  (6.8024)  (-5.4718)   (4.8475)) || N1  
-      (Pt  (7.9218)  (-5.5700)   (6.8877)) || N3  
-      (Pt  (7.8908)  (-5.0886)   (5.5944)) || C2  
-      (Pt  (6.9789)  (-6.3827)   (7.4823)) || C4  
-      (Pt  (5.8742)  (-6.7319)   (6.6202)) || C5  
-      (Pt  (5.8182)  (-6.2769)   (5.3570)) || C6
-      (U
-      (Pt  (8.7747)  (-4.3728)   (5.1568)) || O2  
-      (Pt  (7.1154)  (-6.7509)   (8.6509)) || O4  
-      (Pt  (8.7055)  (-5.3037)   (7.4491)) || H3  
-      (Pt  (5.1416)  (-7.3178)   (6.9665)) || H5  
-      (Pt  (5.0441)  (-6.5310)   (4.7784)) || H6  
-      )
-
-rU04
-  = Nuc
-      (Tfo (-0.5669)  (-0.8012)   (0.1918)  || dgf_base_tfo
-           (-0.8129)   (0.5817)   (0.0273)
-           (-0.1334)  (-0.1404)  (-0.9811)
-           (-0.3279)   (8.3874)   (0.3355))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2416)  (-8.2422)   (2.8181)) || C5' 
-      (Pt  (5.2050)  (-8.8128)   (1.8901)) || H5' 
-      (Pt  (5.5368)  (-8.7738)   (3.7227)) || H5''
-      (Pt  (6.3232)  (-7.2037)   (2.6002)) || C4' 
-      (Pt  (7.3048)  (-7.6757)   (2.5577)) || H4' 
-      (Pt  (6.0635)  (-6.5092)   (1.3456)) || O4' 
-      (Pt  (6.4697)  (-5.1547)   (1.4629)) || C1' 
-      (Pt  (7.2354)  (-5.0043)   (0.7018)) || H1' 
-      (Pt  (7.0856)  (-4.9610)   (2.8521)) || C2' 
-      (Pt  (6.7777)  (-3.9935)   (3.2487)) || H2''
-      (Pt  (8.4627)  (-5.1992)   (2.7423)) || O2' 
-      (Pt  (8.8693)  (-4.8638)   (1.9399)) || H2' 
-      (Pt  (6.3877)  (-6.0809)   (3.6362)) || C3' 
-      (Pt  (5.3770)  (-5.7562)   (3.8834)) || H3' 
-      (Pt  (7.1024)  (-6.4754)   (4.7985)) || O3' 
-      (Pt  (5.2764)  (-4.2883)   (1.2538)) || N1  
-      (Pt  (3.8961)  (-3.0896)  (-0.1893)) || N3  
-      (Pt  (5.0095)  (-3.8907)  (-0.0346)) || C2  
-      (Pt  (3.0480)  (-2.6632)   (0.8116)) || C4  
-      (Pt  (3.4093)  (-3.1310)   (2.1292)) || C5  
-      (Pt  (4.4878)  (-3.9124)   (2.3088)) || C6
-      (U
-      (Pt  (5.7005)  (-4.2164)  (-0.9842)) || O2  
-      (Pt  (2.0800)  (-1.9458)   (0.5503)) || O4  
-      (Pt  (3.6834)  (-2.7882)  (-1.1190)) || H3  
-      (Pt  (2.8508)  (-2.8721)   (2.9172)) || H5  
-      (Pt  (4.7188)  (-4.2247)   (3.2295)) || H6  
-      )
-
-rU05
-  = Nuc
-      (Tfo (-0.6298)   (0.0246)   (0.7763)  || dgf_base_tfo
-           (-0.5226)  (-0.7529)  (-0.4001)
-            (0.5746)  (-0.6577)   (0.4870)
-           (-0.0208)  (-3.4598)  (-9.6882))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (4.3825)  (-6.6585)   (4.0489)) || C5' 
-      (Pt  (4.6841)  (-7.2019)   (4.9443)) || H5' 
-      (Pt  (3.6189)  (-5.8889)   (4.1625)) || H5''
-      (Pt  (5.6255)  (-5.9175)   (3.5998)) || C4' 
-      (Pt  (5.8732)  (-5.1228)   (4.3034)) || H4' 
-      (Pt  (6.7337)  (-6.8605)   (3.5222)) || O4' 
-      (Pt  (7.5932)  (-6.4923)   (2.4548)) || C1' 
-      (Pt  (8.5661)  (-6.2983)   (2.9064)) || H1' 
-      (Pt  (7.0527)  (-5.2012)   (1.8322)) || C2' 
-      (Pt  (7.1627)  (-5.2525)   (0.7490)) || H2''
-      (Pt  (7.6666)  (-4.1249)   (2.4880)) || O2' 
-      (Pt  (8.5944)  (-4.2543)   (2.6981)) || H2' 
-      (Pt  (5.5661)  (-5.3029)   (2.2009)) || C3' 
-      (Pt  (5.0841)  (-6.0018)   (1.5172)) || H3' 
-      (Pt  (4.9062)  (-4.0452)   (2.2042)) || O3' 
-      (Pt  (7.6298)  (-7.6136)   (1.4752)) || N1  
-      (Pt  (8.5977)  (-9.5977)   (0.7329)) || N3  
-      (Pt  (8.5951)  (-8.5745)   (1.6594)) || C2  
-      (Pt  (7.7372)  (-9.7371)  (-0.3364)) || C4  
-      (Pt  (6.7596)  (-8.6801)  (-0.4476)) || C5  
-      (Pt  (6.7338)  (-7.6721)   (0.4408)) || C6
-      (U
-      (Pt  (9.3993)  (-8.5377)   (2.5743)) || O2  
-      (Pt  (7.8374) (-10.6990)  (-1.1008)) || O4  
-      (Pt  (9.2924) (-10.3081)   (0.8477)) || H3  
-      (Pt  (6.0932)  (-8.6982)  (-1.1929)) || H5  
-      (Pt  (6.0481)  (-6.9515)   (0.3446)) || H6  
-      )
-
-rU06
-  = Nuc
-      (Tfo (-0.9837)   (0.0476)  (-0.1733)  || dgf_base_tfo
-           (-0.1792)  (-0.3353)   (0.9249)
-           (-0.0141)   (0.9409)   (0.3384)
-            (5.7793)  (-5.2303)   (4.5997))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (3.9938)  (-6.7042)   (1.9023)) || C5' 
-      (Pt  (3.2332)  (-5.9343)   (2.0319)) || H5' 
-      (Pt  (3.9666)  (-7.2863)   (0.9812)) || H5''
-      (Pt  (5.3098)  (-5.9546)   (1.8564)) || C4' 
-      (Pt  (5.3863)  (-5.3702)   (0.9395)) || H4' 
-      (Pt  (5.3851)  (-5.0642)   (3.0076)) || O4' 
-      (Pt  (6.7315)  (-4.9724)   (3.4462)) || C1' 
-      (Pt  (7.0033)  (-3.9202)   (3.3619)) || H1' 
-      (Pt  (7.5997)  (-5.8018)   (2.4948)) || C2' 
-      (Pt  (8.3627)  (-6.3254)   (3.0707)) || H2''
-      (Pt  (8.0410)  (-4.9501)   (1.4724)) || O2' 
-      (Pt  (8.2781)  (-4.0644)   (1.7570)) || H2' 
-      (Pt  (6.5701)  (-6.8129)   (1.9714)) || C3' 
-      (Pt  (6.4186)  (-7.5809)   (2.7299)) || H3' 
-      (Pt  (6.9357)  (-7.3841)   (0.7235)) || O3' 
-      (Pt  (6.8024)  (-5.4718)   (4.8475)) || N1  
-      (Pt  (6.6920)  (-5.0495)   (7.1354)) || N3  
-      (Pt  (6.6201)  (-4.5500)   (5.8506)) || C2  
-      (Pt  (6.9254)  (-6.3614)   (7.4926)) || C4  
-      (Pt  (7.1046)  (-7.2543)   (6.3718)) || C5  
-      (Pt  (7.0391)  (-6.7951)   (5.1106)) || C6
-      (U
-      (Pt  (6.4083)  (-3.3696)   (5.6340)) || O2  
-      (Pt  (6.9679)  (-6.6901)   (8.6800)) || O4  
-      (Pt  (6.5626)  (-4.3957)   (7.8812)) || H3  
-      (Pt  (7.2781)  (-8.2254)   (6.5350)) || H5  
-      (Pt  (7.1657)  (-7.4312)   (4.3503)) || H6  
-      )
-
-rU07
-  = Nuc
-      (Tfo (-0.9434)   (0.3172)   (0.0971)  || dgf_base_tfo
-            (0.2294)   (0.4125)   (0.8816)
-            (0.2396)   (0.8539)  (-0.4619)
-            (8.3625) (-52.7147)   (1.3745))
-      (Tfo  (0.2765)  (-0.1121)  (-0.9545)  || p_o3'_275_tfo
-           (-0.8297)   (0.4733)  (-0.2959)
-            (0.4850)   (0.8737)   (0.0379)
-          (-14.7774) (-45.2464)  (21.9088))
-      (Tfo  (0.1063)  (-0.6334)  (-0.7665)  || p_o3'_180_tfo
-           (-0.5932)  (-0.6591)   (0.4624)
-           (-0.7980)   (0.4055)  (-0.4458)
-           (43.7634)   (4.3296)  (28.4890))
-      (Tfo  (0.7136)  (-0.5032)  (-0.4873)  || p_o3'_60_tfo
-            (0.6803)   (0.3317)   (0.6536)
-           (-0.1673)  (-0.7979)   (0.5791)
-          (-17.1858)  (41.4390) (-27.0751))
-      (Pt (21.3880)  (15.0780)  (45.5770)) || P   
-      (Pt (21.9980)  (14.5500)  (46.8210)) || O1P 
-      (Pt (21.1450)  (14.0270)  (44.5420)) || O2P 
-      (Pt (22.1250)  (16.3600)  (44.9460)) || O5' 
-      (Pt (21.5037)  (16.8594)  (43.7323)) || C5' 
-      (Pt (20.8147)  (17.6663)  (43.9823)) || H5' 
-      (Pt (21.1086)  (16.0230)  (43.1557)) || H5''
-      (Pt (22.5654)  (17.4874)  (42.8616)) || C4' 
-      (Pt (22.1584)  (17.7243)  (41.8785)) || H4' 
-      (Pt (23.0557)  (18.6826)  (43.4751)) || O4' 
-      (Pt (24.4788)  (18.6151)  (43.6455)) || C1' 
-      (Pt (24.9355)  (19.0840)  (42.7739)) || H1' 
-      (Pt (24.7958)  (17.1427)  (43.6474)) || C2' 
-      (Pt (24.5652)  (16.7400)  (44.6336)) || H2''
-      (Pt (26.1041)  (16.8773)  (43.2455)) || O2' 
-      (Pt (26.7516)  (17.5328)  (43.5149)) || H2' 
-      (Pt (23.8109)  (16.5979)  (42.6377)) || C3' 
-      (Pt (23.5756)  (15.5686)  (42.9084)) || H3' 
-      (Pt (24.2890)  (16.7447)  (41.2729)) || O3' 
-      (Pt (24.9420)  (19.2174)  (44.8923)) || N1  
-      (Pt (25.2655)  (20.5636)  (44.8883)) || N3  
-      (Pt (25.1663)  (21.2219)  (43.8561)) || C2  
-      (Pt (25.6911)  (21.1219)  (46.0494)) || C4  
-      (Pt (25.8051)  (20.4068)  (47.2048)) || C5  
-      (Pt (26.2093)  (20.9962)  (48.2534)) || C6
-      (U
-      (Pt (25.4692)  (19.0221)  (47.2053)) || O2  
-      (Pt (25.0502)  (18.4827)  (46.0370)) || O4  
-      (Pt (25.9599)  (22.1772)  (46.0966)) || H3  
-      (Pt (25.5545)  (18.4409)  (48.1234)) || H5  
-      (Pt (24.7854)  (17.4265)  (45.9883)) || H6  
-      )
-
-rU08
-  = Nuc
-      (Tfo (-0.0080)  (-0.7928)   (0.6094)  || dgf_base_tfo
-           (-0.7512)   (0.4071)   (0.5197)
-           (-0.6601)  (-0.4536)  (-0.5988)
-           (44.1482)  (30.7036)   (2.1088))
-      (Tfo  (0.2765)  (-0.1121)  (-0.9545)  || p_o3'_275_tfo
-           (-0.8297)   (0.4733)  (-0.2959)
-            (0.4850)   (0.8737)   (0.0379)
-          (-14.7774) (-45.2464)  (21.9088))
-      (Tfo  (0.1063)  (-0.6334)  (-0.7665)  || p_o3'_180_tfo
-           (-0.5932)  (-0.6591)   (0.4624)
-           (-0.7980)   (0.4055)  (-0.4458)
-           (43.7634)   (4.3296)  (28.4890))
-      (Tfo  (0.7136)  (-0.5032)  (-0.4873)  || p_o3'_60_tfo
-            (0.6803)   (0.3317)   (0.6536)
-           (-0.1673)  (-0.7979)   (0.5791)
-          (-17.1858)  (41.4390) (-27.0751))
-      (Pt (21.3880)  (15.0780)  (45.5770)) || P   
-      (Pt (21.9980)  (14.5500)  (46.8210)) || O1P 
-      (Pt (21.1450)  (14.0270)  (44.5420)) || O2P 
-      (Pt (22.1250)  (16.3600)  (44.9460)) || O5' 
-      (Pt (23.5096)  (16.1227)  (44.5783)) || C5' 
-      (Pt (23.5649)  (15.8588)  (43.5222)) || H5' 
-      (Pt (23.9621)  (15.4341)  (45.2919)) || H5''
-      (Pt (24.2805)  (17.4138)  (44.7151)) || C4' 
-      (Pt (25.3492)  (17.2309)  (44.6030)) || H4' 
-      (Pt (23.8497)  (18.3471)  (43.7208)) || O4' 
-      (Pt (23.4090)  (19.5681)  (44.3321)) || C1' 
-      (Pt (24.2595)  (20.2496)  (44.3524)) || H1' 
-      (Pt (23.0418)  (19.1813)  (45.7407)) || C2' 
-      (Pt (22.0532)  (18.7224)  (45.7273)) || H2''
-      (Pt (23.1307)  (20.2521)  (46.6291)) || O2' 
-      (Pt (22.8888)  (21.1051)  (46.2611)) || H2' 
-      (Pt (24.0799)  (18.1326)  (46.0700)) || C3' 
-      (Pt (23.6490)  (17.4370)  (46.7900)) || H3' 
-      (Pt (25.3329)  (18.7227)  (46.5109)) || O3' 
-      (Pt (22.2515)  (20.1624)  (43.6698)) || N1  
-      (Pt (22.4760)  (21.0609)  (42.6406)) || N3  
-      (Pt (23.6229)  (21.3462)  (42.3061)) || C2  
-      (Pt (21.3986)  (21.6081)  (42.0236)) || C4  
-      (Pt (20.1189)  (21.3012)  (42.3804)) || C5  
-      (Pt (19.1599)  (21.8516)  (41.7578)) || C6
-      (U
-      (Pt (19.8919)  (20.3745)  (43.4387)) || O2  
-      (Pt (20.9790)  (19.8423)  (44.0440)) || O4  
-      (Pt (21.5235)  (22.3222)  (41.2097)) || H3  
-      (Pt (18.8732)  (20.1200)  (43.7312)) || H5  
-      (Pt (20.8545)  (19.1313)  (44.8608)) || H6  
-      )
-
-rU09
-  = Nuc
-      (Tfo (-0.0317)   (0.1374)   (0.9900)  || dgf_base_tfo
-           (-0.3422)  (-0.9321)   (0.1184)
-            (0.9391)  (-0.3351)   (0.0765)
-          (-32.1929)  (25.8198) (-28.5088))
-      (Tfo  (0.2765)  (-0.1121)  (-0.9545)  || p_o3'_275_tfo
-           (-0.8297)   (0.4733)  (-0.2959)
-            (0.4850)   (0.8737)   (0.0379)
-          (-14.7774) (-45.2464)  (21.9088))
-      (Tfo  (0.1063)  (-0.6334)  (-0.7665)  || p_o3'_180_tfo
-           (-0.5932)  (-0.6591)   (0.4624)
-           (-0.7980)   (0.4055)  (-0.4458)
-           (43.7634)   (4.3296)  (28.4890))
-      (Tfo  (0.7136)  (-0.5032)  (-0.4873)  || p_o3'_60_tfo
-            (0.6803)   (0.3317)   (0.6536)
-           (-0.1673)  (-0.7979)   (0.5791)
-          (-17.1858)  (41.4390) (-27.0751))
-      (Pt (21.3880)  (15.0780)  (45.5770)) || P   
-      (Pt (21.9980)  (14.5500)  (46.8210)) || O1P 
-      (Pt (21.1450)  (14.0270)  (44.5420)) || O2P 
-      (Pt (22.1250)  (16.3600)  (44.9460)) || O5' 
-      (Pt (21.5037)  (16.8594)  (43.7323)) || C5' 
-      (Pt (20.8147)  (17.6663)  (43.9823)) || H5' 
-      (Pt (21.1086)  (16.0230)  (43.1557)) || H5''
-      (Pt (22.5654)  (17.4874)  (42.8616)) || C4' 
-      (Pt (23.0565)  (18.3036)  (43.3915)) || H4' 
-      (Pt (23.5375)  (16.5054)  (42.4925)) || O4' 
-      (Pt (23.6574)  (16.4257)  (41.0649)) || C1' 
-      (Pt (24.4701)  (17.0882)  (40.7671)) || H1' 
-      (Pt (22.3525)  (16.9643)  (40.5396)) || C2' 
-      (Pt (21.5993)  (16.1799)  (40.6133)) || H2''
-      (Pt (22.4693)  (17.4849)  (39.2515)) || O2' 
-      (Pt (23.0899)  (17.0235)  (38.6827)) || H2' 
-      (Pt (22.0341)  (18.0633)  (41.5279)) || C3' 
-      (Pt (20.9509)  (18.1709)  (41.5846)) || H3' 
-      (Pt (22.7249)  (19.3020)  (41.2100)) || O3' 
-      (Pt (23.8580)  (15.0648)  (40.5757)) || N1  
-      (Pt (25.1556)  (14.5982)  (40.4523)) || N3  
-      (Pt (26.1047)  (15.3210)  (40.7448)) || C2  
-      (Pt (25.3391)  (13.3315)  (40.0020)) || C4  
-      (Pt (24.2974)  (12.5148)  (39.6749)) || C5  
-      (Pt (24.5450)  (11.3410)  (39.2610)) || C6
-      (U
-      (Pt (22.9633)  (12.9979)  (39.8053)) || O2  
-      (Pt (22.8009)  (14.2648)  (40.2524)) || O4  
-      (Pt (26.3414)  (12.9194)  (39.8855)) || H3  
-      (Pt (22.1227)  (12.3533)  (39.5486)) || H5  
-      (Pt (21.7989)  (14.6788)  (40.3650)) || H6  
-      )
-
-rU10
-  = Nuc
-      (Tfo (-0.9674)   (0.1021)  (-0.2318)  || dgf_base_tfo
-           (-0.2514)  (-0.2766)   (0.9275)
-            (0.0306)   (0.9555)   (0.2933)
-           (27.8571) (-42.1305) (-24.4563))
-      (Tfo  (0.2765)  (-0.1121)  (-0.9545)  || p_o3'_275_tfo
-           (-0.8297)   (0.4733)  (-0.2959)
-            (0.4850)   (0.8737)   (0.0379)
-          (-14.7774) (-45.2464)  (21.9088))
-      (Tfo  (0.1063)  (-0.6334)  (-0.7665)  || p_o3'_180_tfo
-           (-0.5932)  (-0.6591)   (0.4624)
-           (-0.7980)   (0.4055)  (-0.4458)
-           (43.7634)   (4.3296)  (28.4890))
-      (Tfo  (0.7136)  (-0.5032)  (-0.4873)  || p_o3'_60_tfo
-            (0.6803)   (0.3317)   (0.6536)
-           (-0.1673)  (-0.7979)   (0.5791)
-          (-17.1858)  (41.4390) (-27.0751))
-      (Pt (21.3880)  (15.0780)  (45.5770)) || P   
-      (Pt (21.9980)  (14.5500)  (46.8210)) || O1P 
-      (Pt (21.1450)  (14.0270)  (44.5420)) || O2P 
-      (Pt (22.1250)  (16.3600)  (44.9460)) || O5' 
-      (Pt (23.5096)  (16.1227)  (44.5783)) || C5' 
-      (Pt (23.5649)  (15.8588)  (43.5222)) || H5' 
-      (Pt (23.9621)  (15.4341)  (45.2919)) || H5''
-      (Pt (24.2805)  (17.4138)  (44.7151)) || C4' 
-      (Pt (23.8509)  (18.1819)  (44.0720)) || H4' 
-      (Pt (24.2506)  (17.8583)  (46.0741)) || O4' 
-      (Pt (25.5830)  (18.0320)  (46.5775)) || C1' 
-      (Pt (25.8569)  (19.0761)  (46.4256)) || H1' 
-      (Pt (26.4410)  (17.1555)  (45.7033)) || C2' 
-      (Pt (26.3459)  (16.1253)  (46.0462)) || H2''
-      (Pt (27.7649)  (17.5888)  (45.6478)) || O2' 
-      (Pt (28.1004)  (17.9719)  (46.4616)) || H2' 
-      (Pt (25.7796)  (17.2997)  (44.3513)) || C3' 
-      (Pt (25.9478)  (16.3824)  (43.7871)) || H3' 
-      (Pt (26.2154)  (18.4984)  (43.6541)) || O3' 
-      (Pt (25.7321)  (17.6281)  (47.9726)) || N1  
-      (Pt (25.5136)  (18.5779)  (48.9560)) || N3  
-      (Pt (25.2079)  (19.7276)  (48.6503)) || C2  
-      (Pt (25.6482)  (18.1987)  (50.2518)) || C4  
-      (Pt (25.9847)  (16.9266)  (50.6092)) || C5  
-      (Pt (26.0918)  (16.6439)  (51.8416)) || C6
-      (U
-      (Pt (26.2067)  (15.9515)  (49.5943)) || O2  
-      (Pt (26.0713)  (16.3497)  (48.3080)) || O4  
-      (Pt (25.4890)  (18.9105)  (51.0618)) || H3  
-      (Pt (26.4742)  (14.9310)  (49.8682)) || H5  
-      (Pt (26.2346)  (15.6394)  (47.4975)) || H6  
-      )
-
-rUs = [rU01,rU02,rU03,rU04,rU05,rU06,rU07,rU08,rU09,rU10]
-
-rG'
-  = Nuc
-      (Tfo (-0.2067)  (-0.0264)   (0.9780)  || dgf_base_tfo
-            (0.9770)  (-0.0586)   (0.2049)
-            (0.0519)   (0.9979)   (0.0379)
-            (1.0331) (-46.8078) (-36.4742))
-      (Tfo (-0.8644)  (-0.4956)  (-0.0851)  || p_o3'_275_tfo
-           (-0.0427)   (0.2409)  (-0.9696)
-            (0.5010)  (-0.8345)  (-0.2294)
-            (4.0167)  (54.5377)  (12.4779))
-      (Tfo  (0.3706)  (-0.6167)   (0.6945)  || p_o3'_180_tfo
-           (-0.2867)  (-0.7872)  (-0.5460)
-            (0.8834)   (0.0032)  (-0.4686)
-          (-52.9020)  (18.6313)  (-0.6709))
-      (Tfo  (0.4155)   (0.9025)  (-0.1137)  || p_o3'_60_tfo
-            (0.9040)  (-0.4236)  (-0.0582)
-           (-0.1007)  (-0.0786)  (-0.9918)
-           (-7.6624) (-25.2080)  (49.5181))
-      (Pt (31.3810)   (0.1400)  (47.5810)) || P   
-      (Pt (29.9860)   (0.6630)  (47.6290)) || O1P 
-      (Pt (31.7210)  (-0.6460)  (48.8090)) || O2P 
-      (Pt (32.4940)   (1.2540)  (47.2740)) || O5' 
-      (Pt (32.1610)   (2.2370)  (46.2560)) || C5' 
-      (Pt (31.2986)   (2.8190)  (46.5812)) || H5' 
-      (Pt (32.0980)   (1.7468)  (45.2845)) || H5''
-      (Pt (33.3476)   (3.1959)  (46.1947)) || C4' 
-      (Pt (33.2668)   (3.8958)  (45.3630)) || H4' 
-      (Pt (33.3799)   (3.9183)  (47.4216)) || O4' 
-      (Pt (34.6515)   (3.7222)  (48.0398)) || C1' 
-      (Pt (35.2947)   (4.5412)  (47.7180)) || H1' 
-      (Pt (35.1756)   (2.4228)  (47.4827)) || C2' 
-      (Pt (34.6778)   (1.5937)  (47.9856)) || H2''
-      (Pt (36.5631)   (2.2672)  (47.4798)) || O2' 
-      (Pt (37.0163)   (2.6579)  (48.2305)) || H2' 
-      (Pt (34.6953)   (2.5043)  (46.0448)) || C3' 
-      (Pt (34.5444)   (1.4917)  (45.6706)) || H3' 
-      (Pt (35.6679)   (3.3009)  (45.3487)) || O3' 
-      (Pt (37.4804)   (4.0914)  (52.2559)) || N1  
-      (Pt (36.9670)   (4.1312)  (49.9281)) || N3  
-      (Pt (37.8045)   (4.2519)  (50.9550)) || C2  
-      (Pt (35.7171)   (3.8264)  (50.3222)) || C4  
-      (Pt (35.2668)   (3.6420)  (51.6115)) || C5  
-      (Pt (36.2037)   (3.7829)  (52.6706)) || C6
-      (G
-      (Pt (39.0869)   (4.5552)  (50.7092)) || N2  
-      (Pt (33.9075)   (3.3338)  (51.6102)) || N7  
-      (Pt (34.6126)   (3.6358)  (49.5108)) || N9  
-      (Pt (33.5805)   (3.3442)  (50.3425)) || C8  
-      (Pt (35.9958)   (3.6512)  (53.8724)) || O6  
-      (Pt (38.2106)   (4.2053)  (52.9295)) || H1  
-      (Pt (39.8218)   (4.6863)  (51.3896)) || H21 
-      (Pt (39.3420)   (4.6857)  (49.7407)) || H22 
-      (Pt (32.5194)   (3.1070)  (50.2664)) || H8  
-      )
-
-rU'
-  = Nuc
-      (Tfo (-0.0109)   (0.5907)   (0.8068)  || dgf_base_tfo
-            (0.2217)  (-0.7853)   (0.5780)
-            (0.9751)   (0.1852)  (-0.1224)
-           (-1.4225) (-11.0956)  (-2.5217))
-      (Tfo (-0.8313)  (-0.4738)  (-0.2906)  || p_o3'_275_tfo
-            (0.0649)   (0.4366)  (-0.8973)
-            (0.5521)  (-0.7648)  (-0.3322)
-            (1.6833)   (6.8060)  (-7.0011))
-      (Tfo  (0.3445)  (-0.7630)   (0.5470)  || p_o3'_180_tfo
-           (-0.4628)  (-0.6450)  (-0.6082)
-            (0.8168)  (-0.0436)  (-0.5753)
-           (-6.8179)  (-3.9778)  (-5.9887))
-      (Tfo  (0.5855)   (0.7931)  (-0.1682)  || p_o3'_60_tfo
-            (0.8103)  (-0.5790)   (0.0906)
-           (-0.0255)  (-0.1894)  (-0.9816)
-            (6.1203)  (-7.1051)   (3.1984))
-      (Pt  (2.6760)  (-8.4960)   (3.2880)) || P   
-      (Pt  (1.4950)  (-7.6230)   (3.4770)) || O1P 
-      (Pt  (2.9490)  (-9.4640)   (4.3740)) || O2P 
-      (Pt  (3.9730)  (-7.5950)   (3.0340)) || O5' 
-      (Pt  (5.2430)  (-8.2420)   (2.8260)) || C5' 
-      (Pt  (5.1974)  (-8.8497)   (1.9223)) || H5' 
-      (Pt  (5.5548)  (-8.7348)   (3.7469)) || H5''
-      (Pt  (6.3140)  (-7.2060)   (2.5510)) || C4' 
-      (Pt  (5.8744)  (-6.2116)   (2.4731)) || H4' 
-      (Pt  (7.2798)  (-7.2260)   (3.6420)) || O4' 
-      (Pt  (8.5733)  (-6.9410)   (3.1329)) || C1' 
-      (Pt  (8.9047)  (-6.0374)   (3.6446)) || H1' 
-      (Pt  (8.4429)  (-6.6596)   (1.6327)) || C2' 
-      (Pt  (9.2880)  (-7.1071)   (1.1096)) || H2''
-      (Pt  (8.2502)  (-5.2799)   (1.4754)) || O2' 
-      (Pt  (8.7676)  (-4.7284)   (2.0667)) || H2' 
-      (Pt  (7.1642)  (-7.4416)   (1.3021)) || C3' 
-      (Pt  (7.4125)  (-8.5002)   (1.2260)) || H3' 
-      (Pt  (6.5160)  (-6.9772)   (0.1267)) || O3' 
-      (Pt  (9.4531)  (-8.1107)   (3.4087)) || N1  
-      (Pt (11.5931)  (-9.0015)   (3.6357)) || N3  
-      (Pt (10.8101)  (-7.8950)   (3.3748)) || C2  
-      (Pt (11.1439) (-10.2744)   (3.9206)) || C4  
-      (Pt  (9.7056) (-10.4026)   (3.9332)) || C5  
-      (Pt  (8.9192)  (-9.3419)   (3.6833)) || C6
-      (U
-      (Pt (11.3013)  (-6.8063)   (3.1326)) || O2  
-      (Pt (11.9431) (-11.1876)   (4.1375)) || O4  
-      (Pt (12.5840)  (-8.8673)   (3.6158)) || H3  
-      (Pt  (9.2891) (-11.2898)   (4.1313)) || H5  
-      (Pt  (7.9263)  (-9.4537)   (3.6977)) || H6  
-      )
-
-|| -- PARTIAL INSTANTIATIONS --------------------------------------------------
-
-var ::= Var int tfo nuc
-
-|| If you want lazy computation, comment the next two definitions and
-|| uncomment the alternative definitions that follow.
-
-mk_var i t n = Var i t n
-absolute_pos (Var i t n) p = tfo_apply t p
-
-|| mk_var i t n = Var i t (make_relative_nuc t n)
-|| absolute_pos (Var i t n) p = p
-
-atom_pos atom (Var i t n) = absolute_pos (Var i t n) (atom n)
-
-get_var id ((Var i t n):lst) = Var i t n, if i = id
-                             = get_var id lst, otherwise
-
-make_relative_nuc
-  t
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (A n6 n7 n9 c8 h2 h61 h62 h8))
-  = Nuc
-      dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-      (tfo_apply t p)
-      (tfo_apply t o1p)
-      (tfo_apply t o2p)
-      (tfo_apply t o5')
-      (tfo_apply t c5')
-      (tfo_apply t h5')
-      (tfo_apply t h5'')
-      (tfo_apply t c4')
-      (tfo_apply t h4')
-      (tfo_apply t o4')
-      (tfo_apply t c1')
-      (tfo_apply t h1')
-      (tfo_apply t c2')
-      (tfo_apply t h2'')
-      (tfo_apply t o2')
-      (tfo_apply t h2')
-      (tfo_apply t c3')
-      (tfo_apply t h3')
-      (tfo_apply t o3')
-      (tfo_apply t n1)
-      (tfo_apply t n3)
-      (tfo_apply t c2)
-      (tfo_apply t c4)
-      (tfo_apply t c5)
-      (tfo_apply t c6)
-      (A
-      (tfo_apply t n6)
-      (tfo_apply t n7)
-      (tfo_apply t n9)
-      (tfo_apply t c8)
-      (tfo_apply t h2)
-      (tfo_apply t h61)
-      (tfo_apply t h62)
-      (tfo_apply t h8)
-      )
-
-make_relative_nuc
-  t
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (C n4 o2 h41 h42 h5 h6))
-  = Nuc
-      dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-      (tfo_apply t p)
-      (tfo_apply t o1p)
-      (tfo_apply t o2p)
-      (tfo_apply t o5')
-      (tfo_apply t c5')
-      (tfo_apply t h5')
-      (tfo_apply t h5'')
-      (tfo_apply t c4')
-      (tfo_apply t h4')
-      (tfo_apply t o4')
-      (tfo_apply t c1')
-      (tfo_apply t h1')
-      (tfo_apply t c2')
-      (tfo_apply t h2'')
-      (tfo_apply t o2')
-      (tfo_apply t h2')
-      (tfo_apply t c3')
-      (tfo_apply t h3')
-      (tfo_apply t o3')
-      (tfo_apply t n1)
-      (tfo_apply t n3)
-      (tfo_apply t c2)
-      (tfo_apply t c4)
-      (tfo_apply t c5)
-      (tfo_apply t c6)
-      (C
-      (tfo_apply t n4)
-      (tfo_apply t o2)
-      (tfo_apply t h41)
-      (tfo_apply t h42)
-      (tfo_apply t h5)
-      (tfo_apply t h6)
-      )
-
-make_relative_nuc
-  t
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (G n2 n7 n9 c8 o6 h1 h21 h22 h8))
-  = Nuc
-      dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-      (tfo_apply t p)
-      (tfo_apply t o1p)
-      (tfo_apply t o2p)
-      (tfo_apply t o5')
-      (tfo_apply t c5')
-      (tfo_apply t h5')
-      (tfo_apply t h5'')
-      (tfo_apply t c4')
-      (tfo_apply t h4')
-      (tfo_apply t o4')
-      (tfo_apply t c1')
-      (tfo_apply t h1')
-      (tfo_apply t c2')
-      (tfo_apply t h2'')
-      (tfo_apply t o2')
-      (tfo_apply t h2')
-      (tfo_apply t c3')
-      (tfo_apply t h3')
-      (tfo_apply t o3')
-      (tfo_apply t n1)
-      (tfo_apply t n3)
-      (tfo_apply t c2)
-      (tfo_apply t c4)
-      (tfo_apply t c5)
-      (tfo_apply t c6)
-      (G
-      (tfo_apply t n2)
-      (tfo_apply t n7)
-      (tfo_apply t n9)
-      (tfo_apply t c8)
-      (tfo_apply t o6)
-      (tfo_apply t h1)
-      (tfo_apply t h21)
-      (tfo_apply t h22)
-      (tfo_apply t h8)
-      )
-
-make_relative_nuc
-  t
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (U o2 o4 h3 h5 h6))
-  = Nuc
-      dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-      (tfo_apply t p)
-      (tfo_apply t o1p)
-      (tfo_apply t o2p)
-      (tfo_apply t o5')
-      (tfo_apply t c5')
-      (tfo_apply t h5')
-      (tfo_apply t h5'')
-      (tfo_apply t c4')
-      (tfo_apply t h4')
-      (tfo_apply t o4')
-      (tfo_apply t c1')
-      (tfo_apply t h1')
-      (tfo_apply t c2')
-      (tfo_apply t h2'')
-      (tfo_apply t o2')
-      (tfo_apply t h2')
-      (tfo_apply t c3')
-      (tfo_apply t h3')
-      (tfo_apply t o3')
-      (tfo_apply t n1)
-      (tfo_apply t n3)
-      (tfo_apply t c2)
-      (tfo_apply t c4)
-      (tfo_apply t c5)
-      (tfo_apply t c6)
-      (U
-      (tfo_apply t o2)
-      (tfo_apply t o4)
-      (tfo_apply t h3)
-      (tfo_apply t h5)
-      (tfo_apply t h6)
-      )
-
-|| -- SEARCH ------------------------------------------------------------------
-
-|| Sequential backtracking algorithm
-
-search partial_inst [] constraint
-  = [partial_inst]
-search partial_inst (h:t) constraint
-  = try_assignments (h partial_inst)
-    where try_assignments []
-            = []
-          try_assignments (v:vs)
-            = (search (v:partial_inst) t constraint) ++ (try_assignments vs),
-              if constraint v partial_inst
-            = try_assignments vs,
-              otherwise
-
-|| -- DOMAINS -----------------------------------------------------------------
-
-|| Primary structure:   strand A CUGCCACGUCUG, strand B CAGACGUGGCAG
-||
-|| Secondary structure: strand A CUGCCACGUCUG
-||                               ||||||||||||
-||                               GACGGUGCAGAC strand B
-||
-|| Tertiary structure:
-||
-||    5' end of strand A C1----G12 3' end of strand B
-||                     U2-------A11
-||                    G3-------C10
-||                    C4-----G9
-||                     C5---G8
-||                        A6
-||                      G6-C7
-||                     C5----G8
-||                    A4-------U9
-||                    G3--------C10
-||                     A2-------U11
-||   5' end of strand B C1----G12 3' end of strand A
-||
-|| "helix", "stacked" and "connected" describe the spatial relationship
-|| between two consecutive nucleotides. E.g. the nucleotides C1 and U2
-|| from the strand A.
-||
-|| "wc" (stands for Watson-Crick and is a type of base-pairing),
-|| and "wc-dumas" describe the spatial relationship between 
-|| nucleotides from two chains that are growing in opposite directions.
-|| E.g. the nucleotides C1 from strand A and G12 from strand B.
-
-|| Dynamic Domains
-
-|| Given,
-||   "ref" a nucleotide which is already positioned,
-||   "nuc" the nucleotide to be placed,
-||   and "tfo" a transformation matrix which expresses the desired
-||   relationship between "ref" and "nuc",
-|| the function "dgf-base" computes the transformation matrix that
-|| places the nucleotide "nuc" in the given relationship to "ref".
-
-dgf_base tfo v nuc
-  = tfo_combine (nuc_dgf_base_tfo nuc)
-                (tfo_combine tfo (tfo_inv_ortho x))
-    where
-       Var i t n = v
-       x = tfo_align (atom_pos nuc_C1' v)
-                     (atom_pos rA_N9   v)
-                     (atom_pos nuc_C4  v), if is_A n
-         = tfo_align (atom_pos nuc_C1' v)
-                     (atom_pos nuc_N1  v)
-                     (atom_pos nuc_C2  v), if is_C n
-         = tfo_align (atom_pos nuc_C1' v)
-                     (atom_pos rG_N9   v)
-                     (atom_pos nuc_C4  v), if is_G n
-         = tfo_align (atom_pos nuc_C1' v)
-                     (atom_pos nuc_N1  v)
-                     (atom_pos nuc_C2  v), otherwise
-
-|| Placement of first nucleotide.
-
-reference nuc i partial_inst
-  = [ mk_var i tfo_id nuc ]
-
-|| The transformation matrix for wc is from:
-||
-|| Chandrasekaran R. et al (1989) A Re-Examination of the Crystal
-|| Structure of A-DNA Using Fiber Diffraction Data. J. Biomol.
-|| Struct. & Dynamics 6(6):1189-1202.
-
-wc_tfo
-  = Tfo
-      (-1.0000)  (0.0028) (-0.0019)
-       (0.0028)  (0.3468) (-0.9379)
-      (-0.0019) (-0.9379) (-0.3468)
-      (-0.0080)  (6.0730)  (8.7208)
-
-wc nuc i j partial_inst
-  = [ mk_var i (dgf_base wc_tfo (get_var j partial_inst) nuc) nuc ]
-
-wc_dumas_tfo
-  = Tfo
-      (-0.9737) (-0.1834)  (0.1352)
-      (-0.1779)  (0.2417) (-0.9539)
-       (0.1422) (-0.9529) (-0.2679)
-       (0.4837)  (6.2649)  (8.0285)
-         
-wc_dumas nuc i j partial_inst
-  = [ mk_var i (dgf_base wc_dumas_tfo (get_var j partial_inst) nuc) nuc ]
-
-helix5'_tfo
-  = Tfo
-       (0.9886) (-0.0961)  (0.1156)
-       (0.1424)  (0.8452) (-0.5152)
-      (-0.0482)  (0.5258)  (0.8492)
-      (-3.8737)  (0.5480)  (3.8024)
-
-helix5' nuc i j partial_inst
-  = [ mk_var i (dgf_base helix5'_tfo (get_var j partial_inst) nuc) nuc ]
-
-helix3'_tfo
-  = Tfo
-       (0.9886)  (0.1424) (-0.0482)
-      (-0.0961)  (0.8452)  (0.5258)
-       (0.1156) (-0.5152)  (0.8492)
-       (3.4426)  (2.0474) (-3.7042)
-
-helix3' nuc i j partial_inst
-  = [ mk_var i (dgf_base helix3'_tfo (get_var j partial_inst) nuc) nuc ]
-
-g37_a38_tfo
-  = Tfo
-       (0.9991)  (0.0164) (-0.0387)
-      (-0.0375)  (0.7616) (-0.6470)
-       (0.0189)  (0.6478)  (0.7615)
-      (-3.3018)  (0.9975)  (2.5585)
-
-g37_a38 nuc i j partial_inst
-  = mk_var i (dgf_base g37_a38_tfo (get_var j partial_inst) nuc) nuc
-
-stacked5' nuc i j partial_inst
-  = (g37_a38 nuc i j partial_inst) : (helix5' nuc i j partial_inst)
-
-a38_g37_tfo
-  = Tfo
-       (0.9991) (-0.0375)  (0.0189)
-       (0.0164)  (0.7616)  (0.6478) 
-      (-0.0387) (-0.6470)  (0.7615)
-       (3.3819)  (0.7718) (-2.5321)
-
-a38_g37 nuc i j partial_inst
-  = mk_var i (dgf_base a38_g37_tfo (get_var j partial_inst) nuc) nuc
-   
-stacked3' nuc i j partial_inst
-  = (a38_g37 nuc i j partial_inst) : (helix3' nuc i j partial_inst)
-
-p_o3' nucs i j partial_inst
-  = generate [] nucs
-    where
-      ref = get_var j partial_inst
-      align = tfo_inv_ortho
-                (tfo_align (atom_pos nuc_O3' ref)
-                           (atom_pos nuc_C3' ref)
-                           (atom_pos nuc_C4' ref))
-      generate domains []
-        = domains
-      generate domains (n:ns)
-        = generate
-           ((mk_var i (tfo_combine (nuc_p_o3'_60_tfo n) align) n):
-            (mk_var i (tfo_combine (nuc_p_o3'_180_tfo n) align) n):
-            (mk_var i (tfo_combine (nuc_p_o3'_275_tfo n) align) n):domains)
-           ns
-
-|| -- PROBLEM STATEMENT -------------------------------------------------------
-
-|| Define anticodon problem -- Science 253:1255 Figure 3a, 3b and 3c
-
-anticodon_domains
-  = [
-     reference rC  27,
-     helix5'   rC  28 27,
-     helix5'   rA  29 28,
-     helix5'   rG  30 29,
-     helix5'   rA  31 30,
-     wc        rU  39 31,
-     helix5'   rC  40 39,
-     helix5'   rU  41 40,
-     helix5'   rG  42 41,
-     helix5'   rG  43 42,
-     stacked3' rA  38 39,
-     stacked3' rG  37 38,
-     stacked3' rA  36 37,
-     stacked3' rA  35 36,
-     stacked3' rG  34 35, ||<-. Distance
-     p_o3'     rCs 32 31, ||  | Constraint
-     p_o3'     rUs 33 32  ||<-' 3.0 Angstroms
-    ]
-
-|| Anticodon constraint
-
-anticodon_constraint v partial_inst
-  = (dist 34) $fle 3.0, if i = 33
-  = True, otherwise
-    where Var i t n = v
-          dist j = pt_dist p o3'
-                   where p = atom_pos nuc_P (get_var j partial_inst)
-                         o3' = atom_pos nuc_O3' v
-
-anticodon = search [] anticodon_domains anticodon_constraint
-
-|| Define pseudoknot problem -- Science 253:1255 Figure 4a and 4b
-
-pseudoknot_domains
-  = [
-     reference rA  23,
-     wc_dumas  rU   8 23,
-     helix3'   rG  22 23,
-     wc_dumas  rC   9 22,
-     helix3'   rG  21 22,
-     wc_dumas  rC  10 21,
-     helix3'   rC  20 21,
-     wc_dumas  rG  11 20,
-     helix3'   rU' 19 20, ||<-.
-     wc_dumas  rA  12 19, ||  | Distance
-||                        ||  | Constraint
-|| Helix 1                ||  | 4.0 Angstroms
-     helix3'   rC   3 19, ||  |
-     wc_dumas  rG  13  3, ||  |
-     helix3'   rC   2  3, ||  |
-     wc_dumas  rG  14  2, ||  |
-     helix3'   rC   1  2, ||  |
-     wc_dumas  rG' 15  1, ||  |
-||                        ||  |
-|| L2 LOOP                ||  |
-     p_o3'     rUs 16 15, ||  |
-     p_o3'     rCs 17 16, ||  |
-     p_o3'     rAs 18 17, ||<-'
-||
-|| L1 LOOP
-     helix3'   rU   7  8, ||<-.
-     p_o3'     rCs  4  3, ||  | Constraint
-     stacked5' rU   5  4, ||  | 4.5 Angstroms
-     stacked5' rC   6  5  ||<-'
-    ]
-  
-|| Pseudoknot constraint
-
-pseudoknot_constraint v partial_inst
-  = (dist 19) $fle 4.0, if i = 18
-  = (dist 7) $fle 4.5, if i = 6
-  = True, otherwise
-    where Var i t n = v
-          dist j = pt_dist p o3'
-                   where p = atom_pos nuc_P (get_var j partial_inst)
-                         o3' = atom_pos nuc_O3' v
-
-pseudoknot = search [] pseudoknot_domains pseudoknot_constraint
-
-|| -- TESTING -----------------------------------------------------------------
-
-list_of_atoms n = (list_of_common_atoms n) ++ (list_of_specific_atoms n)
-
-list_of_common_atoms
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    x)
-  = [p,o1p,o2p,o5',c5',h5',h5'',c4',h4',o4',c1',h1',c2',h2'',o2',h2',c3',
-     h3',o3',n1,n3,c2,c4,c5,c6]
-
-list_of_specific_atoms
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (A n6 n7 n9 c8 h2 h61 h62 h8))
-  = [n6,n7,n9,c8,h2,h61,h62,h8]
-
-list_of_specific_atoms
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (C n4 o2 h41 h42 h5 h6))
-  = [n4,o2,h41,h42,h5,h6]
-
-list_of_specific_atoms
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (G n2 n7 n9 c8 o6 h1 h21 h22 h8))
-  = [n2,n7,n9,c8,o6,h1,h21,h22,h8]
-
-list_of_specific_atoms
-  (Nuc
-    dgf_base_tfo p_o3'_275_tfo p_o3'_180_tfo p_o3'_60_tfo
-    p o1p o2p o5' c5' h5' h5'' c4' h4' o4' c1' h1' c2' h2'' o2' h2'
-    c3' h3' o3' n1 n3 c2 c4 c5 c6
-    (U o2 o4 h3 h5 h6))
-  = [o2,o4,h3,h5,h6]
-
-var_most_distant_atom v
-  = maximum (map distance (list_of_atoms n))
-    where Var i t n = v
-          distance p = fsqrt ((x $fmul x) $fadd (y $fmul y) $fadd (z $fmul z))
-                       where Pt x y z = absolute_pos v p
-
-sol_most_distant_atom s = maximum (map var_most_distant_atom s)
-
-most_distant_atom sols = maximum (map sol_most_distant_atom sols)
-
-maximum (x:xs)
-  = loop x xs
-    where loop m [] = m
-          loop m (a:b) = loop a b, if a $fgt m
-                       = loop m b, otherwise
-
-check = #pseudoknot
-
-run = most_distant_atom pseudoknot
-
-|| To run program, evaluate: run
diff --git a/spectral/hartel/nucleic2/nucleic2.scm b/spectral/hartel/nucleic2/nucleic2.scm
deleted file mode 100644 (file)
index 0c4b64f..0000000
+++ /dev/null
@@ -1,3453 +0,0 @@
-; File: "nucleic2.scm"
-;
-; Author: Marc Feeley (feeley@iro.umontreal.ca)
-;
-; Last modified: June 6, 1994
-;
-; This program is a modified version of the program described in the paper:
-;
-;   M. Feeley, M. Turcotte, G. Lapalme, "Using Multilisp for Solving
-;   Constraint Satisfaction Problems: an Application to Nucleic Acid 3D
-;   Structure Determination" published in the journal "Lisp and Symbolic
-;   Computation".
-;
-; The differences between this program and the original are described in
-; the paper:
-;
-;   "???" published in the "Journal of Functional Programming".
-
-; -- SYSTEM DEPENDENT CODE ----------------------------------------------------
-
-; The code in this section is not portable.  It must be adapted to
-; the Scheme system you are using.
-
-; ********** GAMBIT 2.2
-
-; Add a single-quote at the start of this line if you are NOT using Gambit
-(begin
-
-(declare             ; Compiler declarations for fast code:
- (multilisp)         ; - Enable the FUTURE special-form
- (block)             ; - Assume this file contains the entire program
- (standard-bindings) ; - Assume standard bindings (this permits open-coding)
- (extended-bindings) ; - Same for extensions (such as "##flonum.+")
- (fixnum)            ; - Use fixnum arithmetic by default
- (not safe)          ; - Remove all runtime type checks
-)
-
-(define-macro (def-macro form . body)
-  `(DEFINE-MACRO ,form (LET () ,@body)))
-
-(def-macro (FLOAT+ x . l) `(,(string->symbol "##flonum.+") ,x ,@l))
-(def-macro (FLOAT- x . l) `(,(string->symbol "##flonum.-") ,x ,@l))
-(def-macro (FLOAT* x . l) `(,(string->symbol "##flonum.*") ,x ,@l))
-(def-macro (FLOAT/ x . l) `(,(string->symbol "##flonum./") ,x ,@l))
-(def-macro (FLOAT=   x y) `(,(string->symbol "##flonum.=") ,x ,y))
-(def-macro (FLOAT<   x y) `(,(string->symbol "##flonum.<") ,x ,y))
-(def-macro (FLOAT<=  x y) `(not (,(string->symbol "##flonum.<") ,y ,x)))
-(def-macro (FLOAT>   x y) `(,(string->symbol "##flonum.<") ,y ,x))
-(def-macro (FLOAT>=  x y) `(not (,(string->symbol "##flonum.<") ,x ,y)))
-(def-macro (FLOATsin   x) `(,(string->symbol "##flonum.sin")  ,x))
-(def-macro (FLOATcos   x) `(,(string->symbol "##flonum.cos")  ,x))
-(def-macro (FLOATatan  x) `(,(string->symbol "##flonum.atan") ,x))
-(def-macro (FLOATsqrt  x) `(,(string->symbol "##flonum.sqrt") ,x))
-)
-
-; ********** MIT-SCHEME
-
-'; Remove the single-quote from this line if you are using MIT-Scheme
-(begin
-
-(declare (usual-integrations))
-
-(define-macro (def-macro form . body)
-  `(DEFINE-MACRO ,form (LET () ,@body)))
-
-(def-macro (nary-function op1 op2 args)
-  (if (null? (cdr args))
-    `(,op1 ,@args)
-    (let loop ((args args))
-      (if (null? (cdr args))
-        (car args)
-        (loop (cons (list op2 (car args) (cadr args)) (cddr args)))))))
-
-(def-macro (FLOAT+ x . l) `(nary-function begin      flo:+ ,(cons x l)))
-(def-macro (FLOAT- x . l) `(nary-function flo:negate flo:- ,(cons x l)))
-(def-macro (FLOAT* x . l) `(nary-function begin      flo:* ,(cons x l)))
-(def-macro (FLOAT/ x . l) `(nary-function error      flo:/ ,(cons x l)))
-(def-macro (FLOAT=   x y) `(flo:= ,x ,y))
-(def-macro (FLOAT<   x y) `(flo:< ,x ,y))
-(def-macro (FLOAT<=  x y) `(not (flo:< ,y ,x)))
-(def-macro (FLOAT>   x y) `(flo:< ,y ,x))
-(def-macro (FLOAT>=  x y) `(not (flo:< ,x ,y)))
-(def-macro (FLOATsin   x) `(flo:sin  ,x))
-(def-macro (FLOATcos   x) `(flo:cos  ,x))
-(def-macro (FLOATatan  x) `(flo:atan ,x))
-(def-macro (FLOATsqrt  x) `(flo:sqrt ,x))
-
-(def-macro (FUTURE x) x)
-(def-macro (TOUCH x) x)
-)
-
-; ********** SCM
-
-'; Remove the single-quote from this line if you are using SCM
-(begin
-
-(defmacro def-macro (form . body)
-  `(DEFMACRO ,(car form) ,(cdr form) (LET () ,@body)))
-
-(def-macro (FLOAT+ x . l) `(+ ,x ,@l))
-(def-macro (FLOAT- x . l) `(- ,x ,@l))
-(def-macro (FLOAT* x . l) `(* ,x ,@l))
-(def-macro (FLOAT/ x . l) `(/ ,x ,@l))
-(def-macro (FLOAT=   x y) `(= ,x ,y))
-(def-macro (FLOAT<   x y) `(< ,x ,y))
-(def-macro (FLOAT<=  x y) `(not (< ,y ,x)))
-(def-macro (FLOAT>   x y) `(< ,y ,x))
-(def-macro (FLOAT>=  x y) `(not (< ,x ,y)))
-(def-macro (FLOATsin   x) `(sin  ,x))
-(def-macro (FLOATcos   x) `(cos  ,x))
-(def-macro (FLOATatan  x) `(atan ,x))
-(def-macro (FLOATsqrt  x) `(sqrt ,x))
-
-(def-macro (FUTURE x) x)
-(def-macro (TOUCH x) x)
-)
-
-; -- STRUCTURE DEFINITION MACRO -----------------------------------------------
-
-; The macro "def-struct" provides a simple mechanism to define record
-; structures out of vectors.  The first argument to "def-struct" is a boolean
-; indicating whether the vector should be tagged (to allow the type of the
-; structure to be tested).  The second argument is the name of the structure.
-; The remaining arguments are the names of the structure's fields.  A call
-; to "def-struct" defines macros to
-;
-;  1) construct a record object of this type
-;  2) fetch and store each field
-;  3) test a record to see if it is of this type (only if tags are used)
-;  4) define subclasses of this record with additional fields
-;
-; The call "(def-struct #t foo a b c)" will define the following macros:
-;
-;  (make-foo x y)                -- make a record
-;  (make-constant-foo x y)       -- make a record (args must be constants)
-;  (foo? x)                      -- test a record
-;  (foo-a x)                     -- get field "a"
-;  (foo-b x)                     -- get field "b"
-;  (foo-a-set! x y)              -- mutate field "a"
-;  (foo-b-set! x y)              -- mutate field "b"
-;  (def-foo tag? name fields...) -- define subclass of "foo"
-
-(def-macro (def-struct tag? name . fields)
-  `(DEF-SUBSTRUCT () () 0 ,tag? ,name ,@fields))
-
-(def-macro (def-substruct sup-fields sup-tags sup-length tag? name . fields)
-
-  (define (err)
-    (error "Ill-formed `def-substruct'") #f)
-
-  (define (sym . strings)
-    (string->symbol (apply string-append strings)))
-
-  (if (symbol? name)
-    (let* ((name-str (symbol->string name))
-           (tag (sym "." name-str "."))
-           (all-tags (append sup-tags
-                             (if tag?
-                               (list (cons tag sup-length))
-                               '()))))
-      (let loop ((l1 fields)
-                 (l2 '())
-                 (l3 '())
-                 (i (+ sup-length (if tag? 1 0))))
-        (if (pair? l1)
-          (let ((rest (cdr l1)) (field (car l1)))
-            (if (symbol? field)
-              (let* ((field-str (symbol->string field))
-                     (field-ref (sym name-str "-" field-str))
-                     (field-set! (sym name-str "-" field-str "-set!")))
-                (loop rest
-                      (cons `(DEF-MACRO (,field-set! X Y)
-                               `(VECTOR-SET! ,X ,,i ,Y))
-                            (cons `(DEF-MACRO (,field-ref X)
-                                     `(VECTOR-REF ,X ,,i))
-                                  l2))
-                      (cons (cons field i) l3)
-                      (+ i 1)))
-              (err)))
-          (let ((all-fields (append sup-fields (reverse l3))))
-            `(BEGIN
-               ,@l2
-               (DEFINE ,(sym "fields-of-" name-str)
-                 ',all-fields)
-               (DEF-MACRO (,(sym "def-" name-str) TAG? NAME . FIELDS)
-                 `(DEF-SUBSTRUCT ,',all-fields ,',all-tags ,',i
-                                 ,TAG? ,NAME ,@FIELDS))
-               (DEF-MACRO (,(sym "make-constant-" name-str) . REST)
-                 (DEFINE (ADD-TAGS I TAGS LST)
-                   (COND ((NULL? TAGS)
-                          LST)
-                         ((= I (CDAR TAGS))
-                          (CONS (CAAR TAGS)
-                                (ADD-TAGS (+ I 1) (CDR TAGS) LST)))
-                         (ELSE
-                          (CONS (CAR LST)
-                                (ADD-TAGS (+ I 1) TAGS (CDR LST))))))
-                 `'#(,@(ADD-TAGS 0 ',all-tags REST)))
-               (DEF-MACRO (,(sym "make-" name-str) . REST)
-                 (DEFINE (ADD-TAGS I TAGS LST)
-                   (COND ((NULL? TAGS)
-                          LST)
-                         ((= I (CDAR TAGS))
-                          (CONS `',(CAAR TAGS)
-                                (ADD-TAGS (+ I 1) (CDR TAGS) LST)))
-                         (ELSE
-                          (CONS (CAR LST)
-                                (ADD-TAGS (+ I 1) TAGS (CDR LST))))))
-                 `(VECTOR ,@(ADD-TAGS 0 ',all-tags REST)))
-               ,@(if tag?
-                   `((DEF-MACRO (,(sym name-str "?") X)
-                       `(EQ? (VECTOR-REF ,X ,,sup-length) ',',tag)))
-                   '())
-               ',name)))))
-    (err)))
-
-; -- MATH UTILITIES -----------------------------------------------------------
-
-(define constant-pi          3.14159265358979323846)
-(define constant-minus-pi   -3.14159265358979323846)
-(define constant-pi/2        1.57079632679489661923)
-(define constant-minus-pi/2 -1.57079632679489661923)
-
-(define (math-atan2 y x)
-  (cond ((FLOAT> x 0.0)
-         (FLOATatan (FLOAT/ y x)))
-        ((FLOAT< y 0.0)
-         (if (FLOAT= x 0.0)
-           constant-minus-pi/2
-           (FLOAT+ (FLOATatan (FLOAT/ y x)) constant-minus-pi)))
-        (else
-         (if (FLOAT= x 0.0)
-           constant-pi/2
-           (FLOAT+ (FLOATatan (FLOAT/ y x)) constant-pi)))))
-
-; -- POINTS -------------------------------------------------------------------
-
-(def-struct #f pt x y z)
-
-(define (pt-sub p1 p2)
-  (make-pt (FLOAT- (pt-x p1) (pt-x p2))
-           (FLOAT- (pt-y p1) (pt-y p2))
-           (FLOAT- (pt-z p1) (pt-z p2))))
-
-(define (pt-dist p1 p2)
-  (let ((dx (FLOAT- (pt-x p1) (pt-x p2)))
-        (dy (FLOAT- (pt-y p1) (pt-y p2)))
-        (dz (FLOAT- (pt-z p1) (pt-z p2))))
-    (FLOATsqrt (FLOAT+ (FLOAT* dx dx) (FLOAT* dy dy) (FLOAT* dz dz)))))
-
-(define (pt-phi p)
-  (let* ((x (pt-x p))
-         (y (pt-y p))
-         (z (pt-z p))
-         (b (math-atan2 x z)))
-    (math-atan2 (FLOAT+ (FLOAT* (FLOATcos b) z) (FLOAT* (FLOATsin b) x)) y)))
-
-(define (pt-theta p)
-  (math-atan2 (pt-x p) (pt-z p)))
-
-; -- COORDINATE TRANSFORMATIONS -----------------------------------------------
-
-; The notation for the transformations follows "Paul, R.P. (1981) Robot
-; Manipulators.  MIT Press." with the exception that our transformation
-; matrices don't have the perspective terms and are the transpose of
-; Paul's one.  See also "M\"antyl\"a, M. (1985) An Introduction to
-; Solid Modeling, Computer Science Press" Appendix A.
-;
-; The components of a transformation matrix are named like this:
-;
-;  a  b  c
-;  d  e  f
-;  g  h  i
-; tx ty tz
-;
-; The components tx, ty, and tz are the translation vector.
-
-(def-struct #f tfo a b c d e f g h i tx ty tz)
-
-(define tfo-id  ; the identity transformation matrix
-  '#(1.0 0.0 0.0
-     0.0 1.0 0.0
-     0.0 0.0 1.0
-     0.0 0.0 0.0))
-
-; The function "tfo-apply" multiplies a transformation matrix, tfo, by a
-; point vector, p.  The result is a new point.
-
-(define (tfo-apply tfo p)
-  (let ((x (pt-x p))
-        (y (pt-y p))
-        (z (pt-z p)))
-    (make-pt
-     (FLOAT+ (FLOAT* x (tfo-a tfo)) 
-             (FLOAT* y (tfo-d tfo)) 
-             (FLOAT* z (tfo-g tfo)) 
-             (tfo-tx tfo))
-     (FLOAT+ (FLOAT* x (tfo-b tfo)) 
-             (FLOAT* y (tfo-e tfo))
-             (FLOAT* z (tfo-h tfo))
-             (tfo-ty tfo))
-     (FLOAT+ (FLOAT* x (tfo-c tfo)) 
-             (FLOAT* y (tfo-f tfo))
-             (FLOAT* z (tfo-i tfo))
-             (tfo-tz tfo)))))
-
-; The function "tfo-combine" multiplies two transformation matrices A and B.
-; The result is a new matrix which cumulates the transformations described
-; by A and B.
-
-(define (tfo-combine A B)
-  (make-tfo
-   (FLOAT+ (FLOAT* (tfo-a A) (tfo-a B))
-           (FLOAT* (tfo-b A) (tfo-d B))
-           (FLOAT* (tfo-c A) (tfo-g B)))
-   (FLOAT+ (FLOAT* (tfo-a A) (tfo-b B))
-           (FLOAT* (tfo-b A) (tfo-e B))
-           (FLOAT* (tfo-c A) (tfo-h B)))
-   (FLOAT+ (FLOAT* (tfo-a A) (tfo-c B))
-           (FLOAT* (tfo-b A) (tfo-f B))
-           (FLOAT* (tfo-c A) (tfo-i B)))
-   (FLOAT+ (FLOAT* (tfo-d A) (tfo-a B))
-           (FLOAT* (tfo-e A) (tfo-d B))
-           (FLOAT* (tfo-f A) (tfo-g B)))
-   (FLOAT+ (FLOAT* (tfo-d A) (tfo-b B))
-           (FLOAT* (tfo-e A) (tfo-e B))
-           (FLOAT* (tfo-f A) (tfo-h B)))
-   (FLOAT+ (FLOAT* (tfo-d A) (tfo-c B))
-           (FLOAT* (tfo-e A) (tfo-f B))
-           (FLOAT* (tfo-f A) (tfo-i B)))
-   (FLOAT+ (FLOAT* (tfo-g A) (tfo-a B))
-           (FLOAT* (tfo-h A) (tfo-d B))
-           (FLOAT* (tfo-i A) (tfo-g B)))
-   (FLOAT+ (FLOAT* (tfo-g A) (tfo-b B))
-           (FLOAT* (tfo-h A) (tfo-e B))
-           (FLOAT* (tfo-i A) (tfo-h B)))
-   (FLOAT+ (FLOAT* (tfo-g A) (tfo-c B))
-           (FLOAT* (tfo-h A) (tfo-f B))
-           (FLOAT* (tfo-i A) (tfo-i B)))
-   (FLOAT+ (FLOAT* (tfo-tx A) (tfo-a B))
-           (FLOAT* (tfo-ty A) (tfo-d B))
-           (FLOAT* (tfo-tz A) (tfo-g B))
-           (tfo-tx B))
-   (FLOAT+ (FLOAT* (tfo-tx A) (tfo-b B))
-           (FLOAT* (tfo-ty A) (tfo-e B))
-           (FLOAT* (tfo-tz A) (tfo-h B))
-           (tfo-ty B))
-   (FLOAT+ (FLOAT* (tfo-tx A) (tfo-c B))
-           (FLOAT* (tfo-ty A) (tfo-f B))
-           (FLOAT* (tfo-tz A) (tfo-i B))
-           (tfo-tz B))))
-
-; The function "tfo-inv-ortho" computes the inverse of a homogeneous
-; transformation matrix.
-
-(define (tfo-inv-ortho tfo)
-  (let* ((tx (tfo-tx tfo))
-         (ty (tfo-ty tfo))
-         (tz (tfo-tz tfo)))
-    (make-tfo
-     (tfo-a tfo) (tfo-d tfo) (tfo-g tfo)
-     (tfo-b tfo) (tfo-e tfo) (tfo-h tfo)
-     (tfo-c tfo) (tfo-f tfo) (tfo-i tfo)
-     (FLOAT- (FLOAT+ (FLOAT* (tfo-a tfo) tx)
-                     (FLOAT* (tfo-b tfo) ty)
-                     (FLOAT* (tfo-c tfo) tz)))
-     (FLOAT- (FLOAT+ (FLOAT* (tfo-d tfo) tx)
-                     (FLOAT* (tfo-e tfo) ty)
-                     (FLOAT* (tfo-f tfo) tz)))
-     (FLOAT- (FLOAT+ (FLOAT* (tfo-g tfo) tx)
-                     (FLOAT* (tfo-h tfo) ty)
-                     (FLOAT* (tfo-i tfo) tz))))))
-
-; Given three points p1, p2, and p3, the function "tfo-align" computes
-; a transformation matrix such that point p1 gets mapped to (0,0,0), p2 gets
-; mapped to the Y axis and p3 gets mapped to the YZ plane.
-
-(define (tfo-align p1 p2 p3)
-  (let* ((x1 (pt-x p1))       (y1 (pt-y p1))       (z1 (pt-z p1))
-         (x3 (pt-x p3))       (y3 (pt-y p3))       (z3 (pt-z p3))
-         (x31 (FLOAT- x3 x1)) (y31 (FLOAT- y3 y1)) (z31 (FLOAT- z3 z1))
-         (rotpY (pt-sub p2 p1))
-         (Phi (pt-phi rotpY))
-         (Theta (pt-theta rotpY))
-         (sinP (FLOATsin Phi))
-         (sinT (FLOATsin Theta))
-         (cosP (FLOATcos Phi))
-         (cosT (FLOATcos Theta))
-         (sinPsinT (FLOAT* sinP sinT))
-         (sinPcosT (FLOAT* sinP cosT))
-         (cosPsinT (FLOAT* cosP sinT))
-         (cosPcosT (FLOAT* cosP cosT))
-         (rotpZ 
-          (make-pt 
-           (FLOAT- (FLOAT* cosT x31)
-                   (FLOAT* sinT z31))
-           (FLOAT+ (FLOAT* sinPsinT x31)
-                   (FLOAT* cosP y31)
-                   (FLOAT* sinPcosT z31))
-           (FLOAT+ (FLOAT* cosPsinT x31)
-                   (FLOAT- (FLOAT* sinP y31))
-                   (FLOAT* cosPcosT z31))))
-         (Rho (pt-theta rotpZ))
-         (cosR (FLOATcos Rho))
-         (sinR (FLOATsin Rho))
-         (x (FLOAT+ (FLOAT- (FLOAT* x1 cosT))
-                    (FLOAT* z1 sinT)))
-         (y (FLOAT- (FLOAT- (FLOAT- (FLOAT* x1 sinPsinT))
-                            (FLOAT* y1 cosP))
-                    (FLOAT* z1 sinPcosT)))
-         (z (FLOAT- (FLOAT+ (FLOAT- (FLOAT* x1 cosPsinT))
-                            (FLOAT* y1 sinP))
-                    (FLOAT* z1 cosPcosT))))
-    (make-tfo
-     (FLOAT- (FLOAT* cosT cosR) (FLOAT* cosPsinT sinR))
-     sinPsinT
-     (FLOAT+ (FLOAT* cosT sinR) (FLOAT* cosPsinT cosR))
-     (FLOAT* sinP sinR)
-     cosP
-     (FLOAT- (FLOAT* sinP cosR))
-     (FLOAT- (FLOAT- (FLOAT* sinT cosR)) (FLOAT* cosPcosT sinR))
-     sinPcosT
-     (FLOAT+ (FLOAT- (FLOAT* sinT sinR)) (FLOAT* cosPcosT cosR))
-     (FLOAT- (FLOAT* x cosR) (FLOAT* z sinR))
-     y
-     (FLOAT+ (FLOAT* x sinR) (FLOAT* z cosR)))))
-
-; -- NUCLEIC ACID CONFORMATIONS DATA BASE -------------------------------------
-
-; Numbering of atoms follows the paper:
-;
-; IUPAC-IUB Joint Commission on Biochemical Nomenclature (JCBN)
-; (1983) Abbreviations and Symbols for the Description of
-; Conformations of Polynucleotide Chains.  Eur. J. Biochem 131,
-; 9-15.
-;
-; In the atom names, we have used "*" instead of "'".
-
-; Define part common to all 4 nucleotide types.
-
-(def-struct #f nuc
-  dgf-base-tfo  ; defines the standard position for wc and wc-dumas
-  P-O3*-275-tfo ; defines the standard position for the connect function
-  P-O3*-180-tfo
-  P-O3*-60-tfo
-  P O1P O2P O5* C5* H5* H5** C4* H4* O4* C1* H1* C2* H2** O2* H2* C3*
-  H3* O3* N1 N3 C2 C4 C5 C6)
-
-; Define remaining atoms for each nucleotide type.
-
-(def-nuc #t rA N6 N7 N9 C8 H2 H61 H62 H8)
-(def-nuc #t rC N4 O2 H41 H42 H5 H6)
-(def-nuc #t rG N2 N7 N9 C8 O6 H1 H21 H22 H8)
-(def-nuc #t rU O2 O4 H3 H5 H6)
-
-; Database of nucleotide conformations:
-
-(define rA
-  (make-constant-rA
-    #( -0.0018  -0.8207   0.5714  ; dgf-base-tfo
-        0.2679  -0.5509  -0.7904
-        0.9634   0.1517   0.2209
-        0.0073   8.4030   0.6232)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  5.4550   8.2120  -2.8810) ; C5* 
-    #(  5.4546   8.8508  -1.9978) ; H5* 
-    #(  5.7588   8.6625  -3.8259) ; H5**
-    #(  6.4970   7.1480  -2.5980) ; C4* 
-    #(  7.4896   7.5919  -2.5214) ; H4* 
-    #(  6.1630   6.4860  -1.3440) ; O4* 
-    #(  6.5400   5.1200  -1.4190) ; C1* 
-    #(  7.2763   4.9681  -0.6297) ; H1* 
-    #(  7.1940   4.8830  -2.7770) ; C2* 
-    #(  6.8667   3.9183  -3.1647) ; H2**
-    #(  8.5860   5.0910  -2.6140) ; O2* 
-    #(  8.9510   4.7626  -1.7890) ; H2* 
-    #(  6.5720   6.0040  -3.6090) ; C3* 
-    #(  5.5636   5.7066  -3.8966) ; H3* 
-    #(  7.3801   6.3562  -4.7350) ; O3* 
-    #(  4.7150   0.4910  -0.1360) ; N1  
-    #(  6.3490   2.1730  -0.6020) ; N3  
-    #(  5.9530   0.9650  -0.2670) ; C2  
-    #(  5.2900   2.9790  -0.8260) ; C4  
-    #(  3.9720   2.6390  -0.7330) ; C5  
-    #(  3.6770   1.3160  -0.3660) ; C6  
-    #(  2.4280   0.8450  -0.2360) ; N6  
-    #(  3.1660   3.7290  -1.0360) ; N7  
-    #(  5.3170   4.2990  -1.1930) ; N9  
-    #(  4.0100   4.6780  -1.2990) ; C8  
-    #(  6.6890   0.1903  -0.0518) ; H2  
-    #(  1.6470   1.4460  -0.4040) ; H61 
-    #(  2.2780  -0.1080  -0.0280) ; H62 
-    #(  3.4421   5.5744  -1.5482) ; H8  
-  ))
-
-(define rA01
-  (make-constant-rA
-    #( -0.0043  -0.8175   0.5759  ; dgf-base-tfo
-        0.2617  -0.5567  -0.7884
-        0.9651   0.1473   0.2164
-        0.0359   8.3929   0.5532)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  5.4352   8.2183  -2.7757) ; C5* 
-    #(  5.3830   8.7883  -1.8481) ; H5* 
-    #(  5.7729   8.7436  -3.6691) ; H5**
-    #(  6.4830   7.1518  -2.5252) ; C4* 
-    #(  7.4749   7.5972  -2.4482) ; H4* 
-    #(  6.1626   6.4620  -1.2827) ; O4* 
-    #(  6.5431   5.0992  -1.3905) ; C1* 
-    #(  7.2871   4.9328  -0.6114) ; H1* 
-    #(  7.1852   4.8935  -2.7592) ; C2* 
-    #(  6.8573   3.9363  -3.1645) ; H2**
-    #(  8.5780   5.1025  -2.6046) ; O2* 
-    #(  8.9516   4.7577  -1.7902) ; H2* 
-    #(  6.5522   6.0300  -3.5612) ; C3* 
-    #(  5.5420   5.7356  -3.8459) ; H3* 
-    #(  7.3487   6.4089  -4.6867) ; O3* 
-    #(  4.7442   0.4514  -0.1390) ; N1  
-    #(  6.3687   2.1459  -0.5926) ; N3  
-    #(  5.9795   0.9335  -0.2657) ; C2  
-    #(  5.3052   2.9471  -0.8125) ; C4  
-    #(  3.9891   2.5987  -0.7230) ; C5  
-    #(  3.7016   1.2717  -0.3647) ; C6  
-    #(  2.4553   0.7925  -0.2390) ; N6  
-    #(  3.1770   3.6859  -1.0198) ; N7  
-    #(  5.3247   4.2695  -1.1710) ; N9  
-    #(  4.0156   4.6415  -1.2759) ; C8  
-    #(  6.7198   0.1618  -0.0547) ; H2  
-    #(  1.6709   1.3900  -0.4039) ; H61 
-    #(  2.3107  -0.1627  -0.0373) ; H62 
-    #(  3.4426   5.5361  -1.5199) ; H8  
-  ))
-
-(define rA02
-  (make-constant-rA
-    #(  0.5566   0.0449   0.8296  ; dgf-base-tfo
-        0.5125   0.7673  -0.3854
-       -0.6538   0.6397   0.4041
-       -9.1161  -3.7679  -2.9968)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  4.5778   6.6594  -4.0364) ; C5* 
-    #(  4.9220   7.1963  -4.9204) ; H5* 
-    #(  3.7996   5.9091  -4.1764) ; H5**
-    #(  5.7873   5.8869  -3.5482) ; C4* 
-    #(  6.0405   5.0875  -4.2446) ; H4* 
-    #(  6.9135   6.8036  -3.4310) ; O4* 
-    #(  7.7293   6.4084  -2.3392) ; C1* 
-    #(  8.7078   6.1815  -2.7624) ; H1* 
-    #(  7.1305   5.1418  -1.7347) ; C2* 
-    #(  7.2040   5.1982  -0.6486) ; H2**
-    #(  7.7417   4.0392  -2.3813) ; O2* 
-    #(  8.6785   4.1443  -2.5630) ; H2* 
-    #(  5.6666   5.2728  -2.1536) ; C3* 
-    #(  5.1747   5.9805  -1.4863) ; H3* 
-    #(  4.9997   4.0086  -2.1973) ; O3* 
-    #( 10.3245   8.5459   1.5467) ; N1  
-    #(  9.8051   6.9432  -0.1497) ; N3  
-    #( 10.5175   7.4328   0.8408) ; C2  
-    #(  8.7523   7.7422  -0.4228) ; C4  
-    #(  8.4257   8.9060   0.2099) ; C5  
-    #(  9.2665   9.3242   1.2540) ; C6  
-    #(  9.0664  10.4462   1.9610) ; N6  
-    #(  7.2750   9.4537  -0.3428) ; N7  
-    #(  7.7962   7.5519  -1.3859) ; N9  
-    #(  6.9479   8.6157  -1.2771) ; C8  
-    #( 11.4063   6.9047   1.1859) ; H2  
-    #(  8.2845  11.0341   1.7552) ; H61 
-    #(  9.6584  10.6647   2.7198) ; H62 
-    #(  6.0430   8.9853  -1.7594) ; H8  
-  ))
-
-(define rA03
-  (make-constant-rA
-    #( -0.5021   0.0731   0.8617  ; dgf-base-tfo
-       -0.8112   0.3054  -0.4986
-       -0.2996  -0.9494  -0.0940
-        6.4273  -5.1944  -3.7807)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  4.1214   6.7116  -1.9049) ; C5* 
-    #(  3.3465   5.9610  -2.0607) ; H5* 
-    #(  4.0789   7.2928  -0.9837) ; H5**
-    #(  5.4170   5.9293  -1.8186) ; C4* 
-    #(  5.4506   5.3400  -0.9023) ; H4* 
-    #(  5.5067   5.0417  -2.9703) ; O4* 
-    #(  6.8650   4.9152  -3.3612) ; C1* 
-    #(  7.1090   3.8577  -3.2603) ; H1* 
-    #(  7.7152   5.7282  -2.3894) ; C2* 
-    #(  8.5029   6.2356  -2.9463) ; H2**
-    #(  8.1036   4.8568  -1.3419) ; O2* 
-    #(  8.3270   3.9651  -1.6184) ; H2* 
-    #(  6.7003   6.7565  -1.8911) ; C3* 
-    #(  6.5898   7.5329  -2.6482) ; H3* 
-    #(  7.0505   7.2878  -0.6105) ; O3* 
-    #(  9.6740   4.7656  -7.6614) ; N1  
-    #(  9.0739   4.3013  -5.3941) ; N3  
-    #(  9.8416   4.2192  -6.4581) ; C2  
-    #(  7.9885   5.0632  -5.6446) ; C4  
-    #(  7.6822   5.6856  -6.8194) ; C5  
-    #(  8.5831   5.5215  -7.8840) ; C6  
-    #(  8.4084   6.0747  -9.0933) ; N6  
-    #(  6.4857   6.3816  -6.7035) ; N7  
-    #(  6.9740   5.3703  -4.7760) ; N9  
-    #(  6.1133   6.1613  -5.4808) ; C8  
-    #( 10.7627   3.6375  -6.4220) ; H2  
-    #(  7.6031   6.6390  -9.2733) ; H61 
-    #(  9.1004   5.9708  -9.7893) ; H62 
-    #(  5.1705   6.6830  -5.3167) ; H8  
-  ))
-
-(define rA04
-  (make-constant-rA
-    #( -0.5426  -0.8175   0.1929  ; dgf-base-tfo
-        0.8304  -0.5567  -0.0237
-        0.1267   0.1473   0.9809
-       -0.5075   8.3929   0.2229)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  5.4352   8.2183  -2.7757) ; C5* 
-    #(  5.3830   8.7883  -1.8481) ; H5* 
-    #(  5.7729   8.7436  -3.6691) ; H5**
-    #(  6.4830   7.1518  -2.5252) ; C4* 
-    #(  7.4749   7.5972  -2.4482) ; H4* 
-    #(  6.1626   6.4620  -1.2827) ; O4* 
-    #(  6.5431   5.0992  -1.3905) ; C1* 
-    #(  7.2871   4.9328  -0.6114) ; H1* 
-    #(  7.1852   4.8935  -2.7592) ; C2* 
-    #(  6.8573   3.9363  -3.1645) ; H2**
-    #(  8.5780   5.1025  -2.6046) ; O2* 
-    #(  8.9516   4.7577  -1.7902) ; H2* 
-    #(  6.5522   6.0300  -3.5612) ; C3* 
-    #(  5.5420   5.7356  -3.8459) ; H3* 
-    #(  7.3487   6.4089  -4.6867) ; O3* 
-    #(  3.6343   2.6680   2.0783) ; N1  
-    #(  5.4505   3.9805   1.2446) ; N3  
-    #(  4.7540   3.3816   2.1851) ; C2  
-    #(  4.8805   3.7951   0.0354) ; C4  
-    #(  3.7416   3.0925  -0.2305) ; C5  
-    #(  3.0873   2.4980   0.8606) ; C6  
-    #(  1.9600   1.7805   0.7462) ; N6  
-    #(  3.4605   3.1184  -1.5906) ; N7  
-    #(  5.3247   4.2695  -1.1710) ; N9  
-    #(  4.4244   3.8244  -2.0953) ; C8  
-    #(  5.0814   3.4352   3.2234) ; H2  
-    #(  1.5423   1.6454  -0.1520) ; H61 
-    #(  1.5716   1.3398   1.5392) ; H62 
-    #(  4.2675   3.8876  -3.1721) ; H8  
-  ))
-
-(define rA05
-  (make-constant-rA
-    #( -0.5891   0.0449   0.8068  ; dgf-base-tfo
-        0.5375   0.7673   0.3498
-       -0.6034   0.6397  -0.4762
-       -0.3019  -3.7679  -9.5913)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  4.5778   6.6594  -4.0364) ; C5* 
-    #(  4.9220   7.1963  -4.9204) ; H5* 
-    #(  3.7996   5.9091  -4.1764) ; H5**
-    #(  5.7873   5.8869  -3.5482) ; C4* 
-    #(  6.0405   5.0875  -4.2446) ; H4* 
-    #(  6.9135   6.8036  -3.4310) ; O4* 
-    #(  7.7293   6.4084  -2.3392) ; C1* 
-    #(  8.7078   6.1815  -2.7624) ; H1* 
-    #(  7.1305   5.1418  -1.7347) ; C2* 
-    #(  7.2040   5.1982  -0.6486) ; H2**
-    #(  7.7417   4.0392  -2.3813) ; O2* 
-    #(  8.6785   4.1443  -2.5630) ; H2* 
-    #(  5.6666   5.2728  -2.1536) ; C3* 
-    #(  5.1747   5.9805  -1.4863) ; H3* 
-    #(  4.9997   4.0086  -2.1973) ; O3* 
-    #( 10.2594  10.6774  -1.0056) ; N1  
-    #(  9.7528   8.7080  -2.2631) ; N3  
-    #( 10.4471   9.7876  -1.9791) ; C2  
-    #(  8.7271   8.5575  -1.3991) ; C4  
-    #(  8.4100   9.3803  -0.3580) ; C5  
-    #(  9.2294  10.5030  -0.1574) ; C6  
-    #(  9.0349  11.3951   0.8250) ; N6  
-    #(  7.2891   8.9068   0.3121) ; N7  
-    #(  7.7962   7.5519  -1.3859) ; N9  
-    #(  6.9702   7.8292  -0.3353) ; C8  
-    #( 11.3132  10.0537  -2.5851) ; H2  
-    #(  8.2741  11.2784   1.4629) ; H61 
-    #(  9.6733  12.1368   0.9529) ; H62 
-    #(  6.0888   7.3990   0.1403) ; H8  
-  ))
-
-(define rA06
-  (make-constant-rA
-    #( -0.9815   0.0731  -0.1772  ; dgf-base-tfo
-        0.1912   0.3054  -0.9328
-       -0.0141  -0.9494  -0.3137
-        5.7506  -5.1944   4.7470)
-    #( -0.8143  -0.5091  -0.2788  ; P-O3*-275-tfo
-       -0.0433  -0.4257   0.9038
-       -0.5788   0.7480   0.3246
-        1.5227   6.9114  -7.0765)
-    #(  0.3822  -0.7477   0.5430  ; P-O3*-180-tfo
-        0.4552   0.6637   0.5935
-       -0.8042   0.0203   0.5941
-       -6.9472  -4.1186  -5.9108)
-    #(  0.5640   0.8007  -0.2022  ; P-O3*-60-tfo
-       -0.8247   0.5587  -0.0878
-        0.0426   0.2162   0.9754
-        6.2694  -7.0540   3.3316)
-    #(  2.8930   8.5380  -3.3280) ; P   
-    #(  1.6980   7.6960  -3.5570) ; O1P 
-    #(  3.2260   9.5010  -4.4020) ; O2P 
-    #(  4.1590   7.6040  -3.0340) ; O5* 
-    #(  4.1214   6.7116  -1.9049) ; C5* 
-    #(  3.3465   5.9610  -2.0607) ; H5* 
-    #(  4.0789   7.2928  -0.9837) ; H5**
-    #(  5.4170   5.9293  -1.8186) ; C4* 
-    #(  5.4506   5.3400  -0.9023) ; H4* 
-    #(  5.5067   5.0417  -2.9703) ; O4* 
-    #(  6.8650   4.9152  -3.3612) ; C1* 
-    #(  7.1090   3.8577  -3.2603) ; H1* 
-    #(  7.7152   5.7282  -2.3894) ; C2* 
-    #(  8.5029   6.2356  -2.9463) ; H2**
-    #(  8.1036   4.8568  -1.3419) ; O2* 
-    #(  8.3270   3.9651  -1.6184) ; H2* 
-    #(  6.7003   6.7565  -1.8911) ; C3* 
-    #(  6.5898   7.5329  -2.6482) ; H3* 
-    #(  7.0505   7.2878  -0.6105) ; O3* 
-    #(  6.6624   3.5061  -8.2986) ; N1  
-    #(  6.5810   3.2570  -5.9221) ; N3  
-    #(  6.5151   2.8263  -7.1625) ; C2  
-    #(  6.8364   4.5817  -5.8882) ; C4  
-    #(  7.0116   5.4064  -6.9609) ; C5  
-    #(  6.9173   4.8260  -8.2361) ; C6  
-    #(  7.0668   5.5163  -9.3763) ; N6  
-    #(  7.2573   6.7070  -6.5394) ; N7  
-    #(  6.9740   5.3703  -4.7760) ; N9  
-    #(  7.2238   6.6275  -5.2453) ; C8  
-    #(  6.3146   1.7741  -7.3641) ; H2  
-    #(  7.2568   6.4972  -9.3456) ; H61 
-    #(  7.0437   5.0478 -10.2446) ; H62 
-    #(  7.4108   7.6227  -4.8418) ; H8  
-  ))
-
-(define rA07
-  (make-constant-rA
-    #(  0.2379   0.1310  -0.9624  ; dgf-base-tfo
-       -0.5876  -0.7696  -0.2499
-       -0.7734   0.6249  -0.1061
-       30.9870 -26.9344  42.6416)
-    #(  0.7529   0.1548   0.6397  ; P-O3*-275-tfo
-        0.2952  -0.9481  -0.1180
-        0.5882   0.2777  -0.7595
-      -58.8919 -11.3095   6.0866)
-    #( -0.0239   0.9667  -0.2546  ; P-O3*-180-tfo
-        0.9731  -0.0359  -0.2275
-       -0.2290  -0.2532  -0.9399
-        3.5401 -29.7913  52.2796)
-    #( -0.8912  -0.4531   0.0242  ; P-O3*-60-tfo
-       -0.1183   0.1805  -0.9764
-        0.4380  -0.8730  -0.2145
-       19.9023  54.8054  15.2799)
-    #( 41.8210   8.3880  43.5890) ; P   
-    #( 42.5400   8.0450  44.8330) ; O1P 
-    #( 42.2470   9.6920  42.9910) ; O2P 
-    #( 40.2550   8.2030  43.7340) ; O5* 
-    #( 39.3505   8.4697  42.6565) ; C5* 
-    #( 39.1377   7.5433  42.1230) ; H5* 
-    #( 39.7203   9.3119  42.0717) ; H5**
-    #( 38.0405   8.9195  43.2869) ; C4* 
-    #( 37.3687   9.3036  42.5193) ; H4* 
-    #( 37.4319   7.8146  43.9387) ; O4* 
-    #( 37.1959   8.1354  45.3237) ; C1* 
-    #( 36.1788   8.5202  45.3970) ; H1* 
-    #( 38.1721   9.2328  45.6504) ; C2* 
-    #( 39.1555   8.7939  45.8188) ; H2**
-    #( 37.7862  10.0617  46.7013) ; O2* 
-    #( 37.3087   9.6229  47.4092) ; H2* 
-    #( 38.1844  10.0268  44.3367) ; C3* 
-    #( 39.1578  10.5054  44.2289) ; H3* 
-    #( 37.0547  10.9127  44.3441) ; O3* 
-    #( 34.8811   4.2072  47.5784) ; N1  
-    #( 35.1084   6.1336  46.1818) ; N3  
-    #( 34.4108   5.1360  46.7207) ; C2  
-    #( 36.3908   6.1224  46.6053) ; C4  
-    #( 36.9819   5.2334  47.4697) ; C5  
-    #( 36.1786   4.1985  48.0035) ; C6  
-    #( 36.6103   3.2749  48.8452) ; N6  
-    #( 38.3236   5.5522  47.6595) ; N7  
-    #( 37.3887   7.0024  46.2437) ; N9  
-    #( 38.5055   6.6096  46.9057) ; C8  
-    #( 33.3553   5.0152  46.4771) ; H2  
-    #( 37.5730   3.2804  49.1507) ; H61 
-    #( 35.9775   2.5638  49.1828) ; H62 
-    #( 39.5461   6.9184  47.0041) ; H8  
-  ))
-
-(define rA08
-  (make-constant-rA
-    #(  0.1084  -0.0895  -0.9901  ; dgf-base-tfo
-        0.9789  -0.1638   0.1220
-       -0.1731  -0.9824   0.0698
-       -2.9039  47.2655  33.0094)
-    #(  0.7529   0.1548   0.6397  ; P-O3*-275-tfo
-        0.2952  -0.9481  -0.1180
-        0.5882   0.2777  -0.7595
-      -58.8919 -11.3095   6.0866)
-    #( -0.0239   0.9667  -0.2546  ; P-O3*-180-tfo
-        0.9731  -0.0359  -0.2275
-       -0.2290  -0.2532  -0.9399
-        3.5401 -29.7913  52.2796)
-    #( -0.8912  -0.4531   0.0242  ; P-O3*-60-tfo
-       -0.1183   0.1805  -0.9764
-        0.4380  -0.8730  -0.2145
-       19.9023  54.8054  15.2799)
-    #( 41.8210   8.3880  43.5890) ; P   
-    #( 42.5400   8.0450  44.8330) ; O1P 
-    #( 42.2470   9.6920  42.9910) ; O2P 
-    #( 40.2550   8.2030  43.7340) ; O5* 
-    #( 39.4850   8.9301  44.6977) ; C5* 
-    #( 39.0638   9.8199  44.2296) ; H5* 
-    #( 40.0757   9.0713  45.6029) ; H5**
-    #( 38.3102   8.0414  45.0789) ; C4* 
-    #( 37.7842   8.4637  45.9351) ; H4* 
-    #( 37.4200   7.9453  43.9769) ; O4* 
-    #( 37.2249   6.5609  43.6273) ; C1* 
-    #( 36.3360   6.2168  44.1561) ; H1* 
-    #( 38.4347   5.8414  44.1590) ; C2* 
-    #( 39.2688   5.9974  43.4749) ; H2**
-    #( 38.2344   4.4907  44.4348) ; O2* 
-    #( 37.6374   4.0386  43.8341) ; H2* 
-    #( 38.6926   6.6079  45.4637) ; C3* 
-    #( 39.7585   6.5640  45.6877) ; H3* 
-    #( 37.8238   6.0705  46.4723) ; O3* 
-    #( 33.9162   6.2598  39.7758) ; N1  
-    #( 34.6709   6.5759  42.0215) ; N3  
-    #( 33.7257   6.5186  41.0858) ; C2  
-    #( 35.8935   6.3324  41.5018) ; C4  
-    #( 36.2105   6.0601  40.1932) ; C5  
-    #( 35.1538   6.0151  39.2537) ; C6  
-    #( 35.3088   5.7642  37.9649) ; N6  
-    #( 37.5818   5.8677  40.0507) ; N7  
-    #( 37.0932   6.3197  42.1810) ; N9  
-    #( 38.0509   6.0354  41.2635) ; C8  
-    #( 32.6830   6.6898  41.3532) ; H2  
-    #( 36.2305   5.5855  37.5925) ; H61 
-    #( 34.5056   5.7512  37.3528) ; H62 
-    #( 39.1318   5.8993  41.2285) ; H8  
-  ))
-
-(define rA09
-  (make-constant-rA
-    #(  0.8467   0.4166  -0.3311  ; dgf-base-tfo
-       -0.3962   0.9089   0.1303
-        0.3552   0.0209   0.9346
-      -42.7319 -26.6223 -29.8163)
-    #(  0.7529   0.1548   0.6397  ; P-O3*-275-tfo
-        0.2952  -0.9481  -0.1180
-        0.5882   0.2777  -0.7595
-      -58.8919 -11.3095   6.0866)
-    #( -0.0239   0.9667  -0.2546  ; P-O3*-180-tfo
-        0.9731  -0.0359  -0.2275
-       -0.2290  -0.2532  -0.9399
-        3.5401 -29.7913  52.2796)
-    #( -0.8912  -0.4531   0.0242  ; P-O3*-60-tfo
-       -0.1183   0.1805  -0.9764
-        0.4380  -0.8730  -0.2145
-       19.9023  54.8054  15.2799)
-    #( 41.8210   8.3880  43.5890) ; P   
-    #( 42.5400   8.0450  44.8330) ; O1P 
-    #( 42.2470   9.6920  42.9910) ; O2P 
-    #( 40.2550   8.2030  43.7340) ; O5* 
-    #( 39.3505   8.4697  42.6565) ; C5* 
-    #( 39.1377   7.5433  42.1230) ; H5* 
-    #( 39.7203   9.3119  42.0717) ; H5**
-    #( 38.0405   8.9195  43.2869) ; C4* 
-    #( 37.6479   8.1347  43.9335) ; H4* 
-    #( 38.2691  10.0933  44.0524) ; O4* 
-    #( 37.3999  11.1488  43.5973) ; C1* 
-    #( 36.5061  11.1221  44.2206) ; H1* 
-    #( 37.0364  10.7838  42.1836) ; C2* 
-    #( 37.8636  11.0489  41.5252) ; H2**
-    #( 35.8275  11.3133  41.7379) ; O2* 
-    #( 35.6214  12.1896  42.0714) ; H2* 
-    #( 36.9316   9.2556  42.2837) ; C3* 
-    #( 37.1778   8.8260  41.3127) ; H3* 
-    #( 35.6285   8.9334  42.7926) ; O3* 
-    #( 38.1482  15.2833  46.4641) ; N1  
-    #( 37.3641  13.0968  45.9007) ; N3  
-    #( 37.5032  14.1288  46.7300) ; C2  
-    #( 37.9570  13.3377  44.7113) ; C4  
-    #( 38.6397  14.4660  44.3267) ; C5  
-    #( 38.7473  15.5229  45.2609) ; C6  
-    #( 39.3720  16.6649  45.0297) ; N6  
-    #( 39.1079  14.3351  43.0223) ; N7  
-    #( 38.0132  12.4868  43.6280) ; N9  
-    #( 38.7058  13.1402  42.6620) ; C8  
-    #( 37.0731  14.0857  47.7306) ; H2  
-    #( 39.8113  16.8281  44.1350) ; H61 
-    #( 39.4100  17.3741  45.7478) ; H62 
-    #( 39.0412  12.9660  41.6397) ; H8  
-  ))
-
-(define rA10
-  (make-constant-rA
-    #(  0.7063   0.6317  -0.3196  ; dgf-base-tfo
-       -0.0403  -0.4149  -0.9090
-       -0.7068   0.6549  -0.2676
-        6.4402 -52.1496  30.8246)
-    #(  0.7529   0.1548   0.6397  ; P-O3*-275-tfo
-        0.2952  -0.9481  -0.1180
-        0.5882   0.2777  -0.7595
-      -58.8919 -11.3095   6.0866)
-    #( -0.0239   0.9667  -0.2546  ; P-O3*-180-tfo
-        0.9731  -0.0359  -0.2275
-       -0.2290  -0.2532  -0.9399
-        3.5401 -29.7913  52.2796)
-    #( -0.8912  -0.4531   0.0242  ; P-O3*-60-tfo
-       -0.1183   0.1805  -0.9764
-        0.4380  -0.8730  -0.2145
-       19.9023  54.8054  15.2799)
-    #( 41.8210   8.3880  43.5890) ; P   
-    #( 42.5400   8.0450  44.8330) ; O1P 
-    #( 42.2470   9.6920  42.9910) ; O2P 
-    #( 40.2550   8.2030  43.7340) ; O5* 
-    #( 39.4850   8.9301  44.6977) ; C5* 
-    #( 39.0638   9.8199  44.2296) ; H5* 
-    #( 40.0757   9.0713  45.6029) ; H5**
-    #( 38.3102   8.0414  45.0789) ; C4* 
-    #( 37.7099   7.8166  44.1973) ; H4* 
-    #( 38.8012   6.8321  45.6380) ; O4* 
-    #( 38.2431   6.6413  46.9529) ; C1* 
-    #( 37.3505   6.0262  46.8385) ; H1* 
-    #( 37.8484   8.0156  47.4214) ; C2* 
-    #( 38.7381   8.5406  47.7690) ; H2**
-    #( 36.8286   8.0368  48.3701) ; O2* 
-    #( 36.8392   7.3063  48.9929) ; H2* 
-    #( 37.3576   8.6512  46.1132) ; C3* 
-    #( 37.5207   9.7275  46.1671) ; H3* 
-    #( 35.9985   8.2392  45.9032) ; O3* 
-    #( 39.9117   2.2278  48.8527) ; N1  
-    #( 38.6207   3.6941  47.4757) ; N3  
-    #( 38.9872   2.4888  47.9057) ; C2  
-    #( 39.2961   4.6720  48.1174) ; C4  
-    #( 40.2546   4.5307  49.0912) ; C5  
-    #( 40.5932   3.2189  49.4985) ; C6  
-    #( 41.4938   2.9317  50.4229) ; N6  
-    #( 40.7195   5.7755  49.5060) ; N7  
-    #( 39.1730   6.0305  47.9170) ; N9  
-    #( 40.0413   6.6250  48.7728) ; C8  
-    #( 38.5257   1.5960  47.4838) ; H2  
-    #