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 |