SB_RGLSk(
     long ,
	 long *,
	 double *,
     double *,
     long ,
     long *,
     long *,
     long  ,
     long ,
     long ,
     long *,
     long *,
     long *,
     long *,
     long *,
     long ,
     long ,
     long ,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long *,
     long ,
     long *,
     long *,
     long *,
     long *) ;