| 1 |
C |
C |
| 2 |
C Written by Emiliano Mocchiutti and Mirko Boezio |
C Written by Emiliano Mocchiutti and Mirko Boezio |
| 3 |
C |
C |
| 4 |
C * Version: 3.4.06 * |
C * Version: 3.4.07 * |
| 5 |
C |
C |
| 6 |
C Changelog: |
C Changelog: |
| 7 |
C |
C |
| 8 |
|
C 3.4.06 - 3.4.07: (2006-06-29) save CRC values in calselftrig(section,1) and calselftrig(section,2) in case of CRC errors |
| 9 |
|
C |
| 10 |
C 3.4.05 - 3.4.06: (2005-01-12) section order wrong in CLEARSEC, fixed. |
C 3.4.05 - 3.4.06: (2005-01-12) section order wrong in CLEARSEC, fixed. |
| 11 |
C |
C |
| 12 |
C 3.4.04 - 3.4.05: (2005-01-05) XE is section y odd not even, fixed. |
C 3.4.04 - 3.4.05: (2005-01-05) XE is section y odd not even, fixed. |
| 786 |
C |
C |
| 787 |
call clearsec |
call clearsec |
| 788 |
C |
C |
| 789 |
|
calselftrig(k,1) = check |
| 790 |
|
calselftrig(k,2) = vect(length) |
| 791 |
|
c |
| 792 |
if (ke.eq.1.and.headcor.ne.2) then |
if (ke.eq.1.and.headcor.ne.2) then |
| 793 |
ic = 10 |
ic = 10 |
| 794 |
elseif (headcor.eq.2) then |
elseif (headcor.eq.2) then |