SUBROUTINE C7( NBUFS, START, LENTH, OK, NN, IER) c ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c This is a check routine for Benchmark 7. All it will do is verify c that the solutions found are the ones expected from previous runs. c c Parameters: c c Provided by calling routine: c NBUFS = Length of A stream in buffers c START = Array of starting positions of solutions in the E stream c LENTH = Array with length of each solution c NN = Length of these arrays, i.e. the number of solutions c c Returned by this routine: c OK = Array of checks: c 0 if START,LENTH agree with stored results c 1 if not c -1 for indices beyond MAXCKS = number of stored results c IER = Error flag array c IER(1) = number of expected solutions, if diff from NN c IER(2) = number of solutions that don't check c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #include "bench7.h" c IMPLICIT INTEGER (A-Z) c c Error flag array INTEGER IER(2) c INTEGER (kind=8) START(MAXANS) INTEGER LENTH(MAXANS) c c Correct solutions c number of check values MAXCKS defined in bench7.h c currently = 1000: 200 buffers with 5 per buffer c INTEGER (kind=8) CKSTART(MAXCKS) INTEGER CKLEN(MAXCKS), OK(MAXCKS) DATA ( CKSTART(I), I=1,100 ) / ! bufnum $ 1999973_8, 2291636_8, 3999973_8, 4583302_8, ! 0 $ 327679885_8, $ 329679971_8, 329971638_8, 331679970_8, 332263303_8, $ 655359886_8, $ 657359971_8, 657651637_8, 659359971_8, 659943303_8, $ 983039884_8, $ 985039973_8, 985331637_8, 987039972_8, 987623303_8, $ 1310719883_8, $ 1312719969_8, 1313011638_8, 1314719973_8, 1315303303_8, $ 1638399886_8, $ 1640399973_8, 1640691638_8, 1642399973_8, 1642983298_8, $ 1966079886_8, $ 1968079973_8, 1968371637_8, 1970079972_8, 1970663302_8, $ 2293759886_8, $ 2295759973_8, 2296051636_8, 2297759972_8, 2298343303_8, $ 2621439886_8, $ 2623439973_8, 2623731638_8, 2625439970_8, 2626023303_8, $ 2949119883_8, $ 2951119969_8, 2951411635_8, 2953119973_8, 2953703298_8, $ 3276799885_8, $ 3278799971_8, 3279091638_8, 3280799972_8, 3281383301_8, ! 10 $ 3604479886_8, $ 3606479971_8, 3606771638_8, 3608479973_8, 3609063302_8, $ 3932159886_8, $ 3934159973_8, 3934451635_8, 3936159973_8, 3936743298_8, $ 4259839886_8, $ 4261839969_8, 4262131638_8, 4263839971_8, 4264423302_8, $ 4587519880_8, $ 4589519971_8, 4589811637_8, 4591519973_8, 4592103296_8, $ 4915199884_8, $ 4917199969_8, 4917491634_8, 4919199972_8, 4919783303_8, $ 5242879886_8, $ 5244879973_8, 5245171637_8, 5246879973_8, 5247463303_8, $ 5570559885_8, $ 5572559973_8, 5572851636_8, 5574559973_8, 5575143303_8, $ 5898239886_8, $ 5900239971_8, 5900531638_8, 5902239970_8, 5902823302_8, $ 6225919886_8, $ 6227919973_8, 6228211636_8, 6229919971_8, 6230503302_8, $ 6553599885_8 / DATA ( CKSTART(I), I=101,200 ) / $ 6555599973_8, 6555891638_8, 6557599970_8, 6558183302_8, ! 20 $ 6881279886_8, $ 6883279973_8, 6883571635_8, 6885279973_8, 6885863301_8, $ 7208959886_8, $ 7210959973_8, 7211251636_8, 7212959973_8, 7213543303_8, $ 7536639885_8, $ 7538639973_8, 7538931633_8, 7540639972_8, 7541223301_8, $ 7864319885_8, $ 7866319973_8, 7866611637_8, 7868319973_8, 7868903303_8, $ 8191999886_8, $ 8193999973_8, 8194291638_8, 8195999972_8, 8196583302_8, $ 8519679885_8, $ 8521679971_8, 8521971636_8, 8523679973_8, 8524263303_8, $ 8847359885_8, $ 8849359973_8, 8849651637_8, 8851359973_8, 8851943301_8, $ 9175039886_8, $ 9177039973_8, 9177331637_8, 9179039973_8, 9179623303_8, $ 9502719886_8, $ 9504719973_8, 9505011634_8, 9506719973_8, 9507303303_8, $ 9830399886_8, $ 9832399973_8, 9832691635_8, 9834399973_8, 9834983303_8, ! 30 $ 10158079886_8, $ 10160079973_8, 10160371637_8, 10162079973_8, 10162663302_8, $ 10485759884_8, $ 10487759970_8, 10488051637_8, 10489759970_8, 10490343299_8, $ 10813439885_8, $ 10815439973_8, 10815731637_8, 10817439972_8, 10818023303_8, $ 11141119886_8, $ 11143119973_8, 11143411635_8, 11145119972_8, 11145703301_8, $ 11468799885_8, $ 11470799973_8, 11471091636_8, 11472799973_8, 11473383303_8, $ 11796479886_8, $ 11798479970_8, 11798771638_8, 11800479971_8, 11801063303_8, $ 12124159886_8, $ 12126159971_8, 12126451638_8, 12128159972_8, 12128743303_8, $ 12451839886_8, $ 12453839973_8, 12454131638_8, 12455839973_8, 12456423303_8, $ 12779519885_8, $ 12781519970_8, 12781811635_8, 12783519973_8, 12784103301_8, $ 13107199886_8 / DATA ( CKSTART(I), I=201,300 ) / $ 13109199971_8, 13109491638_8, 13111199972_8, 13111783302_8, ! 40 $ 13434879886_8, $ 13436879973_8, 13437171638_8, 13438879972_8, 13439463298_8, $ 13762559886_8, $ 13764559971_8, 13764851638_8, 13766559973_8, 13767143303_8, $ 14090239885_8, $ 14092239973_8, 14092531637_8, 14094239973_8, 14094823303_8, $ 14417919883_8, $ 14419919970_8, 14420211636_8, 14421919973_8, 14422503302_8, $ 14745599886_8, $ 14747599973_8, 14747891637_8, 14749599969_8, 14750183299_8, $ 15073279882_8, $ 15075279971_8, 15075571637_8, 15077279971_8, 15077863303_8, $ 15400959885_8, $ 15402959970_8, 15403251638_8, 15404959973_8, 15405543303_8, $ 15728639883_8, $ 15730639971_8, 15730931638_8, 15732639973_8, 15733223303_8, $ 16056319886_8, $ 16058319971_8, 16058611637_8, 16060319972_8, 16060903303_8, $ 16383999885_8, $ 16385999973_8, 16386291638_8, 16387999973_8, 16388583301_8, ! 50 $ 16711679886_8, $ 16713679973_8, 16713971638_8, 16715679973_8, 16716263303_8, $ 17039359885_8, $ 17041359967_8, 17041651637_8, 17043359973_8, 17043943300_8, $ 17367039884_8, $ 17369039970_8, 17369331633_8, 17371039973_8, 17371623301_8, $ 17694719886_8, $ 17696719973_8, 17697011638_8, 17698719973_8, 17699303303_8, $ 18022399882_8, $ 18024399973_8, 18024691636_8, 18026399972_8, 18026983303_8, $ 18350079884_8, $ 18352079970_8, 18352371638_8, 18354079972_8, 18354663303_8, $ 18677759883_8, $ 18679759973_8, 18680051636_8, 18681759968_8, 18682343303_8, $ 19005439886_8, $ 19007439969_8, 19007731637_8, 19009439971_8, 19010023302_8, $ 19333119885_8, $ 19335119971_8, 19335411636_8, 19337119973_8, 19337703301_8, $ 19660799884_8 / DATA ( CKSTART(I), I=301,400 ) / $ 19662799971_8, 19663091638_8, 19664799972_8, 19665383303_8, ! 60 $ 19988479883_8, $ 19990479973_8, 19990771636_8, 19992479973_8, 19993063301_8, $ 20316159880_8, $ 20318159973_8, 20318451638_8, 20320159973_8, 20320743303_8, $ 20643839885_8, $ 20645839973_8, 20646131638_8, 20647839971_8, 20648423303_8, $ 20971519886_8, $ 20973519971_8, 20973811638_8, 20975519971_8, 20976103302_8, $ 21299199886_8, $ 21301199973_8, 21301491638_8, 21303199972_8, 21303783303_8, $ 21626879886_8, $ 21628879969_8, 21629171637_8, 21630879971_8, 21631463303_8, $ 21954559886_8, $ 21956559970_8, 21956851637_8, 21958559972_8, 21959143302_8, $ 22282239886_8, $ 22284239973_8, 22284531638_8, 22286239973_8, 22286823303_8, $ 22609919885_8, $ 22611919971_8, 22612211637_8, 22613919973_8, 22614503302_8, $ 22937599881_8, $ 22939599971_8, 22939891637_8, 22941599971_8, 22942183303_8, ! 70 $ 23265279885_8, $ 23267279973_8, 23267571638_8, 23269279973_8, 23269863301_8, $ 23592959886_8, $ 23594959971_8, 23595251637_8, 23596959971_8, 23597543303_8, $ 23920639886_8, $ 23922639971_8, 23922931638_8, 23924639970_8, 23925223302_8, $ 24248319886_8, $ 24250319973_8, 24250611637_8, 24252319973_8, 24252903301_8, $ 24575999885_8, $ 24577999969_8, 24578291637_8, 24579999971_8, 24580583303_8, $ 24903679885_8, $ 24905679973_8, 24905971638_8, 24907679972_8, 24908263303_8, $ 25231359884_8, $ 25233359973_8, 25233651638_8, 25235359971_8, 25235943302_8, $ 25559039881_8, $ 25561039971_8, 25561331638_8, 25563039972_8, 25563623303_8, $ 25886719885_8, $ 25888719971_8, 25889011635_8, 25890719973_8, 25891303302_8, $ 26214399883_8 / DATA ( CKSTART(I), I=401,500 ) / $ 26216399973_8, 26216691638_8, 26218399972_8, 26218983301_8, ! 80 $ 26542079884_8, $ 26544079971_8, 26544371634_8, 26546079971_8, 26546663303_8, $ 26869759885_8, $ 26871759971_8, 26872051638_8, 26873759972_8, 26874343302_8, $ 27197439884_8, $ 27199439973_8, 27199731638_8, 27201439972_8, 27202023299_8, $ 27525119886_8, $ 27527119973_8, 27527411638_8, 27529119971_8, 27529703301_8, $ 27852799883_8, $ 27854799970_8, 27855091638_8, 27856799973_8, 27857383300_8, $ 28180479885_8, $ 28182479969_8, 28182771638_8, 28184479973_8, 28185063301_8, $ 28508159885_8, $ 28510159971_8, 28510451638_8, 28512159973_8, 28512743303_8, $ 28835839886_8, $ 28837839973_8, 28838131638_8, 28839839973_8, 28840423302_8, $ 29163519884_8, $ 29165519973_8, 29165811637_8, 29167519970_8, 29168103303_8, $ 29491199886_8, $ 29493199971_8, 29493491634_8, 29495199973_8, 29495783303_8, ! 90 $ 29818879886_8, $ 29820879973_8, 29821171637_8, 29822879971_8, 29823463303_8, $ 30146559886_8, $ 30148559973_8, 30148851638_8, 30150559973_8, 30151143303_8, $ 30474239886_8, $ 30476239969_8, 30476531637_8, 30478239971_8, 30478823302_8, $ 30801919886_8, $ 30803919973_8, 30804211638_8, 30805919973_8, 30806503303_8, $ 31129599886_8, $ 31131599970_8, 31131891637_8, 31133599973_8, 31134183303_8, $ 31457279885_8, $ 31459279973_8, 31459571637_8, 31461279973_8, 31461863299_8, $ 31784959882_8, $ 31786959971_8, 31787251638_8, 31788959973_8, 31789543303_8, $ 32112639886_8, $ 32114639973_8, 32114931637_8, 32116639973_8, 32117223303_8, $ 32440319884_8, $ 32442319973_8, 32442611638_8, 32444319971_8, 32444903302_8, $ 32767999886_8 / DATA ( CKSTART(I), I=501,600 ) / $ 32769999973_8, 32770291638_8, 32771999973_8, 32772583301_8, ! 100 $ 33095679886_8, $ 33097679973_8, 33097971638_8, 33099679973_8, 33100263303_8, $ 33423359884_8, $ 33425359973_8, 33425651638_8, 33427359971_8, 33427943303_8, $ 33751039885_8, $ 33753039971_8, 33753331637_8, 33755039973_8, 33755623303_8, $ 34078719886_8, $ 34080719971_8, 34081011638_8, 34082719973_8, 34083303303_8, $ 34406399886_8, $ 34408399971_8, 34408691638_8, 34410399972_8, 34410983303_8, $ 34734079886_8, $ 34736079973_8, 34736371634_8, 34738079972_8, 34738663303_8, $ 35061759884_8, $ 35063759973_8, 35064051638_8, 35065759973_8, 35066343302_8, $ 35389439884_8, $ 35391439973_8, 35391731636_8, 35393439972_8, 35394023303_8, $ 35717119884_8, $ 35719119971_8, 35719411637_8, 35721119970_8, 35721703299_8, $ 36044799886_8, $ 36046799969_8, 36047091635_8, 36048799971_8, 36049383302_8, ! 110 $ 36372479886_8, $ 36374479973_8, 36374771638_8, 36376479970_8, 36377063303_8, $ 36700159885_8, $ 36702159971_8, 36702451638_8, 36704159973_8, 36704743303_8, $ 37027839884_8, $ 37029839970_8, 37030131637_8, 37031839972_8, 37032423301_8, $ 37355519886_8, $ 37357519973_8, 37357811638_8, 37359519972_8, 37360103303_8, $ 37683199886_8, $ 37685199971_8, 37685491638_8, 37687199973_8, 37687783303_8, $ 38010879886_8, $ 38012879971_8, 38013171638_8, 38014879971_8, 38015463303_8, $ 38338559886_8, $ 38340559970_8, 38340851638_8, 38342559972_8, 38343143303_8, $ 38666239886_8, $ 38668239973_8, 38668531635_8, 38670239973_8, 38670823302_8, $ 38993919886_8, $ 38995919971_8, 38996211635_8, 38997919973_8, 38998503303_8, $ 39321599884_8 / DATA ( CKSTART(I), I=601,700 ) / $ 39323599973_8, 39323891638_8, 39325599972_8, 39326183303_8, ! 120 $ 39649279882_8, $ 39651279973_8, 39651571638_8, 39653279973_8, 39653863303_8, $ 39976959884_8, $ 39978959973_8, 39979251638_8, 39980959973_8, 39981543303_8, $ 40304639881_8, $ 40306639970_8, 40306931638_8, 40308639973_8, 40309223298_8, $ 40632319886_8, $ 40634319969_8, 40634611638_8, 40636319973_8, 40636903303_8, $ 40959999886_8, $ 40961999973_8, 40962291638_8, 40963999973_8, 40964583303_8, $ 41287679886_8, $ 41289679973_8, 41289971638_8, 41291679972_8, 41292263299_8, $ 41615359886_8, $ 41617359971_8, 41617651637_8, 41619359973_8, 41619943303_8, $ 41943039886_8, $ 41945039971_8, 41945331638_8, 41947039973_8, 41947623302_8, $ 42270719882_8, $ 42272719970_8, 42273011637_8, 42274719972_8, 42275303303_8, $ 42598399886_8, $ 42600399971_8, 42600691638_8, 42602399970_8, 42602983302_8, ! 130 $ 42926079886_8, $ 42928079973_8, 42928371636_8, 42930079973_8, 42930663303_8, $ 43253759886_8, $ 43255759970_8, 43256051632_8, 43257759970_8, 43258343303_8, $ 43581439886_8, $ 43583439973_8, 43583731638_8, 43585439973_8, 43586023303_8, $ 43909119883_8, $ 43911119970_8, 43911411635_8, 43913119970_8, 43913703301_8, $ 44236799885_8, $ 44238799973_8, 44239091637_8, 44240799973_8, 44241383303_8, $ 44564479885_8, $ 44566479970_8, 44566771638_8, 44568479970_8, 44569063303_8, $ 44892159886_8, $ 44894159970_8, 44894451638_8, 44896159972_8, 44896743302_8, $ 45219839885_8, $ 45221839971_8, 45222131638_8, 45223839972_8, 45224423303_8, $ 45547519883_8, $ 45549519973_8, 45549811635_8, 45551519973_8, 45552103303_8, $ 45875199886_8 / DATA ( CKSTART(I), I=701,800 ) / $ 45877199971_8, 45877491637_8, 45879199973_8, 45879783303_8, ! 140 $ 46202879885_8, $ 46204879973_8, 46205171637_8, 46206879973_8, 46207463302_8, $ 46530559885_8, $ 46532559971_8, 46532851637_8, 46534559970_8, 46535143303_8, $ 46858239885_8, $ 46860239971_8, 46860531632_8, 46862239971_8, 46862823303_8, $ 47185919885_8, $ 47187919973_8, 47188211638_8, 47189919972_8, 47190503301_8, $ 47513599885_8, $ 47515599971_8, 47515891638_8, 47517599973_8, 47518183302_8, $ 47841279885_8, $ 47843279968_8, 47843571636_8, 47845279973_8, 47845863299_8, $ 48168959885_8, $ 48170959967_8, 48171251637_8, 48172959972_8, 48173543303_8, $ 48496639886_8, $ 48498639973_8, 48498931637_8, 48500639970_8, 48501223303_8, $ 48824319884_8, $ 48826319973_8, 48826611638_8, 48828319973_8, 48828903299_8, $ 49151999886_8, $ 49153999971_8, 49154291637_8, 49155999972_8, 49156583302_8, ! 150 $ 49479679885_8, $ 49481679971_8, 49481971636_8, 49483679972_8, 49484263303_8, $ 49807359886_8, $ 49809359970_8, 49809651638_8, 49811359969_8, 49811943303_8, $ 50135039885_8, $ 50137039973_8, 50137331635_8, 50139039970_8, 50139623302_8, $ 50462719886_8, $ 50464719973_8, 50465011638_8, 50466719973_8, 50467303303_8, $ 50790399885_8, $ 50792399970_8, 50792691638_8, 50794399973_8, 50794983301_8, $ 51118079885_8, $ 51120079973_8, 51120371636_8, 51122079972_8, 51122663303_8, $ 51445759885_8, $ 51447759971_8, 51448051638_8, 51449759971_8, 51450343303_8, $ 51773439886_8, $ 51775439973_8, 51775731636_8, 51777439973_8, 51778023303_8, $ 52101119886_8, $ 52103119973_8, 52103411638_8, 52105119973_8, 52105703302_8, $ 52428799884_8 / DATA ( CKSTART(I), I=801,900 ) / $ 52430799967_8, 52431091638_8, 52432799973_8, 52433383302_8, ! 160 $ 52756479884_8, $ 52758479969_8, 52758771638_8, 52760479973_8, 52761063299_8, $ 53084159886_8, $ 53086159973_8, 53086451638_8, 53088159972_8, 53088743303_8, $ 53411839884_8, $ 53413839973_8, 53414131636_8, 53415839967_8, 53416423302_8, $ 53739519885_8, $ 53741519973_8, 53741811638_8, 53743519973_8, 53744103301_8, $ 54067199883_8, $ 54069199973_8, 54069491636_8, 54071199973_8, 54071783303_8, $ 54394879885_8, $ 54396879973_8, 54397171637_8, 54398879969_8, 54399463301_8, $ 54722559886_8, $ 54724559970_8, 54724851638_8, 54726559972_8, 54727143298_8, $ 55050239886_8, $ 55052239973_8, 55052531637_8, 55054239971_8, 55054823303_8, $ 55377919886_8, $ 55379919973_8, 55380211638_8, 55381919972_8, 55382503303_8, $ 55705599885_8, $ 55707599970_8, 55707891637_8, 55709599972_8, 55710183298_8, ! 170 $ 56033279885_8, $ 56035279971_8, 56035571636_8, 56037279973_8, 56037863303_8, $ 56360959885_8, $ 56362959970_8, 56363251638_8, 56364959972_8, 56365543302_8, $ 56688639884_8, $ 56690639971_8, 56690931637_8, 56692639973_8, 56693223303_8, $ 57016319886_8, $ 57018319973_8, 57018611638_8, 57020319973_8, 57020903300_8, $ 57343999885_8, $ 57345999971_8, 57346291638_8, 57347999972_8, 57348583303_8, $ 57671679883_8, $ 57673679971_8, 57673971636_8, 57675679972_8, 57676263299_8, $ 57999359883_8, $ 58001359973_8, 58001651638_8, 58003359972_8, 58003943298_8, $ 58327039885_8, $ 58329039971_8, 58329331637_8, 58331039972_8, 58331623303_8, $ 58654719885_8, $ 58656719973_8, 58657011636_8, 58658719970_8, 58659303303_8, $ 58982399886_8 / DATA ( CKSTART(I), I=901,1000 ) / $ 58984399970_8, 58984691635_8, 58986399972_8, 58986983302_8, ! 180 $ 59310079886_8, $ 59312079973_8, 59312371638_8, 59314079972_8, 59314663299_8, $ 59637759884_8, $ 59639759971_8, 59640051638_8, 59641759973_8, 59642343303_8, $ 59965439885_8, $ 59967439973_8, 59967731638_8, 59969439972_8, 59970023300_8, $ 60293119884_8, $ 60295119971_8, 60295411637_8, 60297119973_8, 60297703303_8, $ 60620799884_8, $ 60622799969_8, 60623091637_8, 60624799971_8, 60625383303_8, $ 60948479885_8, $ 60950479973_8, 60950771638_8, 60952479972_8, 60953063303_8, $ 61276159883_8, $ 61278159971_8, 61278451638_8, 61280159970_8, 61280743300_8, $ 61603839883_8, $ 61605839970_8, 61606131638_8, 61607839972_8, 61608423302_8, $ 61931519886_8, $ 61933519973_8, 61933811636_8, 61935519971_8, 61936103302_8, $ 62259199886_8, $ 62261199973_8, 62261491638_8, 62263199972_8, 62263783303_8, ! 190 $ 62586879884_8, $ 62588879969_8, 62589171637_8, 62590879973_8, 62591463302_8, $ 62914559885_8, $ 62916559967_8, 62916851638_8, 62918559969_8, 62919143303_8, $ 63242239886_8, $ 63244239973_8, 63244531638_8, 63246239973_8, 63246823301_8, $ 63569919885_8, $ 63571919969_8, 63572211638_8, 63573919973_8, 63574503299_8, $ 63897599886_8, $ 63899599973_8, 63899891638_8, 63901599973_8, 63902183302_8, $ 64225279886_8, $ 64227279970_8, 64227571638_8, 64229279973_8, 64229863298_8, $ 64552959886_8, $ 64554959973_8, 64555251635_8, 64556959973_8, 64557543303_8, $ 64880639884_8, $ 64882639973_8, 64882931637_8, 64884639973_8, 64885223302_8, $ 65208319886_8, $ 65210319973_8, 65210611638_8, 65212319971_8, 65212903301_8, $ 0 / DATA ( CKLEN(I), I=1,500 ) / ! bufnum $ 510, 509, 507, 509, 191, 509, 508, 510, 508, 192, ! 0 $ 512, 511, 509, 508, 192, 510, 508, 508, 508, 193, $ 516, 507, 508, 511, 191, 509, 508, 507, 513, 190, $ 509, 508, 508, 510, 191, 507, 509, 509, 508, 189, $ 507, 509, 512, 510, 194, 513, 510, 507, 513, 192, $ 509, 512, 509, 510, 193, 511, 508, 507, 509, 190, ! 10 $ 510, 510, 507, 513, 194, 511, 508, 510, 510, 195, $ 511, 509, 508, 516, 195, 512, 518, 508, 508, 191, $ 510, 511, 507, 509, 190, 507, 512, 508, 508, 192, $ 515, 507, 510, 512, 191, 512, 509, 509, 512, 190, $ 507, 509, 512, 509, 190, 510, 511, 507, 510, 190, ! 20 $ 508, 512, 509, 508, 190, 511, 512, 509, 514, 191, $ 508, 509, 507, 510, 193, 509, 508, 510, 509, 194, $ 509, 511, 507, 509, 191, 507, 509, 508, 510, 190, $ 510, 508, 507, 508, 191, 508, 511, 507, 509, 190, $ 507, 513, 507, 511, 191, 508, 510, 509, 509, 193, ! 30 $ 510, 508, 510, 515, 191, 508, 509, 509, 508, 190, $ 507, 513, 508, 512, 191, 507, 511, 507, 509, 193, $ 510, 507, 510, 510, 193, 509, 507, 508, 508, 192, $ 510, 507, 509, 511, 192, 511, 510, 509, 510, 193, $ 509, 508, 508, 512, 191, 507, 508, 508, 513, 189, ! 40 $ 509, 509, 509, 509, 190, 508, 508, 508, 508, 193, $ 510, 509, 508, 509, 189, 507, 513, 513, 513, 193, $ 511, 509, 510, 508, 192, 511, 509, 507, 508, 194, $ 509, 507, 508, 508, 190, 509, 508, 510, 508, 191, $ 507, 507, 508, 510, 189, 507, 507, 507, 509, 192, ! 50 $ 513, 509, 507, 511, 193, 513, 512, 514, 513, 190, $ 507, 507, 508, 509, 196, 508, 514, 508, 508, 191, $ 510, 508, 509, 509, 193, 508, 509, 512, 509, 189, $ 511, 510, 510, 510, 190, 509, 509, 508, 511, 192, $ 510, 508, 508, 508, 194, 507, 509, 509, 510, 195, ! 60 $ 509, 509, 507, 508, 195, 508, 509, 514, 508, 190, $ 511, 507, 510, 512, 190, 510, 509, 512, 508, 190, $ 512, 510, 509, 508, 190, 512, 508, 508, 509, 190, $ 508, 509, 507, 508, 192, 509, 509, 507, 511, 195, $ 509, 510, 509, 508, 190, 509, 508, 507, 511, 189, ! 70 $ 511, 508, 510, 511, 189, 514, 513, 511, 511, 190, $ 509, 509, 508, 511, 190, 511, 513, 509, 510, 191, $ 507, 507, 509, 509, 191, 508, 510, 511, 509, 198, $ 509, 508, 511, 508, 191, 510, 510, 507, 509, 192, $ 507, 507, 510, 510, 194, 509, 513, 509, 508, 190, ! 80 $ 509, 508, 508, 510, 195, 512, 507, 514, 514, 191, $ 508, 512, 514, 511, 192, 512, 507, 507, 511, 191, $ 511, 508, 508, 513, 190, 513, 507, 507, 508, 190, $ 507, 509, 508, 511, 191, 508, 513, 510, 508, 189, $ 510, 513, 507, 509, 190, 507, 508, 511, 510, 190, ! 90 $ 507, 508, 508, 511, 192, 512, 508, 509, 509, 191, $ 507, 509, 507, 509, 193, 511, 508, 507, 508, 193, $ 507, 509, 508, 512, 194, 509, 509, 508, 510, 191, $ 507, 508, 508, 508, 192, 507, 511, 509, 509, 193 / DATA ( CKLEN(I), I=501,1000 ) / $ 508, 507, 507, 513, 191, 509, 507, 507, 509, 193, ! 100 $ 509, 507, 509, 508, 190, 509, 508, 514, 510, 190, $ 512, 510, 509, 512, 190, 510, 507, 510, 508, 189, $ 507, 511, 508, 508, 191, 507, 511, 507, 510, 191, $ 508, 509, 508, 508, 192, 509, 511, 510, 512, 189, $ 511, 513, 511, 509, 189, 510, 507, 516, 508, 193, ! 110 $ 510, 507, 508, 509, 192, 510, 511, 510, 512, 190, $ 509, 507, 510, 510, 190, 511, 510, 507, 508, 190, $ 509, 507, 510, 508, 190, 511, 508, 508, 510, 191, $ 508, 513, 507, 511, 194, 512, 512, 507, 509, 192, $ 508, 508, 508, 510, 193, 509, 507, 507, 510, 191, ! 120 $ 508, 512, 507, 509, 194, 510, 510, 515, 513, 191, $ 511, 507, 507, 508, 189, 507, 507, 508, 508, 190, $ 507, 508, 509, 512, 190, 509, 508, 511, 509, 190, $ 510, 509, 507, 509, 196, 510, 508, 508, 509, 190, $ 509, 515, 510, 510, 191, 507, 515, 507, 508, 190, ! 130 $ 512, 514, 515, 508, 189, 507, 507, 507, 509, 194, $ 510, 512, 510, 510, 190, 508, 509, 508, 511, 192, $ 510, 509, 512, 508, 189, 510, 509, 508, 511, 191, $ 510, 508, 508, 511, 194, 510, 510, 508, 508, 193, $ 511, 508, 509, 508, 191, 507, 509, 509, 510, 191, ! 140 $ 509, 508, 510, 510, 191, 509, 513, 509, 509, 192, $ 507, 508, 508, 510, 192, 509, 507, 510, 510, 191, $ 512, 510, 509, 512, 190, 515, 508, 508, 510, 189, $ 507, 508, 510, 508, 195, 510, 507, 507, 514, 191, $ 510, 508, 508, 510, 191, 511, 509, 511, 510, 191, ! 150 $ 513, 507, 511, 508, 191, 507, 511, 510, 509, 190, $ 507, 507, 509, 510, 190, 511, 507, 507, 512, 193, $ 510, 511, 510, 515, 191, 510, 509, 509, 509, 191, $ 508, 511, 514, 508, 189, 507, 507, 507, 511, 191, $ 513, 509, 507, 509, 192, 511, 510, 508, 513, 189, ! 160 $ 507, 507, 508, 509, 192, 507, 510, 514, 510, 194, $ 508, 507, 508, 510, 194, 510, 509, 510, 509, 190, $ 509, 509, 512, 512, 190, 510, 508, 510, 513, 190, $ 507, 508, 513, 510, 190, 507, 507, 508, 508, 191, $ 512, 508, 508, 514, 192, 509, 509, 507, 509, 191, ! 170 $ 510, 507, 509, 509, 192, 510, 508, 508, 509, 190, $ 507, 510, 512, 515, 190, 509, 507, 513, 508, 194, $ 511, 509, 509, 515, 194, 508, 507, 512, 515, 191, $ 512, 509, 509, 508, 190, 508, 514, 511, 509, 189, $ 510, 510, 511, 512, 190, 510, 508, 508, 514, 192, ! 180 $ 509, 507, 507, 508, 191, 507, 507, 508, 515, 194, $ 509, 509, 507, 510, 193, 513, 513, 509, 512, 191, $ 510, 507, 510, 510, 195, 511, 508, 510, 511, 193, $ 510, 510, 511, 510, 191, 507, 509, 509, 511, 190, $ 508, 507, 508, 508, 191, 511, 510, 511, 509, 191, ! 190 $ 514, 507, 512, 511, 190, 507, 507, 510, 510, 190, $ 512, 510, 507, 513, 190, 507, 507, 509, 512, 190, $ 510, 509, 507, 513, 189, 507, 513, 507, 508, 191, $ 507, 510, 508, 510, 190, 508, 509, 515, 510, 0 / c c Initialize stuff IER(1) = 0 IER(2) = 0 ERRCNT = 0 DO I = 1, min(NN, MAXCKS) OK(I) = 0 END DO c mark last sols if NN>MAXCKS IF (NN .gt. MAXCKS) THEN DO I = MAXCKS+1, MAXANS OK(I) = -1 ENDDO ENDIF c c Expect 5 solutions for each buf, 4 for the last buf NSOLS = 5 * NBUFS - 1 c c Check for correct number of solutions IF ( NN .NE. NSOLS) IER(1) = NSOLS c c Check for correct solutions c DO I = 1, MIN(NN, MAXCKS) IF ( (START(I).NE.CKSTART(I)) .OR. (LENTH(I).NE.CKLEN(I)) )THEN ERRCNT = ERRCNT + 1 OK(I) = 1 ENDIF ENDDO c c mark last sols if NN>MAXCKS DO I = MAXCKS+1, NN ERRCNT = ERRCNT + 1 OK(I) = 1 ENDDO c IF (ERRCNT .GT. 0) IER(2) = ERRCNT c RETURN END