SB_GLS1(
	long *,
	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 *, 
     long * , 
     long *) ; 


SB_GLS2(
     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 * ,
     long * ,
     long * ) ;