1 block data 2c----------------------------------------------------------------------- 3c this data subprogram loads variables into the internal common 4c blocks used by the odepack solvers. the variables are 5c defined as follows.. 6c illin = counter for the number of consecutive times the package 7c was called with illegal input. the run is stopped when 8c illin reaches 5. 9c ntrep = counter for the number of consecutive times the package 10c was called with istate = 1 and tout = t. the run is 11c stopped when ntrep reaches 5. 12c mesflg = flag to control printing of error messages. 1 means print, 13c 0 means no printing. 14c lunit = default value of logical unit number for printing of error 15c messages. 16c----------------------------------------------------------------------- 17 integer illin, iduma, ntrep, idumb, iowns, icomm, mesflg, lunit 18 double precision rowns, rcomm 19 common /ls0001/ rowns(209), rcomm(9), 20 1 illin, iduma(10), ntrep, idumb(2), iowns(6), icomm(19) 21 common /eh0001/ mesflg, lunit 22 data illin/0/, ntrep/0/ 23 data mesflg/1/, lunit/6/ 24c 25c----------------------- end of block data ----------------------------- 26 end 27