s42b[w_] := Module[{j1, j2, j3, a, j4, j5, j6, j7, j8, j9, j10, j11, j12, 
      j13, j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, 
      j27, j28, j29, j30, j31, j32, j33, j34, j35, j36, j37, j38, j39, j40, 
      j41, j42}, {j1, j2, j3, j4, j5, j6, j7, j8, j9, j10, j11, j12, j13, 
        j14, j15, j16, j17, j18, j19, j20, j21, j22, j23, j24, j25, j26, j27, 
        j28, j29, j30, j31, j32, j33, j34, j35, j36, j37, j38, j39, j40, j41, 
        j42} = w; a = {x1 -> j1, x2 -> j2, x3 -> j3, x4 -> j4, x5 -> j5, 
        x6 -> j6, x7 -> j7, x8 -> j8, x9 -> j9, x10 -> j10, x11 -> j11, 
        x12 -> j12, x13 -> j13, x14 -> j14, x15 -> j15, x16 -> j16, 
        x17 -> j17, x18 -> j18, x19 -> j19, x20 -> j20, x21 -> j21, 
        x22 -> j22, x23 -> j23, x24 -> j24, x25 -> j25, x26 -> j26, 
        x27 -> j27, x28 -> j28, x29 -> j29, x30 -> j30, x31 -> j31, 
        x32 -> j32, x33 -> j33, x34 -> j34, x35 -> j35, x36 -> j36, 
        x37 -> j37, x38 -> j38, x39 -> j39, x40 -> j40, x41 -> j41, 
        x42 -> j42}; Return[a]; ]