Error 401: Not Authorized

Check/Modify Parameters

From this page you can check the values of all parameters for \n" "the simulation, and modify any parameters which have been \n" "designated as steerable

Parameters can be viewed for all Active Thorns, that is,\n" "for thorns which have been activated in the parameter file for the\n" " simulation. \n" "Select one of the active thorns for this simulation from the list \n" "below to view all of its parameters

Steerable parameters can be identified by the presence of a \n" "form input box, to change the value of a parameter, simply edit \n" "the value in the box and press the submit button to register the \n" "new values.

\n" "\n" "\n"); for (i = 0; i < CCTK_NumCompiledThorns (); i++) { const char *thorn = CCTK_CompiledThorn (i); if (CCTK_IsThornActive (thorn)) { SetToCString(message, "\n\n\n\n"); HTTP_SendString(request, message); } } HTTP_Send(request,"

Thorn Name	Implementation
"); ConcatCString(message, thorn); ConcatCString(message, "	"); ConcatCString(message, CCTK_ThornImplementation(thorn)); ConcatCString(message, "

Cactus Parameters Request : "); ConcatCString(message, thorn); ConcatCString(message, "

Parameters:

"); ConcatCString(menu, menuthorn); ConcatCString(menu, "

Thorn "); ConcatCString(message, thorn); ConcatCString(message, " is not active !!!

Check/Modify Parameters

Thorn "); ConcatCString(message, thorn); ConcatCString(message, "

Parameters in Cactus can be either fixed or steerable. \n" "Steerable parameters are those which can be modified during a simulation.\n" "To change steerable parameters, edit the values and press " " the submit button.\n" "Before applying the new parameter value, Cactus will check that the\n" "parameter lies in the allowed range. \nNote that there" " is currently no log of parameters which have been modified.

The tables below show the parameter name, current value and description.\n" "The default value of each parameter is shown in brackets at the end of the description.

\n"); if(!readonly ) { SetToCString(message,"

\n"); HTTP_SendString(request, message); } /* Walk through all steerable parameters of given implementation. */ while(CCTK_ParameterWalk(first, thorn, NULL, &pData) == 0) { char *value = CCTK_ParameterValString (pData->name, pData->thorn); Truncate(message,0); first = 0; if(value) { if (pData->steerable == CCTK_STEERABLE_ALWAYS) { if (nsteerable == 0) { ConcatCString(message,"

Steerable Parameters

\n"); if (readonly) { ConcatCString(message, "

The following parameters are steerable, " "but you do not have authorisation to change them. \n" "To change parameters you must first register on the " "Simulation Control Page." "

\n"); } ConcatCString(message, "\n"); } nsteerable++; if (!readonly) { int param_type; if (pData->type == PARAMETER_BOOLEAN) { /* Steerable boolean */ int param_bool = *((const CCTK_INT *)CCTK_ParameterGet(pData->name,thorn,¶m_type)); ConcatCString(message, "\n\n" "\n" "\n" "\n"); } else if (pData->type == PARAMETER_KEYWORD) { t_range *range; /* Steerable keyword */ CCTK_ParameterGet(pData->name,thorn,¶m_type); ConcatCString(message,"\n\n"); ConcatCString(message,"\n\n\n"); } else { /* Steerable nonboolean */ ConcatCString(message, "\n\n" "\n" "\n\n"); } } else { /* Steerable but no authority */ ConcatCString(message, "\n\n"); } } free (value); } HTTP_SendString(request, message); } if (nsteerable>0) { HTTP_Send(request, "

thorn); ConcatCString(message, "/"); ConcatCString(message, pData->name); ConcatCString(message, "\">"); ConcatCString(message, pData->name); ConcatCString(message, "	" "Yes \nname); ConcatCString(message, "\" "); ConcatCString(message, param_bool ? "checked=\"checked\"" : ""); ConcatCString(message, " value=\"1\" />" " " "No \nname); ConcatCString(message, "\" "); ConcatCString(message, param_bool ? "" : "checked=\"checked\""); ConcatCString(message, " value=\"0\" />" "	"); SetToEncodedHTMLCString( temp, pData->description ); Concat(message, temp ); ConcatCString(message, " ("); ConcatCString(message, pData->defval); ConcatCString(message, ")
thorn); ConcatCString(message, "/"); ConcatCString(message, pData->name); ConcatCString(message, "\">"); ConcatCString(message, pData->name); ConcatCString(message, "	\n"); ConcatCString(message,"	"); SetToEncodedHTMLCString( temp, pData->description ); Concat(message, temp); ConcatCString(message, " ("); SetToEncodedHTMLCString( temp, pData->defval ); Concat(message, temp); ConcatCString(message, ")
thorn); ConcatCString(message, "/"); ConcatCString(message, pData->name); ConcatCString(message, "\">"); ConcatCString(message, pData->name); ConcatCString(message, "	name); ConcatCString(message, "\" value=\""); ConcatCString(message, value); ConcatCString(message, "\" />	"); SetToEncodedHTMLCString( temp, pData->description ); Concat(message, temp); ConcatCString(message, " ("); SetToEncodedHTMLCString( temp, pData->defval ); Concat(message, temp); ConcatCString(message, ")
thorn); ConcatCString(message, "/"); ConcatCString(message, pData->name); ConcatCString(message, "\">"); ConcatCString(message, pData->name); ConcatCString(message, "	"); ConcatCString(message, value); ConcatCString(message, "	"); SetToEncodedHTMLCString( temp, pData->description ); Concat(message, temp); ConcatCString(message, " ("); SetToEncodedHTMLCString( temp, pData->defval ); Concat(message, temp); ConcatCString(message, ")

\n"); } else { HTTP_Send(request, "

This thorn has no steerable parameters.

\n"); } if(!readonly && nsteerable>0) { HTTP_Send(request, "\n" "

\n"); } /* Walk through non-all steerable parameters of given implementation. */ first = 1; while(CCTK_ParameterWalk(first, thorn, NULL, &pData) == 0) { char *value; first = 0; Truncate(message,0); value = CCTK_ParameterValString (pData->name, pData->thorn); if(value) { if (!(pData->steerable == CCTK_STEERABLE_ALWAYS)) { if (nfixed == 0) { ConcatCString(message,"

Fixed Parameters

\n" ""); } nfixed++; /* FIXME: This is a hack - should put in parameter tags. */ if(strcmp(thorn,CCTK_THORNSTRING) || (strcmp(pData->name,"user") && strcmp(pData->name,"password") && strcmp(pData->name,"encryption_scheme"))) { ConcatCString(message, "\n\n\n\n\n"); } } free(value); } HTTP_SendString(request, message); } if (nfixed>0) { HTTP_Send(request, "

thorn); ConcatCString(message, "/"); ConcatCString(message, pData->name); ConcatCString(message, "\">"); ConcatCString(message, pData->name); ConcatCString(message, "

"); ConcatCString(message, value); ConcatCString(message, "

"); SetToEncodedHTMLCString( temp, pData->description ); Concat(message, temp); ConcatCString(message, " ("); SetToEncodedHTMLCString( temp, pData->defval ); Concat(message, temp); ConcatCString(message, ")

\n"); } else { HTTP_Send(request, "

This thorn has no fixed parameters.

\n"); } HTTP_Send(request, "

"); ConcatCString(menu, pDataWalk->thorn); ConcatCString(menu, ":

"); ConcatCString(message, pData->thorn); ConcatCString(message, ": "); ConcatCString(message, pData->name); ConcatCString(message, "

Return to all parameters for this \n" "thorn)); ConcatCString(message, "\">thorn.

\n" "\n" ); ConcatCString(message, "\n\n\n\n" ); ConcatCString(message, "\n\n\n\n" ); ConcatCString(message, "\n\n\n\n" ); ConcatCString(message, "\n\n\n\n" ); ConcatCString(message, "\n\n\n\n" ); ConcatCString(message, "\n\n\n"); HTTP_SendString(request, message); SetToCString(message,"\n\n\n\n"); HTTP_SendString(request, message); SetToCString(message,"\n" "\n\n\n"); HTTP_SendString(request, message); SetToCString(message,"\n"); break; case SCOPE_RESTRICTED : ConcatCString(message,"Restricted\n"); break; case SCOPE_PRIVATE : ConcatCString(message,"Private\n"); break; default : ConcatCString(message,"Not matched\n"); } HTTP_SendString(request, message); Truncate(message,0); first = 1; for(range = pData->range; range ; range = range->next) { if (first==1) { ConcatCString(message, "\n" "\n\n\n"); } HTTP_SendString(request, message); SetToCString(message, "\n\n\n\n

Name:	"); ConcatCString(message, pData->name); ConcatCString(message, "
Thorn:	"); ConcatCString(message, pData->thorn); ConcatCString(message, "
Implementation:	"); ConcatCString(message, CCTK_ThornImplementation(pData->thorn)); ConcatCString(message, "
Current value:	"); ConcatCString(message, value); ConcatCString(message, "
Description::	"); SetToEncodedHTMLCString( temp, pData->description ); Concat(message, temp); ConcatCString(message, "
Default:::	"); SetToEncodedHTMLCString( temp, pData->defval ); Concat(message, temp); ConcatCString(message, "
Steerable:	"); switch(pData->steerable) { case CCTK_STEERABLE_ALWAYS : ConcatCString(message,"Always"); break; case CCTK_STEERABLE_NEVER : ConcatCString(message,"Never"); break; case CCTK_STEERABLE_RECOVER : ConcatCString(message,"Recovery"); break; default : ConcatCString(message,"Not matched"); } ConcatCString(message,"
Type:	"); switch(pData->type) { case PARAMETER_BOOLEAN : ConcatCString(message,"Boolean"); break; case PARAMETER_REAL : ConcatCString(message,"Real"); break; case PARAMETER_INTEGER : ConcatCString(message,"Integer"); break; case PARAMETER_SENTENCE : ConcatCString(message,"Sentence"); break; case PARAMETER_STRING : ConcatCString(message,"String"); break; case PARAMETER_KEYWORD : ConcatCString(message,"Keyword"); break; default : ConcatCString(message,"Not matched"); } ConcatCString(message,"
Scope:	"); switch(pData->scope) { case SCOPE_GLOBAL : ConcatCString(message,"Global
\n" "Range:" "	\n" ); } first = 0; ConcatCString(message, " "); ConcatCString(message, range->range); ConcatCString(message, " \n "); SetToEncodedHTMLCString( temp, range->description ); Concat(message, temp); ConcatCString(message, " \n"); if (!CCTK_Equals(range->origin,pData->thorn)) { ConcatCString(message, " [Extended by thorn "); ConcatCString(message, range->origin); ConcatCString(message, "]\n"); } } if(first==0) { ConcatCString(message, "
Times Set:	"); ConcatDecimal(message, pData->n_set); ConcatCString(message, "