Set ESELECT block parameters | |
number of output event ports | 2 |
Inherit (1: no, 0: yes) | 1 |
zero-crossing (0: no, 1: yes) | 0 |
subroutine eselect(flag,nevprt,ntvec,rpar,nrpar,ipar,nipar,u,nu) c Scicos block simulator c if-then-else block c if event input exits from then or else clock ouputs based c on the sign of the unique input (if input>0 then else ) c c Copyright INRIA double precision rpar(*),u(*) integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*) integer nipar,nu c integer iu c common /dbcos/ idb c if(idb.eq.1) then write(6,'(''ifthel t='',e10.3,'' flag='',i1)') t,flag endif c iu=max(min(int(u(1)),ipar(1)),1) if(flag.eq.3) then ntvec=iu endif end