/*
**  its90.c 1.2	Solaris 2.4 Unix	950313	SIO/ODF	fmd
**
**  International Temperature Scale of 1990 (ITS-90) and
**  International Practical Temperature Scale of 1968 (IPTS-68)
**  conversion routines. (NOTE: these conversions only apply
**  to the oceanographic temperature range of -2.0 to 40.0 deg C):
**
**  double ITS90Temp(double t68)
**	convert IPTS-68 temperature to ITS-90.
**  double IPTS68Temp(double t90)
**	convert ITS-90 temperature to IPTS-68.
*/

#include <math.h>
#include <odflib.h>

#define ITS90(t68)	((t68)*0.99976)
#define IPTS68(t90)	((t90)*1.00024)

#ifndef FORTRAN
double
ITS90Temp(t68)
	double	t68;
{
	return (ITS90(t68));
}
double
IPTS68Temp(t90)
	double	t90;
{
	return (IPTS68(t90));
}

#else /* FORTRAN */
double
its90_(temp)
	float	*temp;
{
	return (ITS90(*temp));
}
double
ipts68_(temp)
	float	*temp;
{
	return (IPTS68(*temp));
}
#endif FORTRAN