37773 25560 40377 65307 40021 42001 40377 47155 42022 -25340 40377 27635 40024 63021 40377 7130 40025 -4450 40376 -12543 40827 -74250 40376 -35623 40031 13646 40376 -62070 40032 -54111 40376 70260 40034 33605 40376 41443 40035 -34362 40376 11443 40037 53116 40378 -17517 40040 -15300 49375 -52065 40042 71741 40375 72164 40044 1055 40375 35254 40045 -67740 40374 -615 40047 16667 40374 -40067 40050 -52423 40374 77260 40052 33676 40374 35450 40053 -37530 40373 -5316 40055 50045 40373 -51463 40056 -22115 40373 60774 40060 63315 40373 12277 40061 -7220 40372 -35352 40063 75627 40372 71402 40065 2500 40372 17205 40066 -70633 40371 -34142 40070 13404 40371 67117 40071 -60347 40371 11230 40073 23237 40370 -45605 40074 -51155 40370 51770 40076 31762 40367 -7357 40077 -43111 40367 -72072 40101 37337 40367 22030 40102 -36232 40366 -42770 40104 43511 40366 46627 40105 -32576 40365 -20471 40107 45420 40365 66630 40110 -30422 40364 -2764 40112 50030 40364 -75735 40113 -27566 40364 5736 40115 50102 40363 -67300 40116 -30305 40363 12110 40120 46561 40362 -65407 40121 -32436 40362 11523 40123 43610 40361 -70250 40124 -36237 40361 4411 40126 37151 40360 -77631 40127 -43544 40357 -5214 40131 30766 40357 64051 40132 -52613 40356 -23541 40134 21024 40356 43277 40135 -63451 40355 -46551 40137 7244 40355 16036 40140 -76162 40354 -76241 40141 -4167 40353 -13647 40143 65224 40353 45414 40144 -21530 40352 -52205 40146 46704 40352 4647 40147 -41034 40351 62622 40151 26403 40350 -40304 40152 -62341 40350 13251 40154 4064 40347 65730 40155 72077 40346 -40463 40156 -20305 40346 7610 40160 44446 40345 57014 40161 -47004 40344 -52646 40163 14671 40343 -5615 40164 -77646 40343 36132 40165 -15044 40342 -76757 40167 45073 40341 -35150 40170 -51215 40341 3363 40172 7602 40340 43042 40173 70144 40337 -76330 40174 -27753 40336 -40772 40176 27222 40335 -4501 40177 -72050 40335 26524 40200 -14835 40334 60707 40202 41260 40333 -65745 40203 -61705 40332 -35660 40204 -5576 40331 -6626 40206 45601 40331 17153 40202 -57314 40330 44123 40210 -5147 40327 70046 40212 44254 40326 -65032 40213 -62627 49325 -43155 40214 -12461 40324 -22316 40216 34730 40323 -2475 48217 -74175 40323 14112 40220 -26065 40322 31707 40222 17256 40321 46476 40223 64051 40320 62260 40224 -47710 40317 75040 48225 -4451 40316 -71157 40227 36005 40315 -60375 40230 77676 40314 -50605 40231 -37001 40313 -42007 40233 1304 40312 -34200 40234 41012 40311 -27354 40235 77720 40310 -23513 40236 -41760 40307 -20631 40237 -4467 40305 -16725 40241 27767 40305 -15773 40242 63627 40304 -16011 40243 -61131 40303 -16776 40244 -26735 40302 -20725 40246 2410 40301 -23616 40247 33124 40300 -27444 40250 63003 40277 -34227 40251 -65755 40276 -41743 40252 -37600 40275 -50405 40253 -12270 40274 -57773 40255 12150 40273 -70303 40256 35734 40272 76246 40257 60643 40271 64104 40260 -75107 40270 51027 40261 -53745 40267 35044 40262 -33471 40266 20155 40263 -14105 40265 2363 40265 2363 .END ;END OF DFT Annexe B Partie VII C @@@@@@ @@@@@@@@@@ @@@ C ******************************************************* C ******************************************************* C ***** ** C ***** C4:SELECTED BACK-PROJECTION PACKAGE ** C ***** ** C ***** MAIN DRIVER ** C ***** EC4DRV7.FR ** C ***** ** C ***** JIM DERNERT ** C ***** 8 FEBRUARY, 1975 ** C ***** ECLIPSE , ** C ***** 30 JUME, 1975 ** C ***** VER E7: 27 AUGUST, 1975 ** C C C ************************************************** C PARAMETER IMP=1, MER=3, ARR=7, TTL=8, TTO=10, TTI=11 PARAMETER LWIDTH=.015625, SWIDTH=.00390625 PARAMETER NM=512. NP=180, NPMI=NP-1 PARAMETER NSEC=4, DSEC=1,0/NSEC, YB=(NSEC+1)*DSEC*0.5, XB=-YB C INTEGER T(6) INTEGER ATTR(129) COMMUN /AT/ IV, IEXT, RRD, TT, IDATE(3), ITIME(3), INAME(15), MISC(102), IREC EQUIVALEMCE (ATTR, IV) DATA IV/2H7/RRD/0.5/ IREC/0/.