/*****************************************************************/ 
/*      numerical.c                                              */
/*      Henri Casanova          				 */
/*---------------------------------------------------------------*/
/*****************************************************************/

#include "core.h"
#ifdef DUMMYUPF
#include "dummyupf.h"
#else
#include "effectiveupf.h"
#endif
#include "fortran.h"

/*
 * This function is generated by the code generator
 */

int solve(NS_ProblemDesc *pb_desc,
          NS_Object **input_objects, NS_Object **output_objects)
{
char buf1[50];

strcpy(buf1,pb_desc->nickname);
netsolveCaps(buf1);


