Lines Matching refs:ANG
464 ANG = FACANG*VECANG(VEC(1,I,J),VEC(1,I,K))
466 & ' bond angle:',NUCNAM(1),NUCNAM(2),NUCNAM(3),ANG
508 ANG = FACANG*VECANG(VEC(1,I2,I1),VEC(1,I2,I3))
510 ANGLE(I) = ANG
512 ANGLE(I) = ANG - ANGLE(I)
555 ANG = X1*Y1 + X2*Y2 + X3*Y3
558 ANG = ANG / SQRT(DDD)
559 IF (ABS(ANG) .GT. D1) ANG = SIGN(D1,ANG)
560 ANG = SENSE*ARCCOS(ANG)
562 DIHED(I) = ANG
564 DIHED(I) = ANG - DIHED(I)