| 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 */ |