Statistics
| Revision:

root / spec / ammp / tsearch.amp @ 53

History | View | Annotate | Download (1.27 KB)

1
# build the ideal bond angle geometry;
2
nzinactive 0 10000000;
3
use none bond angle hybrid;
4
echo off; abuild 4;echo;
5
cngdel 100;
6
use torsion nonbon;
7
active 0 1000000;
8
mov ires 1;
9
loopi end: ires iresm;
10

    
11
# search the alpha-beta and beta-gamma angles of ires;
12
# do a lot of checking to make it right;
13
monitor;  #  lets be careful ;
14

    
15
serial ic ires c ;
16
jes ic pro.c skip: ;
17
jes ic prx.c skip: ;
18
jes ic css.c skip: ;
19
serial ica ires ca ;
20
serial icb ires cb ;
21
serial icg ires cg ;
22
jl ic 0 skip: ;
23
jl ica 0 skip: ;
24
jl icb 0 skip: ;
25
jg icg 0 next: ;
26
serial icg ires cg1 ;
27
jg icg 0 next: ;
28
serial icg ires og ;
29
jg icg 0 next: ;
30
jl icg 0 skip: ;
31

    
32
nop; next: ;
33

    
34
tgroup 1 ic ica icb icg 0 6;
35
tsearch 1;
36

    
37
serial icd ires cd ;
38
jg icd 0 doit: ;
39
serial icd ires cd1 ;
40
jg icd 0 doit: ;
41
serial icd ires cd2 ;
42
jg icd 0 doit: ;
43
serial icd ires sd;
44
jg icd 0 doit: ;
45

    
46
jl icd 0 search: ;
47
nop; doit: ;
48
tgroup 2 ica icb icg icd  0 6;
49
tsearch 1 2;
50
jes ic tyr.c search: ;
51
jes ic phe.c search: ;
52
jes ic his.c search: ;
53
serial ice ires ce;
54
jg ice 0 doit2: ;
55
serial ice ires ce1;
56
jg ice 0 doit2: ;
57
serial ice ires ce2;
58
jg ice 0 doit2: ;
59
serial ice ires ne;
60
jg ice 0 doit2: ;
61
jl ice 0 search: ;
62
nop; doit2: ;
63
tgroup 3 icb icg icd ice 0 6;
64
tsearch 1 2 3;
65
search: ;
66

    
67
monitor;
68
skip: ; #default exit;
69
end: ;
70
cngdel 100; 
71
active 0 1000000;