int s_rsfe_mp (cilist *a, unit **fu) { #if 11 cilist64 dst; get_cilist64(&dst, a); return s_rsfe_com(&dst, fu); #else return( s_rsfe_com( a, fu) ); #endif }
int s_rsfe (cilist *a) { #if 11 cilist64 dst; get_cilist64(&dst, a); return s_rsfe_com(&dst, &f77curunit); #else return( s_rsfe_com( a, &f77curunit) ); #endif }
int s_rsfe_mp (cilist *a, unit **fu) { cilist64 dst; get_cilist64(&dst, a); return s_rsfe_com(&dst, fu); }
int s_rsfe (cilist *a) { cilist64 dst; get_cilist64(&dst, a); return s_rsfe_com(&dst, &f77curunit); }
int s_rsfe64_mp (cilist64 *a, unit **fu) { return( s_rsfe_com( a, fu) ); }
int s_rsfe64 (cilist64 *a) { return( s_rsfe_com( a, &f77curunit) ); }