ftp.nice.ch/pub/next/science/chemistry/WaterC.s.tar.gz#/WaterC/winclude.h

This is winclude.h in view mode; [Download] [Up]

/*----------- include file for non-standard lib functions -------*/
/*---------- functions re-written by M. Loki Demsey 7-8.93 ------*/

/*-----*/
#ifdef MTH1
/* #define copysign(x,y) */
double copysign(x,y)
double x,y;
{ if (((y < 0) && (x > 0)) || ((y > 0) && (x < 0)))
    return (x * -1.0);
  else return x; }
#endif
/*-----*/

int strindex(char *s[],char t[])
{
	int i,j,k;
	for (i=0;*s[i] != '\0';i++)
	  { if (t[0] == *s[i])
	      return i; } 
	return -1;
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.