| program common1 !<<<<< 2, 13, 2, 18,, pass | |
| common /block/ a_common, b_common, c_common, d_common, e_common,& | |
| f_common, g_common, h_common, i_common, j_common,& | |
| k_common, l_common, m_common, n_common, o_common,& | |
| p_common, q_common, r_common, s_common, t_common,& | |
| u_common, v_common, w_common, x_common, y_common, z_common,& | |
| a1_common, b1_common, c1_common, d1_common, e1_common, f1_common,& | |
| g1_common, h1_common, i1_common, j1_common, k1_common, l1_common,& | |
| m1_common, n1_common, o1_common, p1_common, q1_common, r1_common,& | |
| s1_common, t1_common, u1_common, v1_common, w1_common, x1_common,& | |
| y1_common, z1_common | |
| end program common1 | |
| subroutine s_common | |
| common /block/ a_common, b_common | |
| end subroutine |