Example #1
0
void CCTK_FCALL cctk_isimplementationcompiled_
(int *retval, ONE_FORTSTRING_ARG)
{
    ONE_FORTSTRING_CREATE(name)
    *retval = CCTK_IsImplementationCompiled(name);
    free(name);
}
Example #2
0
void CCTK_FCALL cctk_isimplementationactive_
(int *retval, ONE_FORTSTRING_ARG)
{
    ONE_FORTSTRING_CREATE(name)
    *retval = CCTK_IsImplementationActive(name);
    free(name);
}
Example #3
0
void CCTK_FCALL cctk_isthorncompiled_
(int *retval, ONE_FORTSTRING_ARG)
{
    ONE_FORTSTRING_CREATE(name)
    *retval = CCTK_IsThornCompiled(name);
    free(name);
}
Example #4
0
void CCTK_FCALL cctk_createdirectory_
                           (int *ierr, int *mode, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE (dirname)
  *ierr = CCTK_CreateDirectory (*mode, dirname);
  free (dirname); 
}
Example #5
0
void CCTK_FCALL cctk_syncgroupwithvar_
                           (int *ierror, cGH *GH, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE (varname);
  *ierror = CCTK_SyncGroupWithVar (GH, varname);
  free (varname);
}
Example #6
0
void CCTK_FCALL setcartsymgn_
     (int *ierr, cGH *GH, int *sym, ONE_FORTSTRING_ARG)
{
  ONE_FORTSTRING_CREATE(gn)
  *ierr = SetCartSymGN(GH, sym, gn);
  free(gn);
}
Example #7
0
int CCTK_FCALL cctk_isthornactive_
(ONE_FORTSTRING_ARG)
{
    int retval;
    ONE_FORTSTRING_CREATE(name)
    retval = CCTK_IsThornActive(name);
    free(name);
    return retval;
}