wrsolw_(char *msg, fint *nmsg, real *x, real *y, fint *ws, ftnlen msg_len)
#endif
{
char *b, *buf, *me;
int i, len, nm;
ASL *asl;
Option_Info oi;
if (!(asl = cur_ASL))
badasl_ASL(asl,0,"wrtsol");
nm = (int)*nmsg;
len = nm + 1;
me = msg + nm*msg_len;
for(b = msg; b < me; b += msg_len)
len += slen(b,msg_len);
b = buf = (char *)Malloc(len);
if (nm)
for(;;) {
if (i = slen(msg, msg_len)) {
strncpy(b, msg, i);
b += i;
}
msg += msg_len;
if (msg >= me)
break;
*b++ = '\n';
}
*b = 0;
if (!(oi.wantsol = *ws & 7))
oi.wantsol = 1;
write_sol_ASL(asl, buf, x, y, &oi);
free(buf);
}
void jampl_write_sol(void *asl, const char *msg, double *x, double *y) {
ASL *this_asl = (ASL *)asl;
write_sol_ASL(asl, msg, x, y, 0); // Do not handle Option_Info for now.
return;
}