Esempio n. 1
0
int
s_wsue_mp (cilist *a, unit **fu)
{
    cilist64 dst;
    get_cilist64(&dst, a);
    return s_wsue_com(&dst, fu);
}
Esempio n. 2
0
int
s_wsue (cilist *a)
{
    cilist64 dst;
    get_cilist64(&dst, a);
    return s_wsue_com(&dst, &f77curunit);
}
Esempio n. 3
0
int
s_xsfe_mp (cilist *a, unit **fu)
{
    cilist64 a64;
    get_cilist64( &a64, a );
    return( s_xsfe64_mp( &a64, fu ) );
}
Esempio n. 4
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. 5
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
}