![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to weight CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / lib|
Return to weight CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / lib |
| version 1.20, 2004/01/07 08:11:51 | version 1.21, 2004/01/07 08:15:16 | ||
|---|---|---|---|
|
|
||
| } | } | ||
| else{ | else{ | ||
| TMP0=map(ltov,TMP0)$ | TMP0=map(ltov,TMP0)$ | ||
| TMP0=ltov(TMP0)$ | |||
| for(I=0;I<length(TMP0);I++) | for(I=0;I<length(TMP0);I++) | ||
| if(TMP0[I][0]==3) | if(TMP0[I][0]==3) | ||
|
|
||
| TMP0[I][0]=6$ | TMP0[I][0]=6$ | ||
| TMP0=map(vtol,TMP0)$ | TMP0=map(vtol,TMP0)$ | ||
| TMP0=vtol(TMP0)$ | |||
| RET=append(RET,TMP0)$ | RET=append(RET,TMP0)$ | ||
| } | } |