Changeset 649 in Sophya for trunk/Poubelle/archediab.old/archediab.sources/c/corel.c

Timestamp:

Nov 25, 1999, 2:56:34 PM (26 years ago)

Author:

ansari

Message:

archediab 28 vol

File:

• trunk/Poubelle/archediab.old/archediab.sources/c/corel.c (modified) (2 diffs)

trunk/Poubelle/archediab.old/archediab.sources/c/corel.c

@@ -2 +2 @@
 #include "corel.h" 
 
-
+/*
 double coef_corel[nb_max_bolo][nb_max_bolo];
 int flag_corel[nb_max_bolo];
-
+*/
 
 
@@ -30 +30 @@
         {
         for(j=0;j<nb_max_bolo;j++)      gg->corel[j]=xbolbrut(j);
+        for(j=0;j<3;j++)                gg->corel[nb_max_bolo+j]=gg->don.gyro[j];
+        for(j=0;j<46;j++)               gg->corel[nb_max_bolo+3+j]=xbolbrut(j);
         }