ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/freemol/branches/sync4pymol12/src/mengine/src/kangle.c
(Generate patch)
# Line 12 | Line 12
12   int is_ring53(int, int, int);
13   int is_ring63(int, int, int);
14   int is_delocalbond(int, int);
15 int is_TS(int, int, int);
15   int isbond(int,int);
16   int find_bond(int,int);
18 void ts_four(int *, float *, float *,char *, char *,char *,char *);
17   long ipack(int ,int ,int ,int);
18   long kang(int,int,int);
19   void numeral(int,char *,int);
# Line 37 | Line 35
35          float condel4[MAXANG4DEL], angdel4[MAXANG4DEL][3];      
36           } angk1;
37  
40 EXTERN struct t_angkp1 {
41        int  npiang;
42        char kpa[MAXPIANGCONST][10];
43        float pacon[MAXPIANGCONST], panat[MAXPIANGCONST][3], piobp[MAXPIANGCONST];
44        } angkp1;
45
46 EXTERN  struct t_angf {
47        int use_angf, nfang;
48        char kftype[MAXANGCONST][10];
49        float fcon[MAXANGCONST],fc0[MAXANGCONST],fc1[MAXANGCONST],fc2[MAXANGCONST];
50        float fc3[MAXANGCONST],fc4[MAXANGCONST],fc5[MAXANGCONST],fc6[MAXANGCONST];
51        } angf;
52        
38   EXTERN int Missing_constants;
39  
40   void kangle()
41   {
57    long int pi_mask, aromatic_mask;
42      int i, j, k, izero, ierr, nh, nRc, nligand, jji;
43      int ia, ib, ic, ie;
44      int iaa, ibb, icc;
# Line 64 | Line 48
48      char zero[4];
49      float bkan, at;
50  
67    pi_mask = (1L << PI_MASK);
68    aromatic_mask = (1 << AROMATIC_MASK);
69
51          if( angles.nang != 0 )
52          {
53             for( i = 0; i < angles.nang; i++ )
# Line 375 | Line 356
356                          goto L_10;
357                     }
358                  }
378 // look for fourier angles
379                if (angf.nfang > 0)
380                {
381                    for (j=0; j < angf.nfang; j++)
382                    {
383                        if (strcmp(angf.kftype[j],pt) == 0)
384                        {
385                            angles.fcon[i] = angf.fcon[j];
386                            angles.c0[i] = angf.fc0[j];
387                            angles.c1[i] = angf.fc1[j];
388                            angles.c2[i] = angf.fc2[j];
389                            angles.c3[i] = angf.fc3[j];
390                            angles.c4[i] = angf.fc4[j];
391                            angles.c5[i] = angf.fc5[j];
392                            angles.c6[i] = angf.fc6[j];
393                            angles.angtype[i] = FOURIER;
394                            ierr = TRUE;
395                            break;
396                        }
397                    }
398                    if (ierr == TRUE)
399                       goto L_10;
400                }
401                        
359   /*     check regular parameters  for specific angles*/
360                  for (j = 0; j < angk1.nang; j++)
361                  {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines