! shift and scale for 70N structrure 
!        Real(dp),parameter:: scal(17) = 1.0d0 ,shift(17) = 1.0d0
       Real(dp),parameter:: scal(17) = & 
           [0.00401, 0.00265, 0.00335, 1.19496, 3.79876, 0.32139, 0.46267, & 
            1.36249, 0.90118, 0.94406, 0.29014, 0.72172, 1.25435, 2.09880, &
            0.93696, 1.69131, 0.75050 ]
       Real(dp),parameter:: shift(17) = & 
          [-0.00018,-0.00018,-0.00002,-0.03463,-0.74584, 0.09806, 0.16350, &
          -0.96733,-0.62850, 0.57182,-0.00110, 0.10584, 0.29949,-0.82418,  &
           0.57450, 0.04471, 0.28142 ]