/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:33:14 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv pf=,p_sasinh s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include <stdio.h>
#include <stdlib.h>
#include "p_sasinh.h"
/*     program DRSASINH
 *>> 2001-05-22 DRSASINH Krogh Minor change for making .f90 version.
 *>> 1996-06-26 DRSASINH Krogh Changed code to simplify conversion to C.
 *>> 1996-05-28 DRSASINH Krogh Added external state. & moved up formats
 *>> 1994-10-19 DRSASINH Krogh  Changes to use M77CON
 *>> 1988-11-17 DRSASINH CLL
 *--S replaces "?": DR?ASINH,?ASINH,?ACOSH,?ATANH,?ACTNH,?ASECH,?ACSCH
 * */
 
int main( )
{
	long int i;
	static float x1[3]={0.1e0,0.5e0,0.9e0};
	static float x2[3]={1.1e0,10.0e0,100.0e0};
		/* OFFSET Vectors w/subscript range: 1 to dimension */
	float *const X1 = &x1[0] - 1;
	float *const X2 = &x2[0] - 1;
		/* end of OFFSET VECTORS */
 
 
 
 
	printf("     X           SASINH          SATANH          SASECH          SACSCH\n");
	printf("    ---          ------          ------          ------          ------          \n");
	for (i = 1; i <= 3; i++)
	{
		printf(" %6.2f %16.6f%16.6f%16.6f%16.6f\n", X1[i], sasinh( X1[i] ), satanh( X1[i] ),
		   sasech( X1[i] ), sacsch( X1[i] ));
	}
	printf(" \n\n");
	printf("     X           SASINH          SACOSH          SACTNH          SACSCH\n");
	printf("    ---          ------          ------          ------          ------          \n");
	for (i = 1; i <= 3; i++)
	{
		printf(" %6.2f %16.6f%16.6f%16.6f%16.6f\n", X2[i], sasinh( X2[i] ), sacosh( X2[i] ),
		   sactnh( X2[i] ), sacsch( X2[i] ));
	}
	exit(0);
} /* end of function */