real Bigcal_SHIFT(4) !  position in Z-beta detector direction
      real SANE_TRANSFORM_MATRIX_THETA_40(15)
      real SANE_TRANSFORM_MATRIX_PHI_40(15)
      real SANE_TRANSFORM_MATRIX_THETA_140(15)
      real SANE_TRANSFORM_MATRIX_PHI_140(15)

      data Bigcal_SHIFT /0.0, 0.0, 335.0, 40.0/


C-- For theta_Bfield = -80
c$$$c$$$      data SANE_TRANSFORM_MATRIX_THETA / 
c$$$c$$$     +      8.954989885527,    -52.322022215031,     -8.125157610488,
c$$$c$$$     +    -15.099229313517,   -11.536627706931,
c$$$c$$$     +      6.980520496970,     -8.823400271073,     50.115584605204,
c$$$c$$$     +    -69.446127196461,   -12.820800227383,
c$$$c$$$     +    -25.942096395685,      8.891673492473,     30.891093004214,
c$$$c$$$     +    -36.605307127974
c$$$c$$$     +     / 
c$$$c$$$
c$$$c$$$       data SANE_TRANSFORM_MATRIX_PHI /
c$$$c$$$     +      7.470639002137 ,  -36.605903733126 ,   -6.998910201537,
c$$$c$$$     +     -2.417831848314 ,  -14.500067103677,
c$$$c$$$     +      5.204917717101 ,   -1.330451994601 ,   56.602266441152,
c$$$c$$$     +    -32.282139538485 ,  -22.595216655477,
c$$$c$$$     +     20.196650742900 ,    5.150733310465,     6.375735420161 ,
c$$$c$$$     +   -51.913685856027  ,  21.392423278086,
c$$$c$$$     +      4.576496983325 ,    4.146671236893,    36.956201282800 ,
c$$$c$$$     +     9.218205540036  ,   4.837818693829,
c$$$c$$$     +    -23.427355916721 ,  -24.275870804138,    39.048859857479 ,
c$$$c$$$     +   -21.758853529098  ,  38.609159237463,
c$$$c$$$     +     -6.035862663970 ,   38.451728943019,   -28.688878376038 ,
c$$$c$$$     +   -10.399768713017  ,  -6.116900513685,
c$$$c$$$     +    -12.230906631612 ,    6.032171278137 ,    6.804895982291,
c$$$c$$$     +      9.186753379980 ,    7.304985866075,
c$$$c$$$     +     11.309130135485 ,    7.639564605686 ,  -12.590201796514 
c$$$c$$$     +     /

      data SANE_TRANSFORM_MATRIX_PHI_40 /
     ,   -24.4456550,44.0859387,  1.1798595, -22.0258182,     0.4159200,
     ,    -1.0359111, 0.9421428, 40.1559399,   1.0081577,    -0.0248947,
     ,    -0.0008564,-0.0001309,  2.8715356,  -0.0095721,     0.0102546
     +     /
      
      data SANE_TRANSFORM_MATRIX_THETA_40 /
     ,   -17.9308751,42.3446624,-26.3464316,-31.3757069,    -2.9350332,
     ,   -25.8282740, 0.4264009, 16.5368290, -1.0409810,    -0.0124227,
     ,    -0.0003768, 0.0000960, 1.6162072, -0.0400821,     0.0062445
     +     /
     

C-- For theta_Bfield = -180
      data SANE_TRANSFORM_MATRIX_theta_140 /
     ,     0.9238331,34.0284043, 45.6789134, -91.9746380,   -27.3401779,
     ,   -96.2816388,3.5503215,  6.2019952,  14.0425329,    -0.0035149,
     ,    -0.0005441,0.0000155, 0.5347687,   0.2220638,     0.0183989
     +     /
      
      data SANE_TRANSFORM_MATRIX_PHI_140 /
     ,   -22.5970935,-146.9575610,-45.9046218,93.2545683,   -16.1096556,
     ,    41.9383045,0.5907353,12.8165691,     0.2722663,    -0.0057392,
     ,    -0.0003326,0.0000074,2.1697186,    -0.0500020,    -0.0014784

     +     /