integer maxp_int
       parameter (maxp_int =10)
       integer maxt_int
       parameter (maxt_int = 5000)
       integer ntab_integr
       integer npoint_int
       real delta_integr,x_0_integr
       REAL  X_POINTS_int(maxp_int,MAXT_int),
     &       W_POINTS_int(maxp_int,MAXT_int)
       common /gaussian_int/ntab_integr,delta_integr,
     &                npoint_int,
     &                x_0_integr,
     &                x_points_int,w_points_int