174 strcpy(errmssg,
"Can't read the '");
175 strcat(errmssg, filename);
176 strcat(errmssg,
"'file.\n");
179 if ((fp=fopen(filename,
"r")) == NULL)
185 }
while(in_buffer[0]==
'*');
186 if(sscanf(in_buffer,
"%d", &
dim)!=1)
197 delta = (
double *)calloc(
dim+1,
sizeof(
double));
205 }
while((in_buffer[0]==
'*') ||
blank_line(in_buffer));
207 for (x=0;
dim > x; ++x) {
208 if(sscanf(&in_buffer[k],
"%s",
names[x])!=1)
217 }
while((in_buffer[0]==
'*') ||
blank_line(in_buffer));
219 for (x=1;
dim >= x; ++x) {
220 if(sscanf(&in_buffer[k],
"%lf",
centerpnt+x)!=1)
229 }
while((in_buffer[0]==
'*') ||
blank_line(in_buffer));
231 for (x=1;
dim >= x; ++x) {
232 if(sscanf(&in_buffer[k],
"%lf",
lower+x)!=1)
241 }
while((in_buffer[0]==
'*') ||
blank_line(in_buffer));
243 for (x=1;
dim >= x; ++x) {
244 if(sscanf(&in_buffer[k],
"%lf",
upper+x)!=1)
254 }
while((in_buffer[0]==
'*') ||
blank_line(in_buffer));
256 for (x=1;
dim >= x; ++x) {
257 if(sscanf(&in_buffer[k],
"%lf",
scale+x)!=1)
266 }
while((in_buffer[0]==
'*') ||
blank_line(in_buffer));
268 for (x=1;
dim >= x; ++x) {
269 if(sscanf(&in_buffer[k],
"%d",
yield+x)!=1)
280 }
while(in_buffer[0]==
'*');
282 for (x=1;
dim >= x; ++x) {
283 if(sscanf(&in_buffer[k],
"%d", &temp)!=1)
292 for (x=1;
dim >= x; ++x) {
293 if(sscanf(&in_buffer[k],
"%d", &temp)!=1)
308 if((in_buffer[0]==
'*') ||
blank_line(in_buffer))
311 if(sscanf(in_buffer,
"%d %d %d", &tmp->
x,
318 if((tmp->
points_nr<4) || (tmp->
x<1) || (tmp->
y<1) ||
319 (tmp->
x>
dim) || (tmp->
y>
dim) || (tmp->
x==tmp->
y))
327 for (x=1;
dim >= x; ++x)
330 for (x=1;
dim >= x; ++x) {
int * ivector(int nl, int nh)
char circuit_name[NAME_LENGTH]
static int blank_line(char *line)
static void unexpctd_eof(char *filename)
void nrerror(char *error_text)
static void error_in_line(char *filename, int line_num, char *line)
char init_ext[NAME_LENGTH]
char opt_num[NAME_LENGTH]
double * vector(int nl, int nh)
char input_dir[NAME_LENGTH]
static void add_parameter_set(PARAMETER_SET *new)
char(* names)[NAME_LENGTH]
static int read_long_line(FILE *fp, char *line, int *line_no)
static char filename[LINE_LENGTH]
static int skip_arg(char *line, int arg_num)