/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/filladc.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/filladc.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pam-fi, Thu May 24 16:45:48 2007 UTC revision 1.9 by pam-fi, Tue Aug 7 13:56:29 2007 UTC
# Line 363  C--------------------------------------- Line 363  C---------------------------------------
363    
364        if(flag.ne.0.and.flag.ne.1) then        if(flag.ne.0.and.flag.ne.1) then
365  c        print*,'compdecode --> error on uncompression: flag=',flag  c        print*,'compdecode --> error on uncompression: flag=',flag
366          errflag=1.           errflag=1.
367        endif        endif
368        if(flag.eq.0) then        ! valore ADC        if(flag.eq.0) then        ! valore ADC
369          tipo=0           tipo=0
370          info=iand(word,z'0fff')           info=iand(word,z'0fff')
371        endif        endif
372        if(flag.eq.1) then        ! indirizzo OR fine vista        if(flag.eq.1) then        ! indirizzo OR fine vista
373          info=iand(word,z'03ff')          info=iand(word,z'03ff')
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23