You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.6 KiB
C
69 lines
1.6 KiB
C
#include "stride.h"
|
|
|
|
void Area(CHAIN **Chain, int NChain, COMMAND *Cmd)
|
|
{
|
|
|
|
double *Coord, *Radii, OverallArea, *AreaPerAtom, *p1, *p2;
|
|
int At, TotalAt=0, Cn, Res, DotsPerSphere=600;
|
|
|
|
for( Cn=0; Cn<NChain; Cn++ ) {
|
|
|
|
if( !Chain[Cn]->Valid )
|
|
continue;
|
|
|
|
for( Res=0; Res<Chain[Cn]->NRes; Res++ )
|
|
for( At=0; At<Chain[Cn]->Rsd[Res]->NAtom; At++ )
|
|
if( !IsHydrogen(Chain[Cn]->Rsd[Res]->AtomType[At]) )
|
|
TotalAt ++;
|
|
}
|
|
|
|
Coord = (double *)ckalloc(3*TotalAt*sizeof(double));
|
|
Radii = (double *)ckalloc(TotalAt*sizeof(double));
|
|
|
|
p1 = Coord;
|
|
p2 = Radii;
|
|
|
|
for( Cn=0; Cn<NChain; Cn++ ) {
|
|
|
|
if( !Chain[Cn]->Valid )
|
|
continue;
|
|
|
|
for( Res=0; Res<Chain[Cn]->NRes; Res++ )
|
|
for( At=0; At<Chain[Cn]->Rsd[Res]->NAtom; At++ )
|
|
if( !IsHydrogen(Chain[Cn]->Rsd[Res]->AtomType[At]) ) {
|
|
(*p1++) = (double)Chain[Cn]->Rsd[Res]->Coord[At][0];
|
|
(*p1++) = (double)Chain[Cn]->Rsd[Res]->Coord[At][1];
|
|
(*p1++) = (double)Chain[Cn]->Rsd[Res]->Coord[At][2];
|
|
(*p2++) = GetAtomRadius(Chain[Cn]->Rsd[Res]->AtomType[At])+1.4;
|
|
}
|
|
|
|
}
|
|
|
|
p1 = Coord;
|
|
p2 = Radii;
|
|
|
|
NSC(Coord,Radii,TotalAt,DotsPerSphere,FLAG_ATOM_AREA,&OverallArea,
|
|
&AreaPerAtom,NULL,NULL,NULL);
|
|
|
|
for( Cn=0; Cn<NChain; Cn++ ) {
|
|
|
|
if( !Chain[Cn]->Valid )
|
|
continue;
|
|
|
|
for( Res=0; Res<Chain[Cn]->NRes; Res++ ) {
|
|
Chain[Cn]->Rsd[Res]->Prop->Solv = 0.0;
|
|
for( At=0; At<Chain[Cn]->Rsd[Res]->NAtom; At++ )
|
|
if( !IsHydrogen(Chain[Cn]->Rsd[Res]->AtomType[At]) ) {
|
|
Chain[Cn]->Rsd[Res]->Prop->Solv += (*AreaPerAtom++);
|
|
}
|
|
}
|
|
}
|
|
free(Coord);
|
|
free(Radii);
|
|
}
|
|
|
|
|
|
|
|
|
|
|