C++ (Cpp) ONE_FORTSTRING_CREATEの例

コード例 #1

void CCTK_FCALL cctk_isimplementationcompiled_
(int *retval, ONE_FORTSTRING_ARG)
{
    ONE_FORTSTRING_CREATE(name)
    *retval = CCTK_IsImplementationCompiled(name);
    free(name);
}

コード例 #2

void CCTK_FCALL cctk_isimplementationactive_
(int *retval, ONE_FORTSTRING_ARG)
{
    ONE_FORTSTRING_CREATE(name)
    *retval = CCTK_IsImplementationActive(name);
    free(name);
}

コード例 #3

void CCTK_FCALL cctk_isthorncompiled_
(int *retval, ONE_FORTSTRING_ARG)
{
    ONE_FORTSTRING_CREATE(name)
    *retval = CCTK_IsThornCompiled(name);
    free(name);
}

コード例 #4

void CCTK_FCALL cctk_createdirectory_
                           (int *ierr, int *mode, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE (dirname)
  *ierr = CCTK_CreateDirectory (*mode, dirname);
  free (dirname); 
}

コード例 #5

void CCTK_FCALL cctk_syncgroupwithvar_
                           (int *ierror, cGH *GH, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE (varname);
  *ierror = CCTK_SyncGroupWithVar (GH, varname);
  free (varname);
}

コード例 #6

void CCTK_FCALL setcartsymgn_
     (int *ierr, cGH *GH, int *sym, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE(gn)
  *ierr = SetCartSymGN(GH, sym, gn);
  free(gn);
}

コード例 #7

int CCTK_FCALL cctk_isthornactive_
(ONE_FORTSTRING_ARG)
{
    int retval;
    ONE_FORTSTRING_CREATE(name)
    retval = CCTK_IsThornActive(name);
    free(name);
    return retval;
}