Subversion Repositories wimsdev

Rev

Rev 18411 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 18411 Rev 18413
Line 12... Line 12...
12 
!! - notreduced parenthesis : use of parenthesis
 12 
!! - notreduced parenthesis : use of parenthesis
13 
!! - usedivide : use of / symbol
 13 
!! - usedivide : use of / symbol
14 
!set var =!varlist nofn $wims_read_parm
 14 
!set var =!varlist nofn $wims_read_parm
15 
!set varcnt =!itemcnt $var
 15 
!set varcnt =!itemcnt $var
16 
!if $varcnt>1
 16 
!if $varcnt>1
- 
 
 17 
  !exit
- 
 
 18 
!endif
- 
 
 19 
!set pol_test=!exec pari denominator(content($wims_read_parm))
- 
 
 20 
!if $pol_test!=1
17 
  !exit
 21 
  !exit
18 
!endif
 22 
!endif
19 
nb_=!charcnt $wims_read_parm
 23 
nb_=!charcnt $wims_read_parm
20 
nbt=0
 24 
nbt=0
21 
!reset terme ltermes wrong checkd_
 25 
!reset terme ltermes wrong checkd_