5.2.2.3 Fortran case

      subroutine myfun(flag,nevprt,t,xd,x,nx,z,nz,tvec,
     &   ntvec,rpar,nrpar,ipar,nipar,u1,nu1,u2,nu2,
     &   y1,ny1,y2,ny2,y3,ny3,y4,ny4)
c
      double precision t,xd(*),x(*),z(*),tvec(*),rpar(*)
      double precision u1(*),u2(*),y1(*),y2(*),y3(*),y4(*)
      integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
      integer nipar,nu1,nu2,ny1,ny2,ny3,ny4

See Tables 3 for a description of the arguments.

 

Table 3: Arguments of Computational functions of type 1. I: input, O: output.

I/O	Args.	Description
I	flag	0,1,2,3,4,5 or 6, (see Table 1)
I	nevprt	activation code
I	t	time
O	xdot	derivative of the continuous state
I/O	x	continuous state
I	nx	size of x
I/O	z	discrete state
I	nz	size of z
O	tvec	times of output events (for flag=3)
I	ntvec	number of activation output ports
I	rpar	parameter
I	nrpar	size of rpar
I	ipar	parameter
I	nipar	size of ipar
I	ui	ith input (regular), i=1,2,...
I	nui	size of ith input
O	yj	jth output (regular), j=1,2,...
I	nyj	size of jth output