Esempio n. 1
0
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
}
Esempio n. 2
0
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
}
Esempio n. 3
0
int32 s_wsfe (cilist *a)
{

  cilist64 dst;
  get_cilist64(&dst, a);
  return s_wsfe_com(&dst, &f77curunit);
}
Esempio n. 4
0
int s_wsfe64_mp (cilist64 *a, unit **fu)
{
    return( s_wsfe_com( a, fu ) );
}
Esempio n. 5
0
int s_wsfe64 (cilist64 *a)
{
    return( s_wsfe_com( a, &f77curunit ) );
}
Esempio n. 6
0
int32 s_wsfe_mp (cilist *a, unit **fu)
{
  cilist64 dst;
  get_cilist64(&dst, a);
  return s_wsfe_com(&dst, fu);
}