1 |
< |
/* Copyright (c) 1990 Regents of the University of California */ |
1 |
> |
/* Copyright (c) 1991 Regents of the University of California */ |
2 |
|
|
3 |
|
#ifndef lint |
4 |
|
static char SCCSid[] = "$SunId$ LBL"; |
68 |
|
m4[1][0] = -(m4[0][1] = sin(dtmp)); |
69 |
|
break; |
70 |
|
default: |
71 |
< |
return(i); |
71 |
> |
goto done; |
72 |
|
} |
73 |
|
break; |
74 |
|
|
101 |
|
m4[2][2] = -1.0; |
102 |
|
break; |
103 |
|
default: |
104 |
< |
return(i); |
104 |
> |
goto done; |
105 |
|
} |
106 |
|
break; |
107 |
|
|
117 |
|
continue; |
118 |
|
|
119 |
|
default: |
120 |
< |
return(i); |
120 |
> |
goto done; |
121 |
|
|
122 |
|
} |
123 |
|
multmat4(xfmat, xfmat, m4); |
182 |
|
m4[1][0] = -(m4[0][1] = sin(dtmp)); |
183 |
|
break; |
184 |
|
default: |
185 |
< |
return(i); |
185 |
> |
goto done; |
186 |
|
} |
187 |
|
break; |
188 |
|
|
215 |
|
m4[2][2] = -1.0; |
216 |
|
break; |
217 |
|
default: |
218 |
< |
return(i); |
218 |
> |
goto done; |
219 |
|
} |
220 |
|
break; |
221 |
|
|
231 |
|
break; |
232 |
|
|
233 |
|
default: |
234 |
< |
return(i); |
234 |
> |
goto done; |
235 |
|
|
236 |
|
} |
237 |
|
multmat4(xfmat, m4, xfmat); /* left multiply */ |