Exemple #1
0
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
}
Exemple #2
0
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
}
Exemple #3
0
int
s_rsfe_mp (cilist *a, unit **fu)
{
  cilist64 dst;
  get_cilist64(&dst, a);
  return s_rsfe_com(&dst, fu);
}
Exemple #4
0
int
s_rsfe (cilist *a)
{
  cilist64 dst;
  get_cilist64(&dst, a);
  return s_rsfe_com(&dst, &f77curunit);
}
Exemple #5
0
int
s_rsfe64_mp (cilist64 *a, unit **fu)
{
    return( s_rsfe_com( a, fu) );
}
Exemple #6
0
int
s_rsfe64 (cilist64 *a)
{
    return( s_rsfe_com( a, &f77curunit) );
}