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

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

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

revision 1.20 by pam-fi, Tue Jan 15 14:22:45 2008 UTC revision 1.23 by pam-fi, Fri Dec 5 08:26:47 2008 UTC
# Line 1100  c$$$      print*,'POSXY (dopo) ',vout Line 1100  c$$$      print*,'POSXY (dopo) ',vout
1100           YM(IP) = -100.         !0.           YM(IP) = -100.         !0.
1101           XM_A(IP) = -100.         !0.           XM_A(IP) = -100.         !0.
1102           YM_A(IP) = -100.         !0.           YM_A(IP) = -100.         !0.
1103  c         ZM_A(IP) = 0           ZM_A(IP) = fitz(nplanes-ip+1) !init to mech. position
1104           XM_B(IP) =  -100.         !0.           XM_B(IP) =  -100.         !0.
1105           YM_B(IP) =  -100.         !0.           YM_B(IP) =  -100.         !0.
1106  c         ZM_B(IP) = 0           ZM_B(IP) = fitz(nplanes-ip+1) !init to mech. position
1107           RESX(IP) = 1000.       !3.d-4           RESX(IP) = 1000.       !3.d-4
1108           RESY(IP) = 1000.       !12.d-4           RESY(IP) = 1000.       !12.d-4
1109           XGOOD(IP) = 0           XGOOD(IP) = 0
# Line 1252  c$$$     $     ,' - CHI ',CHI,' - X0,AX, Line 1252  c$$$     $     ,' - CHI ',CHI,' - X0,AX,
1252        AL(2) = Y0        AL(2) = Y0
1253        tath  = sqrt(AY**2+AX**2)        tath  = sqrt(AY**2+AX**2)
1254        AL(3) = tath/sqrt(1+tath**2)        AL(3) = tath/sqrt(1+tath**2)
 c$$$      IF(AX.NE.0)THEN  
 c$$$         AL(4)= atan(AY/AX)  
 c$$$      ELSE  
 c$$$         AL(4) = acos(-1.)/2  
 c$$$         IF(AY.LT.0)AL(4) = AL(4)+acos(-1.)  
 c$$$  ENDIF  
 c$$$      IF(AX.LT.0)AL(4)= acos(-1.)+ AL(4)  
 c$$$      AL(4) = -acos(-1.) + AL(4) !from incidence direction to tracking ref.sys.  
   
 c$$$      AL(4) =  0.  
 c$$$      IF(AX.NE.0.AND.AY.NE.0)THEN  
 c$$$         AL(4)= atan(AY/AX)  
 c$$$      ELSEIF(AY.EQ.0)THEN  
 c$$$         AL(4) = 0.  
 c$$$         IF(AX.LT.0)AL(4) = AL(4)+acos(-1.)          
 c$$$      ELSEIF(AX.EQ.0)THEN  
 c$$$         AL(4) = acos(-1.)/2  
 c$$$         IF(AY.LT.0)AL(4) = AL(4)+acos(-1.)  
 c$$$      ENDIF  
 c$$$      IF(AX.LT.0)AL(4)= acos(-1.)+ AL(4)  
 c$$$      AL(4) = -acos(-1.) + AL(4) !from incidence direction to tracking ref.sys.  
   
 c$$$      AL(4)=0.  
 c$$$      IF( AX.NE.0.OR.AY.NE.0. ) THEN  
 c$$$         AL(4) = ASIN(AY/SQRT(AX**2+AY**2))  
 c$$$         IF(AX.LT.0.) AL(4) = ACOS(-1.0)-AL(4)  
 c$$$      ENDIF  
1255    
1256        AL(4)=0.        AL(4)=0.
1257        IF( AX.NE.0.OR.AY.NE.0. ) THEN        IF( AX.NE.0.OR.AY.NE.0. ) THEN
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.23