예제 #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);
}