c****************************************************************

	PROGRAM test_data_eff
	
c	test pour la transformation des initialisations par BLOCKDATA de
c	etat_eff	
	
	USE mod_kind
	
	IMPLICIT NONE
	
	INTEGER :: i
	
	REAL (kind=dp), PARAMETER, DIMENSION(374) :: chi=(/
	1 11.26d0, 24.38d0, 47.86d0, 64.48d0, 391.99d0,489.84d0,     
	2 14.54d0, 29.60d0, 47.43d0, 77.45d0, 97.86d0, 551.92d0, 666.83d0,
	3 13.61d0, 35.15d0, 54.93d0, 77.39d0, 113.87d0,138.08d0, 739.11d0,
	4 871.12d0,21.56d0, 41.07d0, 63.5d0 , 97.16d0, 126.4d0,  157.91d0,
	5 207.3d0, 239.d0,  1196.d0, 1360.d0, 5.14d0,  47.29d0,  71.65d0,
	6 98.88d0, 138.60d0,172.36d0,208.44d0,264.15d0,299.78d0, 1465.d0,
	7 1646.d0, 7.64d0,  15.03d0 ,80.12d0 ,109.29d0,141.23d0, 186.86d0,
	8 225.31d0,265.96d0,327.90d0,367.36d0,1761.2d0,2085.d0,  5.98d0,
	9 18.82d0, 28.44d0, 119.96d0,153.77d0,190.42d0,241.93d0, 285.13d0,
	1 330.1d0, 398.5d0, 441.9d0, 2085.5d0,2299.d0, 8.15d0,   16.34d0,
	2 33.46d0, 45.13d0, 166.73d0,205.11d0,246.41d0,303.87d0, 351.83d0,
	3 401.3d0, 476.d0,  523.2d0, 2436.d0, 2666.d0, 15.75d0,  27.62d0,
	4 40.90d0, 59.79d0, 75.d0,   91.3d0,  124.d0,  143.46d0, 421.d0,
	5 480.d0,  539.5d0, 621.1d0, 688.5d0, 755.5d0, 854.4d0,  1.d20,
	6 1.d20,   1.d20,   7.90d0,  16.18d0, 30.64d0, 56.d0,    79.d0,
	7 105.d0,  133.d0,  151.d0,  235.d0,  262.d0,  290.d0,   321.d0,
	8 355.d0,  390.d0, 457.d0, (1.d20, i=115,125), (88888.d0,i=126,374)
	9 /)
	
	REAL (kind=dp), PARAMETER, DIMENSION(23) :: am=(/ 12.d0, 14.01d0,
	1 16.d0, 20.17d0, 22.99d0, 24.31d0, 26.98d0, 28.08d0,       
	2 39.94d0, 55.84d0, (99999.d0,i=11,23) /)	
		
	INTEGER, PARAMETER, DIMENSION(23) :: iz=(/ 6, 7, 8, 10, 11, 12,
	1 13, 14, 18, 26, (9999,i=11,23) /)

	CHARACTER (len=4), PARAMETER, DIMENSION(23) :: name=(/ '   c',
	1 '   n','   o','  ne','  na','  mg','  al','  si','   a','  fe',
	2 ('bido',i=11,23) /)
	
	PRINT*,name(1); PRINT*,iz(10) ; PRINT*,am(6) ; PRINT*,chi(6)
	PRINT*,chi(374)
	
	STOP
	
	END PROGRAM test_data_eff