1 |
C |
C |
2 |
C Written by Mirko Boezio and Emiliano Mocchiutti |
C Written by Mirko Boezio and Emiliano Mocchiutti |
3 |
C |
C |
4 |
C * Version: 3.1.2 * |
C * Version: 3.1.3 * |
5 |
|
C |
6 |
|
C 3.1.2 - 3.1.3: (2006-06-29) save in calped(section,1,1) and calped(section,1,2) the CRC values (transmitted and calculated) in case of CRC errors |
7 |
C |
C |
8 |
C 3.1.1 - 3.1.2: (2005-12-02) recognize RAW mode command and exit with error 130. |
C 3.1.1 - 3.1.2: (2005-12-02) recognize RAW mode command and exit with error 130. |
9 |
C |
C |
301 |
enddo |
enddo |
302 |
if (check.ne.vect(length)) then |
if (check.ne.vect(length)) then |
303 |
ERROR(contr) = 132 |
ERROR(contr) = 132 |
304 |
|
calped(k,1,1) = check |
305 |
|
calped(k,1,2) = vect(length) |
306 |
goto 200 |
goto 200 |
307 |
endif |
endif |
308 |
C |
C |