/[PAMELA software]/yoda/techmodel/forroutines/tracker/readraw/trkunpack.f
ViewVC logotype

Diff of /yoda/techmodel/forroutines/tracker/readraw/trkunpack.f

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

revision 6.0 by kusanagi, Tue Feb 7 17:11:11 2006 UTC revision 6.1 by kusanagi, Mon Feb 27 09:25:41 2006 UTC
# Line 500  C     ---------------------------------- Line 500  C     ----------------------------------
500        signcluster_dat(3) = iand(header(12),z'03ff')        signcluster_dat(3) = iand(header(12),z'03ff')
501        fc_dat = ishft(iand(header(13),z'0300'),-8)        fc_dat = ishft(iand(header(13),z'0300'),-8)
502        compressiontime_dat = iand(header(13),z'00ff')        compressiontime_dat = iand(header(13),z'00ff')
503        fl5_dat = ishft(iand(header(14),z'0300'),-8)  c      fl5_dat = ishft(iand(header(14),z'0300'),-8)
504        fl4_dat = ishft(iand(header(14),z'0300'),-6)  c      fl4_dat = ishft(iand(header(14),z'0300'),-6)
505        fl3_dat = ishft(iand(header(14),z'0300'),-4)  c      fl3_dat = ishft(iand(header(14),z'0300'),-4)
506        fl2_dat = ishft(iand(header(14),z'0300'),-2)  c      fl2_dat = ishft(iand(header(14),z'0300'),-2)
507        fl1_dat = iand(header(14),z'0300')  c      fl1_dat = iand(header(14),z'0300')
508        fl6_dat = ishft(iand(header(15),z'0300'),-8)  c      fl6_dat = ishft(iand(header(15),z'0300'),-8)
509          fl5_dat = iand(ishft(header(14),-8),z'0003')
510          fl4_dat = iand(ishft(header(14),-6),z'0003')
511          fl3_dat = iand(ishft(header(14),-4),z'0003')
512          fl2_dat = iand(ishft(header(14),-2),z'0003')
513          fl1_dat = iand(header(14),z'0003')
514          fl6_dat = iand(ishft(header(15),-8),z'0003')
515        checksum_dat = iand(header(15),z'00ff')        checksum_dat = iand(header(15),z'00ff')
516    
517  c-----------------------------------------------------------  c-----------------------------------------------------------
Legend:
Removed from v.6.0  
changed lines
  Added in v.6.1
  ViewVC Help
Powered by ViewVC 1.1.23