/[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.11 by mocchiut, Thu Jan 16 15:29:53 2014 UTC revision 1.12 by mocchiut, Fri Jan 17 12:56:50 2014 UTC
# Line 126  c                  return Line 126  c                  return
126       $                    nst(is).gt.0.and.       $                    nst(is).gt.0.and.
127       $                    nst(is).le.nstrips_va1.and.       $                    nst(is).le.nstrips_va1.and.
128       $                    .true.)then       $                    .true.)then
129                          newVAL=oldVAL-                          newVAL=oldVAL+nint(
130       $                       nint(pedestal_t(DSPn,nvk(is),nst(is)) ! EM GCC4.7       $                       -pedestal_t(DSPn,nvk(is),nst(is)) ! EM GCC4.7
131       $                       +pedestal_t(DSPn,nvk(js),nst(js)),2) ! EM GCC4.7       $                       +pedestal_t(DSPn,nvk(js),nst(js)),2) ! EM GCC4.7
132                          newVAL=max(int(0,2),newVAL) ! EM GCC4.7                          newVAL=max(int(0,2),newVAL) ! EM GCC4.7
133                          newVAL=min(int(4095,2),newVAL)                          newVAL=min(int(4095,2),newVAL)
# Line 180  c                        GOOD1(DSPn) = G Line 180  c                        GOOD1(DSPn) = G
180       $                          nst(is).gt.0.and.       $                          nst(is).gt.0.and.
181       $                          nst(is).le.nstrips_va1.and.       $                          nst(is).le.nstrips_va1.and.
182       $                          .true.)then       $                          .true.)then
183                                newVAL=oldVAL-nint( ! EM GCC4.7                                newVAL=oldVAL+nint( ! EM GCC4.7
184       $                             -pedestal_t(DSPn,nvk(is),nst(is))       $                             -pedestal_t(DSPn,nvk(is),nst(is))
185       $                             +pedestal_t(DSPn,nvk(js),nst(js)),2)! EM GCC4.7       $                             +pedestal_t(DSPn,nvk(js),nst(js)),2)! EM GCC4.7
186                                newVAL=max(int(0,2),newVAL)! EM GCC4.7                                newVAL=max(int(0,2),newVAL)! EM GCC4.7
# Line 372  C Line 372  C
372  C      flag=iand(word,z'f000')  C      flag=iand(word,z'f000')
373        hexmask=z'7000'        hexmask=z'7000'
374        hexmask=IBSET(hexmask,15) ! it is not possible to set the sign bit with F000, we must set the sign bit with ibset        hexmask=IBSET(hexmask,15) ! it is not possible to set the sign bit with F000, we must set the sign bit with ibset
375    c      print *,' hexmask ',hexmask
376    c      write(*,22)hexmask
377    c 22   FORMAT(2X,'hexmask: ',2X,Z8)
378        flag=iand(word,hexmask)        flag=iand(word,hexmask)
379  C END EM  C END EM
380        flag=ishft(flag,-12)        flag=ishft(flag,-12)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.23