int s_wsue_mp (cilist *a, unit **fu) { cilist64 dst; get_cilist64(&dst, a); return s_wsue_com(&dst, fu); }
int s_wsue (cilist *a) { cilist64 dst; get_cilist64(&dst, a); return s_wsue_com(&dst, &f77curunit); }
int s_xsfe_mp (cilist *a, unit **fu) { cilist64 a64; get_cilist64( &a64, a ); return( s_xsfe64_mp( &a64, fu ) ); }
int32 s_wsfe_mp (cilist *a, unit **fu) { #if 11 cilist64 dst; get_cilist64(&dst, a); return s_wsfe_com(&dst, fu); #else return( s_wsfe_com( a, fu ) ); #endif }
int32 s_wsfe (cilist *a) { #if 11 cilist64 dst; get_cilist64(&dst, a); return s_wsfe_com(&dst, &f77curunit); #else return( s_wsfe_com( a, &f77curunit ) ); #endif }