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