コード例 #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
}
コード例 #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
}
コード例 #3
0
ファイル: wsfe.c プロジェクト: sharugupta/OpenUH
int32 s_wsfe (cilist *a)
{

  cilist64 dst;
  get_cilist64(&dst, a);
  return s_wsfe_com(&dst, &f77curunit);
}
コード例 #4
0
ファイル: wsfe.c プロジェクト: sharugupta/OpenUH
int s_wsfe64_mp (cilist64 *a, unit **fu)
{
    return( s_wsfe_com( a, fu ) );
}
コード例 #5
0
ファイル: wsfe.c プロジェクト: sharugupta/OpenUH
int s_wsfe64 (cilist64 *a)
{
    return( s_wsfe_com( a, &f77curunit ) );
}
コード例 #6
0
ファイル: wsfe.c プロジェクト: sharugupta/OpenUH
int32 s_wsfe_mp (cilist *a, unit **fu)
{
  cilist64 dst;
  get_cilist64(&dst, a);
  return s_wsfe_com(&dst, fu);
}