1
subroutine cosiord(neq,x,xptr,z,zptr,iz,izptr,told,tf,
3
$ tevts,evtspt,nevts,pointi,inpptr,inplnk,outptr,
4
$ outlnk,lnkptr,clkptr,ordptr,nptr,
5
$ ordclk,nordcl,ztyp,cord,iord,niord,oord,zord,
6
$ critev,rpar,rpptr,ipar,
7
$ ipptr,funptr,funtyp,rhot,ihot,outtb,jroot,w,iwa,ierr)
11
c maximum number of clock output for one block
16
C neq must contain after #states all integer data for simblk and grblk
17
double precision x(*),z(*),told,tf,tevts(*),rpar(*),outtb(*)
18
double precision w(*),rhot(*)
20
C X must contain after state values all real data for simblk and grblk
21
integer xptr(*),zptr(*),iz(*),izptr(*),evtspt(nevts),nevts,pointi
22
integer inpptr(*),inplnk(*),outptr(*),outlnk(*),lnkptr(*)
23
integer clkptr(*),ordptr(nptr),nptr,ztyp(*)
24
integer ordclk(nordcl,2),nordcl,cord(*),iord(*),oord(*),zord(*)
25
integer critev(*),rpptr(*),ipar(*),ipptr(*),funptr(*),funtyp(*)
26
integer ihot(*),jroot(*),ierr
29
integer i,k,ierr1,iopt,istate,itask,j,jdum,jt,
30
& ksz,flag,keve,kpo,nord,nclock
32
double precision tvec(nts)
36
integer nblk,nordptr,nout,ng,nrwp,niwp,ncord,
38
common /cossiz/ nblk,nordptr,nout,ng,nrwp,niwp,ncord,
45
double precision atol,rtol,ttol,deltat
46
common /costol/ atol,rtol,ttol,deltat
51
c initialisation (propagation of constant blocks outputs)
52
if(niord.eq.0) goto 10
55
nclock = iord(jj+niord)
57
call callf(kfun,nclock,funptr,funtyp,told,x,x,xptr,z,zptr,iz,
58
$ izptr,rpar,rpptr,ipar,ipptr,tvec,ntvec,inpptr,inplnk
59
$ ,outptr,outlnk,lnkptr,outtb,flag)