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 |