#include <iostream>
#include "snaps.h"
#include "mcntl.h"
#include "mkisosu.h"
#include "mkiso.h"
#include "mecon.h"
#include "mfile_open.h"

void dtst()
{
	
	int nendo;
	int c_nendo;
	int nenrei;

	int sotai_nendo;
	int seido;

	FILE *fp_z;
	fp_z = fp_in[zisseki_hosei];
	double buffer[BUFFER_MAX];
	int data_number;

	int hikiage_nendo = 2009;

	zoubun = 1.0 / 100;
	
	Tumatumi_2014[SUM] = 1552833257900;
	Tumatumi[BUNPAI][2015 - SHONENDO] = 159094034794;
	Tumatumi[BUNPAI][2016 - SHONENDO] = 159113373167;
	Tumatumi[BUNPAI][2017 - SHONENDO] = 155730757637;
	Tumatumi[BUNPAI][2018 - SHONENDO] = 156313232298;
	Tumatumi[BUNPAI][2019 - SHONENDO] = 155706997355;

	K_Shien[0] = 0.;
	K_Shien[1] = 0.;
	K_Shien[2] = 0.;

	FUKUSHI_NENDO = 2019;
	Fukushi[FUKUSHI_NENDO - 4 -SHONENDO]  = 86857450000.;
	Fukushi[FUKUSHI_NENDO - 3 -SHONENDO]  = 80496472632.;
	Fukushi[FUKUSHI_NENDO - 2 -SHONENDO]  = 88814614828.;
	Fukushi[FUKUSHI_NENDO - 1 -SHONENDO]  = 63117677674.;
	Fukushi[FUKUSHI_NENDO - SHONENDO]     = 53000000000.;

	Tumitate[2016 - 1 - SHONENDO] = 111279. * 100000000;
	Tumitate[2017 - 1 - SHONENDO] = 113349. * 100000000;
	Tumitate[2018 - 1 - SHONENDO] = 116014. * 100000000;

	for( nendo = SHONENDO ; nendo <= SAISHUNENDO ; nendo++ )
	{
		sotai_nendo = nendo - SHONENDO;
		{
			tuki[sotai_nendo] = 4;
		}
	}
	
	for( nendo = SHONENDO - 1 ; nendo <= SAISHUNENDO ; nendo++ )
	{
		Kokko_Wariai[nendo - ( SHONENDO - 1 )] = 1. / 3. + 25. / 1000.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_MENJO] = 1.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_KASAAGE] = 1. / 4.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_KASAMENJO] = 1.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_SHITASASAE] = 1.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_GONEN] = 1. / 8.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_20MAE] = 38. / 100.;
	}


	for( nendo = hikiage_nendo ; nendo <= SAISHUNENDO ; nendo++ )
	{
		Kokko_Wariai[nendo - ( SHONENDO - 1 )] = 1. / 2.;
		tokubetu_kokko_wariai[nendo - ( SHONENDO - 1 )][TOKUBETU_20MAE] = 2. / 10.;
	}

	for( nendo = SHONENDO - 1 ; nendo <= SAISHUNENDO ; nendo++ )
	{
		for( seido = SUM ; seido <= NORIN ; seido++ )
		{
				K_Wariai[seido][nendo - ( SHONENDO - 1 )] = 1. / 2.;
		}
	}

	for( nendo = SHONENDO ; nendo <= SAISHUNENDO ; nendo++ )
	{
		hosei_shin[nendo - SHONENDO] = 1.;
		
		for( seido = SUM ; seido <= SHIGAKU ; seido++ )
		{
			hosei_kyu[seido][nendo - SHONENDO] = 1.;
		}
	}

	read_data( buffer , fp_z , &data_number );
	for(nendo = SHONENDO +1 ; nendo <= SHONENDO + 8 ; nendo++){
		if( read_data( buffer , fp_z , &data_number ) != EOF){
			hosei_shin[ nendo - SHONENDO] = buffer[1];
			hosei_kyu[KOKUNEN][ nendo - SHONENDO] = buffer[2];
			hosei_kyu[KOUNEN][nendo - SHONENDO] = buffer[3];
		}
	}


	MODEL_PENSION = 130016 * 0.998 / 0.995;
	MODEL_WAGE = 352826.665898849;

	for( nendo = SHONENDO ; nendo <= SAISHUNENDO ; nendo++ )
	{
		for( nenrei = UNDER_63 ; nenrei <= MAX_JUKYU ; nenrei++ )
		{
			Cut_ritu[nendo - SHONENDO][nenrei - UNDER_63] = 1.;
		}
	}
	
	for( c_nendo = ECON_SHONENDO ; c_nendo <= SAISHUNENDO ; c_nendo++ )
	{
		for( nendo = ECON_SHONENDO ; nendo <= SAISHUNENDO ; nendo++ )
		{
			for( nenrei = NENREI_SUM ; nenrei <= MAX_JUKYU ; nenrei++ )
			{
				cut_ruiseki[c_nendo - ECON_SHONENDO][nendo - ECON_SHONENDO][nenrei - NENREI_SUM] = 1.;
			}
		}
	}
	
	for( nendo = ECON_SHONENDO ; nendo <= SAISHUNENDO ; nendo++ )
	{
		for( nenrei = UNDER_67 ; nenrei <= MAX_JUKYU ; nenrei++ )
		{
			pre_cut[nendo - ECON_SHONENDO][nenrei - UNDER_67] = 1.;
			kaiteiritu[nendo - ECON_SHONENDO][nenrei - UNDER_67] = 1.;
			kaiteiritu_cut[nendo - ECON_SHONENDO][nenrei - UNDER_67] = 1.;

			T[nendo - ECON_SHONENDO][nenrei - UNDER_67] = 1.;
		}
	}
}

