| 55 |
$ .false.) then |
$ .false.) then |
| 56 |
C++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
C++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| 57 |
C--------------------------------------compressed mode |
C--------------------------------------compressed mode |
| 58 |
|
if(debug)print*,'DSP #',DSPn,' --> compressed ' |
| 59 |
is = 0 |
is = 0 |
| 60 |
il = 0 |
il = 0 |
| 61 |
prec_ind = 0 |
prec_ind = 0 |
| 252 |
C++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
C++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
| 253 |
C--------------------------------------------full mode |
C--------------------------------------------full mode |
| 254 |
|
|
| 255 |
|
if(debug)print*,'DSP #',DSPn,' --> full ' |
| 256 |
|
|
| 257 |
do i=1,3 !loop over ladder |
do i=1,3 !loop over ladder |
| 258 |
do j=1,1024 !loop over strips |
do j=1,1024 !loop over strips |