! File: test_intrinsic1.f90
! Public domain 2005 James Van Buskirk

module mykinds
   integer, parameter :: ik1 = selected_int_kind(2)
   integer, parameter :: ik2 = selected_int_kind(4)
   integer, parameter :: ik4 = selected_int_kind(9)
   integer, parameter :: ik8 = selected_int_kind(18)
   integer, parameter :: sp = selected_real_kind(6,30)
   integer, parameter :: dp = selected_real_kind(15,300)
   integer, parameter :: ck = kind('a')
   integer, parameter :: lk1 = ik1
   integer, parameter :: lk2 = ik2
   integer, parameter :: lk4 = ik4
   integer, parameter :: lk8 = ik8
end module mykinds

program test_intrinsic
   use mykinds
   implicit none
   integer(ik1), parameter :: ip_ik1_1 = ik1
   integer(ik1), parameter :: ip_ik2_1 = ik2
   integer(ik1), parameter :: ip_ik4_1 = ik4
   integer(ik1), parameter :: ip_ik8_1 = ik8
   integer(ik1), parameter :: ip_sp_1 = sp
   integer(ik1), parameter :: ip_dp_1 = dp
   integer(ik1), parameter :: ip_ck_1 = ck
   integer(ik1), parameter :: ip_lk1_1 = lk1
   integer(ik1), parameter :: ip_lk2_1 = lk2
   integer(ik1), parameter :: ip_lk4_1 = lk4
   integer(ik1), parameter :: ip_lk8_1 = lk8
   integer(ik2), parameter :: ip_ik1_2 = ik1
   integer(ik2), parameter :: ip_ik2_2 = ik2
   integer(ik2), parameter :: ip_ik4_2 = ik4
   integer(ik2), parameter :: ip_ik8_2 = ik8
   integer(ik2), parameter :: ip_sp_2 = sp
   integer(ik2), parameter :: ip_dp_2 = dp
   integer(ik2), parameter :: ip_ck_2 = ck
   integer(ik2), parameter :: ip_lk1_2 = lk1
   integer(ik2), parameter :: ip_lk2_2 = lk2
   integer(ik2), parameter :: ip_lk4_2 = lk4
   integer(ik2), parameter :: ip_lk8_2 = lk8
   integer(ik4), parameter :: ip_ik1_4 = ik1
   integer(ik4), parameter :: ip_ik2_4 = ik2
   integer(ik4), parameter :: ip_ik4_4 = ik4
   integer(ik4), parameter :: ip_ik8_4 = ik8
   integer(ik4), parameter :: ip_sp_4 = sp
   integer(ik4), parameter :: ip_dp_4 = dp
   integer(ik4), parameter :: ip_ck_4 = ck
   integer(ik4), parameter :: ip_lk1_4 = lk1
   integer(ik4), parameter :: ip_lk2_4 = lk2
   integer(ik4), parameter :: ip_lk4_4 = lk4
   integer(ik4), parameter :: ip_lk8_4 = lk8
   integer(ik8), parameter :: ip_ik1_8 = ik1
   integer(ik8), parameter :: ip_ik2_8 = ik2
   integer(ik8), parameter :: ip_ik4_8 = ik4
   integer(ik8), parameter :: ip_ik8_8 = ik8
   integer(ik8), parameter :: ip_sp_8 = sp
   integer(ik8), parameter :: ip_dp_8 = dp
   integer(ik8), parameter :: ip_ck_8 = ck
   integer(ik8), parameter :: ip_lk1_8 = lk1
   integer(ik8), parameter :: ip_lk2_8 = lk2
   integer(ik8), parameter :: ip_lk4_8 = lk4
   integer(ik8), parameter :: ip_lk8_8 = lk8
   integer(ik1) iv_42_1
   integer(ik2) iv_42_2
   integer(ik4) iv_42_4
   integer(ik8) iv_42_8
   real(sp) rv_42_4
   real(dp) rv_42_8
   complex(sp) cv_42_4
   complex(dp) cv_42_8
   character(len=2,kind=ck) hv_42_1
   logical(lk1) lv_t_1
   logical(lk2) lv_t_2
   logical(lk4) lv_t_4
   logical(lk8) lv_t_8
   type mytype
      integer x
   end type mytype
   type(mytype) tv_42_4

   write(*,*) 'Integer(1) kinds'
   write(*,*) ip_ik1_1
   write(*,*) ip_ik2_1
   write(*,*) ip_ik4_1
   write(*,*) ip_ik8_1
   write(*,*) ip_sp_1
   write(*,*) ip_dp_1
   write(*,*) ip_ck_1
   write(*,*) ip_lk1_1
   write(*,*) ip_lk2_1
   write(*,*) ip_lk4_1
   write(*,*) ip_lk8_1
   write(*,*) 'Integer(2) kinds'
   write(*,*) ip_ik1_2
   write(*,*) ip_ik2_2
   write(*,*) ip_ik4_2
   write(*,*) ip_ik8_2
   write(*,*) ip_sp_2
   write(*,*) ip_dp_2
   write(*,*) ip_ck_2
   write(*,*) ip_lk1_2
   write(*,*) ip_lk2_2
   write(*,*) ip_lk4_2
   write(*,*) ip_lk8_2
   write(*,*) 'Integer(4) kinds'
   write(*,*) ip_ik1_4
   write(*,*) ip_ik2_4
   write(*,*) ip_ik4_4
   write(*,*) ip_ik8_4
   write(*,*) ip_sp_4
   write(*,*) ip_dp_4
   write(*,*) ip_ck_4
   write(*,*) ip_lk1_4
   write(*,*) ip_lk2_4
   write(*,*) ip_lk4_4
   write(*,*) ip_lk8_4
   write(*,*) 'Integer(8) kinds'
   write(*,*) ip_ik1_8
   write(*,*) ip_ik2_8
   write(*,*) ip_ik4_8
   write(*,*) ip_ik8_8
   write(*,*) ip_sp_8
   write(*,*) ip_dp_8
   write(*,*) ip_ck_8
   write(*,*) ip_lk1_8
   write(*,*) ip_lk2_8
   write(*,*) ip_lk4_8
   write(*,*) ip_lk8_8
   iv_42_1 = 42
   iv_42_2 = 42
   iv_42_4 = 42
   iv_42_8 = 42
   rv_42_4 = 42
   rv_42_8 = 42
   cv_42_4 = 42
   cv_42_8 = 42
   hv_42_1 = '42'
   lv_t_1 = .TRUE.
   lv_t_2 = .TRUE.
   lv_t_4 = .TRUE.
   lv_t_8 = .TRUE.
   tv_42_4%x = 42
   write(*,*) 'Variables'
   write(*,*) iv_42_1
   write(*,*) iv_42_2
   write(*,*) iv_42_4
   write(*,*) iv_42_8
   write(*,*) rv_42_4
   write(*,*) rv_42_8
   write(*,*) cv_42_4
   write(*,*) cv_42_8
   write(*,*) hv_42_1
   write(*,*) lv_t_1
   write(*,*) lv_t_2
   write(*,*) lv_t_4
   write(*,*) lv_t_8
   write(*,*) 'ABS'
   write(*,*) abs(iv_42_1)
   write(*,*) abs(iv_42_2)
   write(*,*) abs(iv_42_4)
   write(*,*) abs(iv_42_8)
   write(*,*) abs(rv_42_4)
   write(*,*) abs(rv_42_8)
   write(*,*) abs(cv_42_4)
   write(*,*) abs(cv_42_8)
   write(*,*) 'ACHAR'
   write(*,*) achar(iv_42_1)
   write(*,*) achar(iv_42_2)
   write(*,*) achar(iv_42_4)
   write(*,*) achar(iv_42_8)
   write(*,*) 'ACOS'
   write(*,*) acos(rv_42_4/100)
   write(*,*) acos(rv_42_8/100)
   write(*,*) 'ADJUSTL'
   write(*,*) adjustl(hv_42_1)
   write(*,*) 'ADJUSTR'
   write(*,*) adjustr(hv_42_1)
   write(*,*) 'AIMAG'
   write(*,*) aimag(cv_42_4)
   write(*,*) aimag(cv_42_8)
   write(*,*) 'AINT'
   write(*,*) aint(rv_42_4)
   write(*,*) aint(rv_42_8)
   write(*,*) aint(rv_42_4,ip_sp_1)
   write(*,*) aint(rv_42_4,ip_dp_1)
   write(*,*) aint(rv_42_8,ip_sp_1)
   write(*,*) aint(rv_42_8,ip_dp_1)
   write(*,*) aint(rv_42_4,ip_sp_2)
   write(*,*) aint(rv_42_4,ip_dp_2)
   write(*,*) aint(rv_42_8,ip_sp_2)
   write(*,*) aint(rv_42_8,ip_dp_2)
   write(*,*) aint(rv_42_4,ip_sp_4)
   write(*,*) aint(rv_42_4,ip_dp_4)
   write(*,*) aint(rv_42_8,ip_sp_4)
   write(*,*) aint(rv_42_8,ip_dp_4)
   write(*,*) aint(rv_42_4,ip_sp_8)
   write(*,*) aint(rv_42_4,ip_dp_8)
   write(*,*) aint(rv_42_8,ip_sp_8)
   write(*,*) aint(rv_42_8,ip_dp_8)
   write(*,*) 'ANINT'
   write(*,*) anint(rv_42_4)
   write(*,*) anint(rv_42_8)
   write(*,*) anint(rv_42_4,ip_sp_1)
   write(*,*) anint(rv_42_4,ip_dp_1)
   write(*,*) anint(rv_42_8,ip_sp_1)
   write(*,*) anint(rv_42_8,ip_dp_1)
   write(*,*) anint(rv_42_4,ip_sp_2)
   write(*,*) anint(rv_42_4,ip_dp_2)
   write(*,*) anint(rv_42_8,ip_sp_2)
   write(*,*) anint(rv_42_8,ip_dp_2)
   write(*,*) anint(rv_42_4,ip_sp_4)
   write(*,*) anint(rv_42_4,ip_dp_4)
   write(*,*) anint(rv_42_8,ip_sp_4)
   write(*,*) anint(rv_42_8,ip_dp_4)
   write(*,*) anint(rv_42_4,ip_sp_8)
   write(*,*) anint(rv_42_4,ip_dp_8)
   write(*,*) anint(rv_42_8,ip_sp_8)
   write(*,*) anint(rv_42_8,ip_dp_8)
   write(*,*) 'ASIN'
   write(*,*) asin(rv_42_4/100)
   write(*,*) asin(rv_42_8/100)
   write(*,*) 'ATAN'
   write(*,*) atan(rv_42_4)
   write(*,*) atan(rv_42_8)
   write(*,*) 'ATAN2'
   write(*,*) atan2(rv_42_4,rv_42_4)
   write(*,*) atan2(rv_42_8,rv_42_8)
   write(*,*) 'BIT_SIZE'
   write(*,*) bit_size(iv_42_1)
   write(*,*) bit_size(iv_42_2)
   write(*,*) bit_size(iv_42_4)
   write(*,*) bit_size(iv_42_8)
   write(*,*) 'BTEST'
   write(*,*) btest(iv_42_1,modulo(iv_42_1,int(bit_size(iv_42_1),ik1)))
   write(*,*) btest(iv_42_2,modulo(iv_42_1,int(bit_size(iv_42_2),ik1)))
   write(*,*) btest(iv_42_4,modulo(iv_42_1,int(bit_size(iv_42_4),ik1)))
   write(*,*) btest(iv_42_8,modulo(iv_42_1,int(bit_size(iv_42_8),ik1)))
   write(*,*) btest(iv_42_1,modulo(iv_42_2,int(bit_size(iv_42_1),ik2)))
   write(*,*) btest(iv_42_2,modulo(iv_42_2,int(bit_size(iv_42_2),ik2)))
   write(*,*) btest(iv_42_4,modulo(iv_42_2,int(bit_size(iv_42_4),ik2)))
   write(*,*) btest(iv_42_8,modulo(iv_42_2,int(bit_size(iv_42_8),ik2)))
   write(*,*) btest(iv_42_1,modulo(iv_42_4,int(bit_size(iv_42_1),ik4)))
   write(*,*) btest(iv_42_2,modulo(iv_42_4,int(bit_size(iv_42_2),ik4)))
   write(*,*) btest(iv_42_4,modulo(iv_42_4,int(bit_size(iv_42_4),ik4)))
   write(*,*) btest(iv_42_8,modulo(iv_42_4,int(bit_size(iv_42_8),ik4)))
   write(*,*) btest(iv_42_1,modulo(iv_42_8,int(bit_size(iv_42_1),ik8)))
   write(*,*) btest(iv_42_2,modulo(iv_42_8,int(bit_size(iv_42_2),ik8)))
   write(*,*) btest(iv_42_4,modulo(iv_42_8,int(bit_size(iv_42_4),ik8)))
   write(*,*) btest(iv_42_8,modulo(iv_42_8,int(bit_size(iv_42_8),ik8)))
   write(*,*) 'CEILING'
   write(*,*) ceiling(rv_42_4)
   write(*,*) ceiling(rv_42_8)
   write(*,*) ceiling(rv_42_4,ip_ik1_1)
   write(*,*) ceiling(rv_42_4,ip_ik2_1)
   write(*,*) ceiling(rv_42_4,ip_ik4_1)
   write(*,*) ceiling(rv_42_4,ip_ik8_1)
   write(*,*) ceiling(rv_42_8,ip_ik1_1)
   write(*,*) ceiling(rv_42_8,ip_ik2_1)
   write(*,*) ceiling(rv_42_8,ip_ik4_1)
   write(*,*) ceiling(rv_42_8,ip_ik8_1)
   write(*,*) ceiling(rv_42_4,ip_ik1_2)
   write(*,*) ceiling(rv_42_4,ip_ik2_2)
   write(*,*) ceiling(rv_42_4,ip_ik4_2)
   write(*,*) ceiling(rv_42_4,ip_ik8_2)
   write(*,*) ceiling(rv_42_8,ip_ik1_2)
   write(*,*) ceiling(rv_42_8,ip_ik2_2)
   write(*,*) ceiling(rv_42_8,ip_ik4_2)
   write(*,*) ceiling(rv_42_8,ip_ik8_2)
   write(*,*) ceiling(rv_42_4,ip_ik1_4)
   write(*,*) ceiling(rv_42_4,ip_ik2_4)
   write(*,*) ceiling(rv_42_4,ip_ik4_4)
   write(*,*) ceiling(rv_42_4,ip_ik8_4)
   write(*,*) ceiling(rv_42_8,ip_ik1_4)
   write(*,*) ceiling(rv_42_8,ip_ik2_4)
   write(*,*) ceiling(rv_42_8,ip_ik4_4)
   write(*,*) ceiling(rv_42_8,ip_ik8_4)
   write(*,*) ceiling(rv_42_4,ip_ik1_8)
   write(*,*) ceiling(rv_42_4,ip_ik2_8)
   write(*,*) ceiling(rv_42_4,ip_ik4_8)
   write(*,*) ceiling(rv_42_4,ip_ik8_8)
   write(*,*) ceiling(rv_42_8,ip_ik1_8)
   write(*,*) ceiling(rv_42_8,ip_ik2_8)
   write(*,*) ceiling(rv_42_8,ip_ik4_8)
   write(*,*) ceiling(rv_42_8,ip_ik8_8)
   write(*,*) 'CHAR'
   write(*,*) char(iv_42_1)
   write(*,*) char(iv_42_2)
   write(*,*) char(iv_42_4)
   write(*,*) char(iv_42_8)
   write(*,*) char(iv_42_1,ip_ck_1)
   write(*,*) char(iv_42_2,ip_ck_1)
   write(*,*) char(iv_42_4,ip_ck_1)
   write(*,*) char(iv_42_8,ip_ck_1)
   write(*,*) char(iv_42_1,ip_ck_2)
   write(*,*) char(iv_42_2,ip_ck_2)
   write(*,*) char(iv_42_4,ip_ck_2)
   write(*,*) char(iv_42_8,ip_ck_2)
   write(*,*) char(iv_42_1,ip_ck_4)
   write(*,*) char(iv_42_2,ip_ck_4)
   write(*,*) char(iv_42_4,ip_ck_4)
   write(*,*) char(iv_42_8,ip_ck_4)
   write(*,*) char(iv_42_1,ip_ck_8)
   write(*,*) char(iv_42_2,ip_ck_8)
   write(*,*) char(iv_42_4,ip_ck_8)
   write(*,*) char(iv_42_8,ip_ck_8)
   write(*,*) 'CMPLX'
   write(*,*) cmplx(iv_42_1)
   write(*,*) cmplx(iv_42_2)
   write(*,*) cmplx(iv_42_4)
   write(*,*) cmplx(iv_42_8)
   write(*,*) cmplx(rv_42_4)
   write(*,*) cmplx(rv_42_8)
   write(*,*) cmplx(cv_42_4)
   write(*,*) cmplx(cv_42_8)
   write(*,*) cmplx(iv_42_1,KIND=ip_sp_1)
   write(*,*) cmplx(iv_42_2,KIND=ip_sp_1)
   write(*,*) cmplx(iv_42_4,KIND=ip_sp_1)
   write(*,*) cmplx(iv_42_8,KIND=ip_sp_1)
   write(*,*) cmplx(rv_42_4,KIND=ip_sp_1)
   write(*,*) cmplx(rv_42_8,KIND=ip_sp_1)
   write(*,*) cmplx(cv_42_4,KIND=ip_sp_1)
   write(*,*) cmplx(cv_42_8,KIND=ip_sp_1)
   write(*,*) cmplx(iv_42_1,KIND=ip_dp_1)
   write(*,*) cmplx(iv_42_2,KIND=ip_dp_1)
   write(*,*) cmplx(iv_42_4,KIND=ip_dp_1)
   write(*,*) cmplx(iv_42_8,KIND=ip_dp_1)
   write(*,*) cmplx(rv_42_4,KIND=ip_dp_1)
   write(*,*) cmplx(rv_42_8,KIND=ip_dp_1)
   write(*,*) cmplx(cv_42_4,KIND=ip_dp_1)
   write(*,*) cmplx(cv_42_8,KIND=ip_dp_1)
   write(*,*) cmplx(iv_42_1,KIND=ip_sp_2)
   write(*,*) cmplx(iv_42_2,KIND=ip_sp_2)
   write(*,*) cmplx(iv_42_4,KIND=ip_sp_2)
   write(*,*) cmplx(iv_42_8,KIND=ip_sp_2)
   write(*,*) cmplx(rv_42_4,KIND=ip_sp_2)
   write(*,*) cmplx(rv_42_8,KIND=ip_sp_2)
   write(*,*) cmplx(cv_42_4,KIND=ip_sp_2)
   write(*,*) cmplx(cv_42_8,KIND=ip_sp_2)
   write(*,*) cmplx(iv_42_1,KIND=ip_dp_2)
   write(*,*) cmplx(iv_42_2,KIND=ip_dp_2)
   write(*,*) cmplx(iv_42_4,KIND=ip_dp_2)
   write(*,*) cmplx(iv_42_8,KIND=ip_dp_2)
   write(*,*) cmplx(rv_42_4,KIND=ip_dp_2)
   write(*,*) cmplx(rv_42_8,KIND=ip_dp_2)
   write(*,*) cmplx(cv_42_4,KIND=ip_dp_2)
   write(*,*) cmplx(cv_42_8,KIND=ip_dp_2)
   write(*,*) cmplx(iv_42_1,KIND=ip_sp_4)
   write(*,*) cmplx(iv_42_2,KIND=ip_sp_4)
   write(*,*) cmplx(iv_42_4,KIND=ip_sp_4)
   write(*,*) cmplx(iv_42_8,KIND=ip_sp_4)
   write(*,*) cmplx(rv_42_4,KIND=ip_sp_4)
   write(*,*) cmplx(rv_42_8,KIND=ip_sp_4)
   write(*,*) cmplx(cv_42_4,KIND=ip_sp_4)
   write(*,*) cmplx(cv_42_8,KIND=ip_sp_4)
   write(*,*) cmplx(iv_42_1,KIND=ip_dp_4)
   write(*,*) cmplx(iv_42_2,KIND=ip_dp_4)
   write(*,*) cmplx(iv_42_4,KIND=ip_dp_4)
   write(*,*) cmplx(iv_42_8,KIND=ip_dp_4)
   write(*,*) cmplx(rv_42_4,KIND=ip_dp_4)
   write(*,*) cmplx(rv_42_8,KIND=ip_dp_4)
   write(*,*) cmplx(cv_42_4,KIND=ip_dp_4)
   write(*,*) cmplx(cv_42_8,KIND=ip_dp_4)
   write(*,*) cmplx(iv_42_1,KIND=ip_sp_8)
   write(*,*) cmplx(iv_42_2,KIND=ip_sp_8)
   write(*,*) cmplx(iv_42_4,KIND=ip_sp_8)
   write(*,*) cmplx(iv_42_8,KIND=ip_sp_8)
   write(*,*) cmplx(rv_42_4,KIND=ip_sp_8)
   write(*,*) cmplx(rv_42_8,KIND=ip_sp_8)
   write(*,*) cmplx(cv_42_4,KIND=ip_sp_8)
   write(*,*) cmplx(cv_42_8,KIND=ip_sp_8)
   write(*,*) cmplx(iv_42_1,KIND=ip_dp_8)
   write(*,*) cmplx(iv_42_2,KIND=ip_dp_8)
   write(*,*) cmplx(iv_42_4,KIND=ip_dp_8)
   write(*,*) cmplx(iv_42_8,KIND=ip_dp_8)
   write(*,*) cmplx(rv_42_4,KIND=ip_dp_8)
   write(*,*) cmplx(rv_42_8,KIND=ip_dp_8)
   write(*,*) cmplx(cv_42_4,KIND=ip_dp_8)
   write(*,*) cmplx(cv_42_8,KIND=ip_dp_8)
   write(*,*) cmplx(iv_42_1,iv_42_1)
   write(*,*) cmplx(iv_42_1,iv_42_2)
   write(*,*) cmplx(iv_42_1,iv_42_4)
   write(*,*) cmplx(iv_42_1,iv_42_8)
   write(*,*) cmplx(iv_42_1,rv_42_4)
   write(*,*) cmplx(iv_42_1,rv_42_8)
   write(*,*) cmplx(iv_42_2,iv_42_1)
   write(*,*) cmplx(iv_42_2,iv_42_2)
   write(*,*) cmplx(iv_42_2,iv_42_4)
   write(*,*) cmplx(iv_42_2,iv_42_8)
   write(*,*) cmplx(iv_42_2,rv_42_4)
   write(*,*) cmplx(iv_42_2,rv_42_8)
   write(*,*) cmplx(iv_42_4,iv_42_1)
   write(*,*) cmplx(iv_42_4,iv_42_2)
   write(*,*) cmplx(iv_42_4,iv_42_4)
   write(*,*) cmplx(iv_42_4,iv_42_8)
   write(*,*) cmplx(iv_42_4,rv_42_4)
   write(*,*) cmplx(iv_42_4,rv_42_8)
   write(*,*) cmplx(iv_42_8,iv_42_1)
   write(*,*) cmplx(iv_42_8,iv_42_2)
   write(*,*) cmplx(iv_42_8,iv_42_4)
   write(*,*) cmplx(iv_42_8,iv_42_8)
   write(*,*) cmplx(iv_42_8,rv_42_4)
   write(*,*) cmplx(iv_42_8,rv_42_8)
   write(*,*) cmplx(rv_42_4,iv_42_1)
   write(*,*) cmplx(rv_42_4,iv_42_2)
   write(*,*) cmplx(rv_42_4,iv_42_4)
   write(*,*) cmplx(rv_42_4,iv_42_8)
   write(*,*) cmplx(rv_42_4,rv_42_4)
   write(*,*) cmplx(rv_42_4,rv_42_8)
   write(*,*) cmplx(rv_42_8,iv_42_1)
   write(*,*) cmplx(rv_42_8,iv_42_2)
   write(*,*) cmplx(rv_42_8,iv_42_4)
   write(*,*) cmplx(rv_42_8,iv_42_8)
   write(*,*) cmplx(rv_42_8,rv_42_4)
   write(*,*) cmplx(rv_42_8,rv_42_8)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_sp_1)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_sp_1)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_sp_1)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_sp_1)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_sp_1)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_sp_1)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_sp_1)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_sp_1)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_sp_1)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_sp_1)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_sp_1)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_sp_1)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_sp_1)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_sp_1)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_sp_1)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_sp_1)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_sp_1)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_sp_1)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_sp_1)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_sp_1)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_sp_1)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_sp_1)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_sp_1)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_dp_1)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_dp_1)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_dp_1)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_dp_1)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_dp_1)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_dp_1)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_dp_1)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_dp_1)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_dp_1)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_dp_1)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_dp_1)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_dp_1)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_dp_1)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_dp_1)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_dp_1)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_dp_1)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_dp_1)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_dp_1)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_dp_1)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_dp_1)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_dp_1)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_dp_1)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_dp_1)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_sp_2)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_sp_2)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_sp_2)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_sp_2)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_sp_2)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_sp_2)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_sp_2)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_sp_2)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_sp_2)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_sp_2)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_sp_2)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_sp_2)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_sp_2)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_sp_2)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_sp_2)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_sp_2)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_sp_2)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_sp_2)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_sp_2)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_sp_2)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_sp_2)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_sp_2)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_sp_2)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_dp_2)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_dp_2)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_dp_2)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_dp_2)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_dp_2)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_dp_2)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_dp_2)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_dp_2)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_dp_2)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_dp_2)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_dp_2)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_dp_2)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_dp_2)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_dp_2)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_dp_2)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_dp_2)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_dp_2)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_dp_2)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_dp_2)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_dp_2)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_dp_2)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_dp_2)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_dp_2)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_sp_4)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_sp_4)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_sp_4)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_sp_4)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_sp_4)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_sp_4)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_sp_4)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_sp_4)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_sp_4)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_sp_4)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_sp_4)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_sp_4)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_sp_4)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_sp_4)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_sp_4)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_sp_4)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_sp_4)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_sp_4)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_sp_4)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_sp_4)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_sp_4)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_sp_4)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_sp_4)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_dp_4)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_dp_4)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_dp_4)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_dp_4)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_dp_4)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_dp_4)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_dp_4)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_dp_4)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_dp_4)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_dp_4)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_dp_4)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_dp_4)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_dp_4)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_dp_4)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_dp_4)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_dp_4)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_dp_4)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_dp_4)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_dp_4)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_dp_4)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_dp_4)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_dp_4)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_dp_4)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_sp_8)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_sp_8)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_sp_8)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_sp_8)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_sp_8)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_sp_8)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_sp_8)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_sp_8)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_sp_8)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_sp_8)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_sp_8)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_sp_8)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_sp_8)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_sp_8)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_sp_8)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_sp_8)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_sp_8)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_sp_8)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_sp_8)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_sp_8)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_sp_8)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_sp_8)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_sp_8)

   write(*,*) cmplx(iv_42_1,iv_42_1,ip_dp_8)
   write(*,*) cmplx(iv_42_1,iv_42_2,ip_dp_8)
   write(*,*) cmplx(iv_42_1,iv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_1,iv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_1,rv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_1,rv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_2,iv_42_1,ip_dp_8)
   write(*,*) cmplx(iv_42_2,iv_42_2,ip_dp_8)
   write(*,*) cmplx(iv_42_2,iv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_2,iv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_2,rv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_2,rv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_4,iv_42_1,ip_dp_8)
   write(*,*) cmplx(iv_42_4,iv_42_2,ip_dp_8)
   write(*,*) cmplx(iv_42_4,iv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_4,iv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_4,rv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_4,rv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_8,iv_42_1,ip_dp_8)
   write(*,*) cmplx(iv_42_8,iv_42_2,ip_dp_8)
   write(*,*) cmplx(iv_42_8,iv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_8,iv_42_8,ip_dp_8)
   write(*,*) cmplx(iv_42_8,rv_42_4,ip_dp_8)
   write(*,*) cmplx(iv_42_8,rv_42_8,ip_dp_8)
   write(*,*) cmplx(rv_42_4,iv_42_1,ip_dp_8)
   write(*,*) cmplx(rv_42_4,iv_42_2,ip_dp_8)
   write(*,*) cmplx(rv_42_4,iv_42_4,ip_dp_8)
   write(*,*) cmplx(rv_42_4,iv_42_8,ip_dp_8)
   write(*,*) cmplx(rv_42_4,rv_42_4,ip_dp_8)
   write(*,*) cmplx(rv_42_4,rv_42_8,ip_dp_8)
   write(*,*) cmplx(rv_42_8,iv_42_1,ip_dp_8)
   write(*,*) cmplx(rv_42_8,iv_42_2,ip_dp_8)
   write(*,*) cmplx(rv_42_8,iv_42_4,ip_dp_8)
   write(*,*) cmplx(rv_42_8,iv_42_8,ip_dp_8)
   write(*,*) cmplx(rv_42_8,rv_42_4,ip_dp_8)
   write(*,*) cmplx(rv_42_8,rv_42_8,ip_dp_8)
   write(*,*) 'CONJG'
   write(*,*) conjg(cv_42_4)
   write(*,*) conjg(cv_42_8)
   write(*,*) 'COS'
   write(*,*) cos(rv_42_4)
   write(*,*) cos(rv_42_8)
   write(*,*) cos(cv_42_4)
   write(*,*) cos(cv_42_8)
   write(*,*) 'COSH'
   write(*,*) cosh(rv_42_4)
   write(*,*) cosh(rv_42_8)
   write(*,*) 'DBLE'
   write(*,*) dble(iv_42_1)
   write(*,*) dble(iv_42_2)
   write(*,*) dble(iv_42_4)
   write(*,*) dble(iv_42_8)
   write(*,*) dble(rv_42_4)
   write(*,*) dble(rv_42_8)
   write(*,*) dble(cv_42_4)
   write(*,*) dble(cv_42_8)
   write(*,*) 'DIGITS'
   write(*,*) digits(iv_42_1)
   write(*,*) digits(iv_42_2)
   write(*,*) digits(iv_42_4)
   write(*,*) digits(iv_42_8)
   write(*,*) digits(rv_42_4)
   write(*,*) digits(rv_42_8)
   write(*,*) 'DIM'
   write(*,*) dim(iv_42_1,iv_42_1)
   write(*,*) dim(iv_42_2,iv_42_2)
   write(*,*) dim(iv_42_4,iv_42_4)
   write(*,*) dim(iv_42_8,iv_42_8)
   write(*,*) dim(rv_42_4,rv_42_4)
   write(*,*) dim(rv_42_8,rv_42_8)
   write(*,*) 'DPROD'
   write(*,*) dprod(rv_42_4,rv_42_4)
   write(*,*) 'EPSILON'
   write(*,*) epsilon(rv_42_4)
   write(*,*) epsilon(rv_42_8)
   write(*,*) 'EXP'
   write(*,*) exp(rv_42_4)
   write(*,*) exp(rv_42_8)
   write(*,*) exp(cv_42_4)
   write(*,*) exp(cv_42_8)
   write(*,*) 'EXPONENT'
   write(*,*) exponent(rv_42_4)
   write(*,*) exponent(rv_42_8)
   write(*,*) 'FLOOR'
   write(*,*) floor(rv_42_4,ip_ik1_1)
   write(*,*) floor(rv_42_8,ip_ik1_1)
   write(*,*) floor(rv_42_4,ip_ik2_1)
   write(*,*) floor(rv_42_8,ip_ik2_1)
   write(*,*) floor(rv_42_4,ip_ik4_1)
   write(*,*) floor(rv_42_8,ip_ik4_1)
   write(*,*) floor(rv_42_4,ip_ik8_1)
   write(*,*) floor(rv_42_8,ip_ik8_1)
   write(*,*) floor(rv_42_4,ip_ik1_2)
   write(*,*) floor(rv_42_8,ip_ik1_2)
   write(*,*) floor(rv_42_4,ip_ik2_2)
   write(*,*) floor(rv_42_8,ip_ik2_2)
   write(*,*) floor(rv_42_4,ip_ik4_2)
   write(*,*) floor(rv_42_8,ip_ik4_2)
   write(*,*) floor(rv_42_4,ip_ik8_2)
   write(*,*) floor(rv_42_8,ip_ik8_2)
   write(*,*) floor(rv_42_4,ip_ik1_4)
   write(*,*) floor(rv_42_8,ip_ik1_4)
   write(*,*) floor(rv_42_4,ip_ik2_4)
   write(*,*) floor(rv_42_8,ip_ik2_4)
   write(*,*) floor(rv_42_4,ip_ik4_4)
   write(*,*) floor(rv_42_8,ip_ik4_4)
   write(*,*) floor(rv_42_4,ip_ik8_4)
   write(*,*) floor(rv_42_8,ip_ik8_4)
   write(*,*) floor(rv_42_4,ip_ik1_8)
   write(*,*) floor(rv_42_8,ip_ik1_8)
   write(*,*) floor(rv_42_4,ip_ik2_8)
   write(*,*) floor(rv_42_8,ip_ik2_8)
   write(*,*) floor(rv_42_4,ip_ik4_8)
   write(*,*) floor(rv_42_8,ip_ik4_8)
   write(*,*) floor(rv_42_4,ip_ik8_8)
   write(*,*) floor(rv_42_8,ip_ik8_8)
   write(*,*) 'FRACTION'
   write(*,*) fraction(rv_42_4)
   write(*,*) fraction(rv_42_8)
   write(*,*) 'HUGE'
   write(*,*) huge(iv_42_1)
   write(*,*) huge(iv_42_2)
   write(*,*) huge(iv_42_4)
   write(*,*) huge(iv_42_8)
   write(*,*) huge(rv_42_4)
   write(*,*) huge(rv_42_8)
   write(*,*) 'IACHAR'
   write(*,*) iachar(hv_42_1(1:1))
   write(*,*) 'IAND'
   write(*,*) iand(iv_42_1,iv_42_1)
   write(*,*) iand(iv_42_2,iv_42_2)
   write(*,*) iand(iv_42_4,iv_42_4)
   write(*,*) iand(iv_42_8,iv_42_8)
   write(*,*) 'IBCLR'
   write(*,*) ibclr(iv_42_1,modulo(iv_42_1,int(bit_size(iv_42_1),ik1)))
   write(*,*) ibclr(iv_42_2,modulo(iv_42_1,int(bit_size(iv_42_2),ik1)))
   write(*,*) ibclr(iv_42_4,modulo(iv_42_1,int(bit_size(iv_42_4),ik1)))
   write(*,*) ibclr(iv_42_8,modulo(iv_42_1,int(bit_size(iv_42_8),ik1)))
   write(*,*) ibclr(iv_42_1,modulo(iv_42_2,int(bit_size(iv_42_1),ik2)))
   write(*,*) ibclr(iv_42_2,modulo(iv_42_2,int(bit_size(iv_42_2),ik2)))
   write(*,*) ibclr(iv_42_4,modulo(iv_42_2,int(bit_size(iv_42_4),ik2)))
   write(*,*) ibclr(iv_42_8,modulo(iv_42_2,int(bit_size(iv_42_8),ik2)))
   write(*,*) ibclr(iv_42_1,modulo(iv_42_4,int(bit_size(iv_42_1),ik4)))
   write(*,*) ibclr(iv_42_2,modulo(iv_42_4,int(bit_size(iv_42_2),ik4)))
   write(*,*) ibclr(iv_42_4,modulo(iv_42_4,int(bit_size(iv_42_4),ik4)))
   write(*,*) ibclr(iv_42_8,modulo(iv_42_4,int(bit_size(iv_42_8),ik4)))
   write(*,*) ibclr(iv_42_1,modulo(iv_42_8,int(bit_size(iv_42_1),ik8)))
   write(*,*) ibclr(iv_42_2,modulo(iv_42_8,int(bit_size(iv_42_2),ik8)))
   write(*,*) ibclr(iv_42_4,modulo(iv_42_8,int(bit_size(iv_42_4),ik8)))
   write(*,*) ibclr(iv_42_8,modulo(iv_42_8,int(bit_size(iv_42_8),ik8)))
   write(*,*) 'IBITS'
   write(*,*) ibits(iv_42_1,ip_ik1_1,ip_ik1_1)
   write(*,*) ibits(iv_42_2,ip_ik1_1,ip_ik1_1)
   write(*,*) ibits(iv_42_4,ip_ik1_1,ip_ik1_1)
   write(*,*) ibits(iv_42_8,ip_ik1_1,ip_ik1_1)
   write(*,*) ibits(iv_42_1,ip_ik1_2,ip_ik1_1)
   write(*,*) ibits(iv_42_2,ip_ik1_2,ip_ik1_1)
   write(*,*) ibits(iv_42_4,ip_ik1_2,ip_ik1_1)
   write(*,*) ibits(iv_42_8,ip_ik1_2,ip_ik1_1)
   write(*,*) ibits(iv_42_1,ip_ik1_4,ip_ik1_1)
   write(*,*) ibits(iv_42_2,ip_ik1_4,ip_ik1_1)
   write(*,*) ibits(iv_42_4,ip_ik1_4,ip_ik1_1)
   write(*,*) ibits(iv_42_8,ip_ik1_4,ip_ik1_1)
   write(*,*) ibits(iv_42_1,ip_ik1_8,ip_ik1_1)
   write(*,*) ibits(iv_42_2,ip_ik1_8,ip_ik1_1)
   write(*,*) ibits(iv_42_4,ip_ik1_8,ip_ik1_1)
   write(*,*) ibits(iv_42_8,ip_ik1_8,ip_ik1_1)
   write(*,*) ibits(iv_42_1,ip_ik1_1,ip_ik1_2)
   write(*,*) ibits(iv_42_2,ip_ik1_1,ip_ik1_2)
   write(*,*) ibits(iv_42_4,ip_ik1_1,ip_ik1_2)
   write(*,*) ibits(iv_42_8,ip_ik1_1,ip_ik1_2)
   write(*,*) ibits(iv_42_1,ip_ik1_2,ip_ik1_2)
   write(*,*) ibits(iv_42_2,ip_ik1_2,ip_ik1_2)
   write(*,*) ibits(iv_42_4,ip_ik1_2,ip_ik1_2)
   write(*,*) ibits(iv_42_8,ip_ik1_2,ip_ik1_2)
   write(*,*) ibits(iv_42_1,ip_ik1_4,ip_ik1_2)
   write(*,*) ibits(iv_42_2,ip_ik1_4,ip_ik1_2)
   write(*,*) ibits(iv_42_4,ip_ik1_4,ip_ik1_2)
   write(*,*) ibits(iv_42_8,ip_ik1_4,ip_ik1_2)
   write(*,*) ibits(iv_42_1,ip_ik1_8,ip_ik1_2)
   write(*,*) ibits(iv_42_2,ip_ik1_8,ip_ik1_2)
   write(*,*) ibits(iv_42_4,ip_ik1_8,ip_ik1_2)
   write(*,*) ibits(iv_42_8,ip_ik1_8,ip_ik1_2)
   write(*,*) ibits(iv_42_1,ip_ik1_1,ip_ik1_4)
   write(*,*) ibits(iv_42_2,ip_ik1_1,ip_ik1_4)
   write(*,*) ibits(iv_42_4,ip_ik1_1,ip_ik1_4)
   write(*,*) ibits(iv_42_8,ip_ik1_1,ip_ik1_4)
   write(*,*) ibits(iv_42_1,ip_ik1_2,ip_ik1_4)
   write(*,*) ibits(iv_42_2,ip_ik1_2,ip_ik1_4)
   write(*,*) ibits(iv_42_4,ip_ik1_2,ip_ik1_4)
   write(*,*) ibits(iv_42_8,ip_ik1_2,ip_ik1_4)
   write(*,*) ibits(iv_42_1,ip_ik1_4,ip_ik1_4)
   write(*,*) ibits(iv_42_2,ip_ik1_4,ip_ik1_4)
   write(*,*) ibits(iv_42_4,ip_ik1_4,ip_ik1_4)
   write(*,*) ibits(iv_42_8,ip_ik1_4,ip_ik1_4)
   write(*,*) ibits(iv_42_1,ip_ik1_8,ip_ik1_4)
   write(*,*) ibits(iv_42_2,ip_ik1_8,ip_ik1_4)
   write(*,*) ibits(iv_42_4,ip_ik1_8,ip_ik1_4)
   write(*,*) ibits(iv_42_8,ip_ik1_8,ip_ik1_4)
   write(*,*) ibits(iv_42_1,ip_ik1_1,ip_ik1_8)
   write(*,*) ibits(iv_42_2,ip_ik1_1,ip_ik1_8)
   write(*,*) ibits(iv_42_4,ip_ik1_1,ip_ik1_8)
   write(*,*) ibits(iv_42_8,ip_ik1_1,ip_ik1_8)
   write(*,*) ibits(iv_42_1,ip_ik1_2,ip_ik1_8)
   write(*,*) ibits(iv_42_2,ip_ik1_2,ip_ik1_8)
   write(*,*) ibits(iv_42_4,ip_ik1_2,ip_ik1_8)
   write(*,*) ibits(iv_42_8,ip_ik1_2,ip_ik1_8)
   write(*,*) ibits(iv_42_1,ip_ik1_4,ip_ik1_8)
   write(*,*) ibits(iv_42_2,ip_ik1_4,ip_ik1_8)
   write(*,*) ibits(iv_42_4,ip_ik1_4,ip_ik1_8)
   write(*,*) ibits(iv_42_8,ip_ik1_4,ip_ik1_8)
   write(*,*) ibits(iv_42_1,ip_ik1_8,ip_ik1_8)
   write(*,*) ibits(iv_42_2,ip_ik1_8,ip_ik1_8)
   write(*,*) ibits(iv_42_4,ip_ik1_8,ip_ik1_8)
   write(*,*) ibits(iv_42_8,ip_ik1_8,ip_ik1_8)
   write(*,*) 'IBSET'
   write(*,*) ibset(iv_42_1,modulo(iv_42_1,int(bit_size(iv_42_1),ik1)))
   write(*,*) ibset(iv_42_2,modulo(iv_42_1,int(bit_size(iv_42_2),ik1)))
   write(*,*) ibset(iv_42_4,modulo(iv_42_1,int(bit_size(iv_42_4),ik1)))
   write(*,*) ibset(iv_42_8,modulo(iv_42_1,int(bit_size(iv_42_8),ik1)))
   write(*,*) ibset(iv_42_1,modulo(iv_42_2,int(bit_size(iv_42_1),ik2)))
   write(*,*) ibset(iv_42_2,modulo(iv_42_2,int(bit_size(iv_42_2),ik2)))
   write(*,*) ibset(iv_42_4,modulo(iv_42_2,int(bit_size(iv_42_4),ik2)))
   write(*,*) ibset(iv_42_8,modulo(iv_42_2,int(bit_size(iv_42_8),ik2)))
   write(*,*) ibset(iv_42_1,modulo(iv_42_4,int(bit_size(iv_42_1),ik4)))
   write(*,*) ibset(iv_42_2,modulo(iv_42_4,int(bit_size(iv_42_2),ik4)))
   write(*,*) ibset(iv_42_4,modulo(iv_42_4,int(bit_size(iv_42_4),ik4)))
   write(*,*) ibset(iv_42_8,modulo(iv_42_4,int(bit_size(iv_42_8),ik4)))
   write(*,*) ibset(iv_42_1,modulo(iv_42_8,int(bit_size(iv_42_1),ik8)))
   write(*,*) ibset(iv_42_2,modulo(iv_42_8,int(bit_size(iv_42_2),ik8)))
   write(*,*) ibset(iv_42_4,modulo(iv_42_8,int(bit_size(iv_42_4),ik8)))
   write(*,*) ibset(iv_42_8,modulo(iv_42_8,int(bit_size(iv_42_8),ik8)))
   write(*,*) 'ICHAR'
   write(*,*) ichar(hv_42_1(1:1))
   write(*,*) 'IEOR'
   write(*,*) ieor(iv_42_1,iv_42_1)
   write(*,*) ieor(iv_42_2,iv_42_2)
   write(*,*) ieor(iv_42_4,iv_42_4)
   write(*,*) ieor(iv_42_8,iv_42_8)
   write(*,*) 'INDEX'
   write(*,*) index(hv_42_1,hv_42_1)
   write(*,*) index(hv_42_1,hv_42_1,lv_t_1)
   write(*,*) index(hv_42_1,hv_42_1,lv_t_2)
   write(*,*) index(hv_42_1,hv_42_1,lv_t_4)
   write(*,*) index(hv_42_1,hv_42_1,lv_t_8)
   write(*,*) 'INT'
   write(*,*) int(iv_42_1)
   write(*,*) int(iv_42_2)
   write(*,*) int(iv_42_4)
   write(*,*) int(iv_42_8)
   write(*,*) int(rv_42_4)
   write(*,*) int(rv_42_8)
   write(*,*) int(cv_42_4)
   write(*,*) int(cv_42_8)
   write(*,*) int(iv_42_1,ip_ik1_1)
   write(*,*) int(iv_42_2,ip_ik1_1)
   write(*,*) int(iv_42_4,ip_ik1_1)
   write(*,*) int(iv_42_8,ip_ik1_1)
   write(*,*) int(rv_42_4,ip_ik1_1)
   write(*,*) int(rv_42_8,ip_ik1_1)
   write(*,*) int(cv_42_4,ip_ik1_1)
   write(*,*) int(cv_42_8,ip_ik1_1)
   write(*,*) int(iv_42_1,ip_ik2_1)
   write(*,*) int(iv_42_2,ip_ik2_1)
   write(*,*) int(iv_42_4,ip_ik2_1)
   write(*,*) int(iv_42_8,ip_ik2_1)
   write(*,*) int(rv_42_4,ip_ik2_1)
   write(*,*) int(rv_42_8,ip_ik2_1)
   write(*,*) int(cv_42_4,ip_ik2_1)
   write(*,*) int(cv_42_8,ip_ik2_1)
   write(*,*) int(iv_42_1,ip_ik4_1)
   write(*,*) int(iv_42_2,ip_ik4_1)
   write(*,*) int(iv_42_4,ip_ik4_1)
   write(*,*) int(iv_42_8,ip_ik4_1)
   write(*,*) int(rv_42_4,ip_ik4_1)
   write(*,*) int(rv_42_8,ip_ik4_1)
   write(*,*) int(cv_42_4,ip_ik4_1)
   write(*,*) int(cv_42_8,ip_ik4_1)
   write(*,*) int(iv_42_1,ip_ik8_1)
   write(*,*) int(iv_42_2,ip_ik8_1)
   write(*,*) int(iv_42_4,ip_ik8_1)
   write(*,*) int(iv_42_8,ip_ik8_1)
   write(*,*) int(rv_42_4,ip_ik8_1)
   write(*,*) int(rv_42_8,ip_ik8_1)
   write(*,*) int(cv_42_4,ip_ik8_1)
   write(*,*) int(cv_42_8,ip_ik8_1)

   write(*,*) int(iv_42_1,ip_ik1_2)
   write(*,*) int(iv_42_2,ip_ik1_2)
   write(*,*) int(iv_42_4,ip_ik1_2)
   write(*,*) int(iv_42_8,ip_ik1_2)
   write(*,*) int(rv_42_4,ip_ik1_2)
   write(*,*) int(rv_42_8,ip_ik1_2)
   write(*,*) int(cv_42_4,ip_ik1_2)
   write(*,*) int(cv_42_8,ip_ik1_2)
   write(*,*) int(iv_42_1,ip_ik2_2)
   write(*,*) int(iv_42_2,ip_ik2_2)
   write(*,*) int(iv_42_4,ip_ik2_2)
   write(*,*) int(iv_42_8,ip_ik2_2)
   write(*,*) int(rv_42_4,ip_ik2_2)
   write(*,*) int(rv_42_8,ip_ik2_2)
   write(*,*) int(cv_42_4,ip_ik2_2)
   write(*,*) int(cv_42_8,ip_ik2_2)
   write(*,*) int(iv_42_1,ip_ik4_2)
   write(*,*) int(iv_42_2,ip_ik4_2)
   write(*,*) int(iv_42_4,ip_ik4_2)
   write(*,*) int(iv_42_8,ip_ik4_2)
   write(*,*) int(rv_42_4,ip_ik4_2)
   write(*,*) int(rv_42_8,ip_ik4_2)
   write(*,*) int(cv_42_4,ip_ik4_2)
   write(*,*) int(cv_42_8,ip_ik4_2)
   write(*,*) int(iv_42_1,ip_ik8_2)
   write(*,*) int(iv_42_2,ip_ik8_2)
   write(*,*) int(iv_42_4,ip_ik8_2)
   write(*,*) int(iv_42_8,ip_ik8_2)
   write(*,*) int(rv_42_4,ip_ik8_2)
   write(*,*) int(rv_42_8,ip_ik8_2)
   write(*,*) int(cv_42_4,ip_ik8_2)
   write(*,*) int(cv_42_8,ip_ik8_2)

   write(*,*) int(iv_42_1,ip_ik1_4)
   write(*,*) int(iv_42_2,ip_ik1_4)
   write(*,*) int(iv_42_4,ip_ik1_4)
   write(*,*) int(iv_42_8,ip_ik1_4)
   write(*,*) int(rv_42_4,ip_ik1_4)
   write(*,*) int(rv_42_8,ip_ik1_4)
   write(*,*) int(cv_42_4,ip_ik1_4)
   write(*,*) int(cv_42_8,ip_ik1_4)
   write(*,*) int(iv_42_1,ip_ik2_4)
   write(*,*) int(iv_42_2,ip_ik2_4)
   write(*,*) int(iv_42_4,ip_ik2_4)
   write(*,*) int(iv_42_8,ip_ik2_4)
   write(*,*) int(rv_42_4,ip_ik2_4)
   write(*,*) int(rv_42_8,ip_ik2_4)
   write(*,*) int(cv_42_4,ip_ik2_4)
   write(*,*) int(cv_42_8,ip_ik2_4)
   write(*,*) int(iv_42_1,ip_ik4_4)
   write(*,*) int(iv_42_2,ip_ik4_4)
   write(*,*) int(iv_42_4,ip_ik4_4)
   write(*,*) int(iv_42_8,ip_ik4_4)
   write(*,*) int(rv_42_4,ip_ik4_4)
   write(*,*) int(rv_42_8,ip_ik4_4)
   write(*,*) int(cv_42_4,ip_ik4_4)
   write(*,*) int(cv_42_8,ip_ik4_4)
   write(*,*) int(iv_42_1,ip_ik8_4)
   write(*,*) int(iv_42_2,ip_ik8_4)
   write(*,*) int(iv_42_4,ip_ik8_4)
   write(*,*) int(iv_42_8,ip_ik8_4)
   write(*,*) int(rv_42_4,ip_ik8_4)
   write(*,*) int(rv_42_8,ip_ik8_4)
   write(*,*) int(cv_42_4,ip_ik8_4)
   write(*,*) int(cv_42_8,ip_ik8_4)

   write(*,*) int(iv_42_1,ip_ik1_8)
   write(*,*) int(iv_42_2,ip_ik1_8)
   write(*,*) int(iv_42_4,ip_ik1_8)
   write(*,*) int(iv_42_8,ip_ik1_8)
   write(*,*) int(rv_42_4,ip_ik1_8)
   write(*,*) int(rv_42_8,ip_ik1_8)
   write(*,*) int(cv_42_4,ip_ik1_8)
   write(*,*) int(cv_42_8,ip_ik1_8)
   write(*,*) int(iv_42_1,ip_ik2_8)
   write(*,*) int(iv_42_2,ip_ik2_8)
   write(*,*) int(iv_42_4,ip_ik2_8)
   write(*,*) int(iv_42_8,ip_ik2_8)
   write(*,*) int(rv_42_4,ip_ik2_8)
   write(*,*) int(rv_42_8,ip_ik2_8)
   write(*,*) int(cv_42_4,ip_ik2_8)
   write(*,*) int(cv_42_8,ip_ik2_8)
   write(*,*) int(iv_42_1,ip_ik4_8)
   write(*,*) int(iv_42_2,ip_ik4_8)
   write(*,*) int(iv_42_4,ip_ik4_8)
   write(*,*) int(iv_42_8,ip_ik4_8)
   write(*,*) int(rv_42_4,ip_ik4_8)
   write(*,*) int(rv_42_8,ip_ik4_8)
   write(*,*) int(cv_42_4,ip_ik4_8)
   write(*,*) int(cv_42_8,ip_ik4_8)
   write(*,*) int(iv_42_1,ip_ik8_8)
   write(*,*) int(iv_42_2,ip_ik8_8)
   write(*,*) int(iv_42_4,ip_ik8_8)
   write(*,*) int(iv_42_8,ip_ik8_8)
   write(*,*) int(rv_42_4,ip_ik8_8)
   write(*,*) int(rv_42_8,ip_ik8_8)
   write(*,*) int(cv_42_4,ip_ik8_8)
   write(*,*) int(cv_42_8,ip_ik8_8)
   write(*,*) 'IOR'
   write(*,*) ior(iv_42_1,iv_42_1)
   write(*,*) ior(iv_42_2,iv_42_2)
   write(*,*) ior(iv_42_4,iv_42_4)
   write(*,*) ior(iv_42_8,iv_42_8)
   write(*,*) 'ISHFT'
   write(*,*) ishft(iv_42_1,modulo(iv_42_1,int(bit_size(iv_42_1),ik1)))
   write(*,*) ishft(iv_42_2,modulo(iv_42_1,int(bit_size(iv_42_2),ik1)))
   write(*,*) ishft(iv_42_4,modulo(iv_42_1,int(bit_size(iv_42_4),ik1)))
   write(*,*) ishft(iv_42_8,modulo(iv_42_1,int(bit_size(iv_42_8),ik1)))
   write(*,*) ishft(iv_42_1,modulo(iv_42_2,int(bit_size(iv_42_1),ik2)))
   write(*,*) ishft(iv_42_2,modulo(iv_42_2,int(bit_size(iv_42_2),ik2)))
   write(*,*) ishft(iv_42_4,modulo(iv_42_2,int(bit_size(iv_42_4),ik2)))
   write(*,*) ishft(iv_42_8,modulo(iv_42_2,int(bit_size(iv_42_8),ik2)))
   write(*,*) ishft(iv_42_1,modulo(iv_42_4,int(bit_size(iv_42_1),ik4)))
   write(*,*) ishft(iv_42_2,modulo(iv_42_4,int(bit_size(iv_42_2),ik4)))
   write(*,*) ishft(iv_42_4,modulo(iv_42_4,int(bit_size(iv_42_4),ik4)))
   write(*,*) ishft(iv_42_8,modulo(iv_42_4,int(bit_size(iv_42_8),ik4)))
   write(*,*) ishft(iv_42_1,modulo(iv_42_8,int(bit_size(iv_42_1),ik8)))
   write(*,*) ishft(iv_42_2,modulo(iv_42_8,int(bit_size(iv_42_2),ik8)))
   write(*,*) ishft(iv_42_4,modulo(iv_42_8,int(bit_size(iv_42_4),ik8)))
   write(*,*) ishft(iv_42_8,modulo(iv_42_8,int(bit_size(iv_42_8),ik8)))
   write(*,*) 'ISHFTC'
   write(*,*) ishftc(iv_42_1,ip_ik1_1)
   write(*,*) ishftc(iv_42_2,ip_ik1_1)
   write(*,*) ishftc(iv_42_4,ip_ik1_1)
   write(*,*) ishftc(iv_42_8,ip_ik1_1)
   write(*,*) ishftc(iv_42_1,ip_ik1_2)
   write(*,*) ishftc(iv_42_2,ip_ik1_2)
   write(*,*) ishftc(iv_42_4,ip_ik1_2)
   write(*,*) ishftc(iv_42_8,ip_ik1_2)
   write(*,*) ishftc(iv_42_1,ip_ik1_4)
   write(*,*) ishftc(iv_42_2,ip_ik1_4)
   write(*,*) ishftc(iv_42_4,ip_ik1_4)
   write(*,*) ishftc(iv_42_8,ip_ik1_4)
   write(*,*) ishftc(iv_42_1,ip_ik1_8)
   write(*,*) ishftc(iv_42_2,ip_ik1_8)
   write(*,*) ishftc(iv_42_4,ip_ik1_8)
   write(*,*) ishftc(iv_42_8,ip_ik1_8)

   write(*,*) ishftc(iv_42_1,ip_ik1_1,ip_ik1_1)
   write(*,*) ishftc(iv_42_2,ip_ik1_1,ip_ik1_1)
   write(*,*) ishftc(iv_42_4,ip_ik1_1,ip_ik1_1)
   write(*,*) ishftc(iv_42_8,ip_ik1_1,ip_ik1_1)
   write(*,*) ishftc(iv_42_1,ip_ik1_2,ip_ik1_1)
   write(*,*) ishftc(iv_42_2,ip_ik1_2,ip_ik1_1)
   write(*,*) ishftc(iv_42_4,ip_ik1_2,ip_ik1_1)
   write(*,*) ishftc(iv_42_8,ip_ik1_2,ip_ik1_1)
   write(*,*) ishftc(iv_42_1,ip_ik1_4,ip_ik1_1)
   write(*,*) ishftc(iv_42_2,ip_ik1_4,ip_ik1_1)
   write(*,*) ishftc(iv_42_4,ip_ik1_4,ip_ik1_1)
   write(*,*) ishftc(iv_42_8,ip_ik1_4,ip_ik1_1)
   write(*,*) ishftc(iv_42_1,ip_ik1_8,ip_ik1_1)
   write(*,*) ishftc(iv_42_2,ip_ik1_8,ip_ik1_1)
   write(*,*) ishftc(iv_42_4,ip_ik1_8,ip_ik1_1)
   write(*,*) ishftc(iv_42_8,ip_ik1_8,ip_ik1_1)

   write(*,*) ishftc(iv_42_1,ip_ik1_1,ip_ik1_2)
   write(*,*) ishftc(iv_42_2,ip_ik1_1,ip_ik1_2)
   write(*,*) ishftc(iv_42_4,ip_ik1_1,ip_ik1_2)
   write(*,*) ishftc(iv_42_8,ip_ik1_1,ip_ik1_2)
   write(*,*) ishftc(iv_42_1,ip_ik1_2,ip_ik1_2)
   write(*,*) ishftc(iv_42_2,ip_ik1_2,ip_ik1_2)
   write(*,*) ishftc(iv_42_4,ip_ik1_2,ip_ik1_2)
   write(*,*) ishftc(iv_42_8,ip_ik1_2,ip_ik1_2)
   write(*,*) ishftc(iv_42_1,ip_ik1_4,ip_ik1_2)
   write(*,*) ishftc(iv_42_2,ip_ik1_4,ip_ik1_2)
   write(*,*) ishftc(iv_42_4,ip_ik1_4,ip_ik1_2)
   write(*,*) ishftc(iv_42_8,ip_ik1_4,ip_ik1_2)
   write(*,*) ishftc(iv_42_1,ip_ik1_8,ip_ik1_2)
   write(*,*) ishftc(iv_42_2,ip_ik1_8,ip_ik1_2)
   write(*,*) ishftc(iv_42_4,ip_ik1_8,ip_ik1_2)
   write(*,*) ishftc(iv_42_8,ip_ik1_8,ip_ik1_2)

   write(*,*) ishftc(iv_42_1,ip_ik1_1,ip_ik1_4)
   write(*,*) ishftc(iv_42_2,ip_ik1_1,ip_ik1_4)
   write(*,*) ishftc(iv_42_4,ip_ik1_1,ip_ik1_4)
   write(*,*) ishftc(iv_42_8,ip_ik1_1,ip_ik1_4)
   write(*,*) ishftc(iv_42_1,ip_ik1_2,ip_ik1_4)
   write(*,*) ishftc(iv_42_2,ip_ik1_2,ip_ik1_4)
   write(*,*) ishftc(iv_42_4,ip_ik1_2,ip_ik1_4)
   write(*,*) ishftc(iv_42_8,ip_ik1_2,ip_ik1_4)
   write(*,*) ishftc(iv_42_1,ip_ik1_4,ip_ik1_4)
   write(*,*) ishftc(iv_42_2,ip_ik1_4,ip_ik1_4)
   write(*,*) ishftc(iv_42_4,ip_ik1_4,ip_ik1_4)
   write(*,*) ishftc(iv_42_8,ip_ik1_4,ip_ik1_4)
   write(*,*) ishftc(iv_42_1,ip_ik1_8,ip_ik1_4)
   write(*,*) ishftc(iv_42_2,ip_ik1_8,ip_ik1_4)
   write(*,*) ishftc(iv_42_4,ip_ik1_8,ip_ik1_4)
   write(*,*) ishftc(iv_42_8,ip_ik1_8,ip_ik1_4)

   write(*,*) ishftc(iv_42_1,ip_ik1_1,ip_ik1_8)
   write(*,*) ishftc(iv_42_2,ip_ik1_1,ip_ik1_8)
   write(*,*) ishftc(iv_42_4,ip_ik1_1,ip_ik1_8)
   write(*,*) ishftc(iv_42_8,ip_ik1_1,ip_ik1_8)
   write(*,*) ishftc(iv_42_1,ip_ik1_2,ip_ik1_8)
   write(*,*) ishftc(iv_42_2,ip_ik1_2,ip_ik1_8)
   write(*,*) ishftc(iv_42_4,ip_ik1_2,ip_ik1_8)
   write(*,*) ishftc(iv_42_8,ip_ik1_2,ip_ik1_8)
   write(*,*) ishftc(iv_42_1,ip_ik1_4,ip_ik1_8)
   write(*,*) ishftc(iv_42_2,ip_ik1_4,ip_ik1_8)
   write(*,*) ishftc(iv_42_4,ip_ik1_4,ip_ik1_8)
   write(*,*) ishftc(iv_42_8,ip_ik1_4,ip_ik1_8)
   write(*,*) ishftc(iv_42_1,ip_ik1_8,ip_ik1_8)
   write(*,*) ishftc(iv_42_2,ip_ik1_8,ip_ik1_8)
   write(*,*) ishftc(iv_42_4,ip_ik1_8,ip_ik1_8)
   write(*,*) ishftc(iv_42_8,ip_ik1_8,ip_ik1_8)
   write(*,*) 'KIND'
   write(*,*) kind(iv_42_1)
   write(*,*) kind(iv_42_2)
   write(*,*) kind(iv_42_4)
   write(*,*) kind(iv_42_8)
   write(*,*) kind(rv_42_4)
   write(*,*) kind(rv_42_8)
   write(*,*) kind(cv_42_4)
   write(*,*) kind(cv_42_8)
   write(*,*) kind(hv_42_1)
   write(*,*) kind(lv_t_1)
   write(*,*) kind(lv_t_2)
   write(*,*) kind(lv_t_4)
   write(*,*) kind(lv_t_8)
   write(*,*) 'LEN'
   write(*,*) len(hv_42_1)
   write(*,*) 'LEN_TRIM'
   write(*,*) len_trim(hv_42_1)
   write(*,*) 'LGE'
   write(*,*) lge(hv_42_1,hv_42_1)
   write(*,*) 'LGT'
   write(*,*) lgt(hv_42_1,hv_42_1)
   write(*,*) 'LLE'
   write(*,*) lle(hv_42_1,hv_42_1)
   write(*,*) 'LLT'
   write(*,*) llt(hv_42_1,hv_42_1)
   write(*,*) 'LOG'
   write(*,*) log(rv_42_4)
   write(*,*) log(rv_42_8)
   write(*,*) log(cv_42_4)
   write(*,*) log(cv_42_8)
   write(*,*) 'LOG10'
   write(*,*) log10(rv_42_4)
   write(*,*) log10(rv_42_8)
   write(*,*) 'LOGICAL'
   write(*,*) logical(lv_t_1)
   write(*,*) logical(lv_t_2)
   write(*,*) logical(lv_t_4)
   write(*,*) logical(lv_t_8)
   write(*,*) logical(lv_t_1,ip_lk1_1)
   write(*,*) logical(lv_t_2,ip_lk1_1)
   write(*,*) logical(lv_t_4,ip_lk1_1)
   write(*,*) logical(lv_t_8,ip_lk1_1)
   write(*,*) logical(lv_t_1,ip_lk2_1)
   write(*,*) logical(lv_t_2,ip_lk2_1)
   write(*,*) logical(lv_t_4,ip_lk2_1)
   write(*,*) logical(lv_t_8,ip_lk2_1)
   write(*,*) logical(lv_t_1,ip_lk4_1)
   write(*,*) logical(lv_t_2,ip_lk4_1)
   write(*,*) logical(lv_t_4,ip_lk4_1)
   write(*,*) logical(lv_t_8,ip_lk4_1)
   write(*,*) logical(lv_t_1,ip_lk8_1)
   write(*,*) logical(lv_t_2,ip_lk8_1)
   write(*,*) logical(lv_t_4,ip_lk8_1)
   write(*,*) logical(lv_t_8,ip_lk8_1)

   write(*,*) logical(lv_t_1,ip_lk1_2)
   write(*,*) logical(lv_t_2,ip_lk1_2)
   write(*,*) logical(lv_t_4,ip_lk1_2)
   write(*,*) logical(lv_t_8,ip_lk1_2)
   write(*,*) logical(lv_t_1,ip_lk2_2)
   write(*,*) logical(lv_t_2,ip_lk2_2)
   write(*,*) logical(lv_t_4,ip_lk2_2)
   write(*,*) logical(lv_t_8,ip_lk2_2)
   write(*,*) logical(lv_t_1,ip_lk4_2)
   write(*,*) logical(lv_t_2,ip_lk4_2)
   write(*,*) logical(lv_t_4,ip_lk4_2)
   write(*,*) logical(lv_t_8,ip_lk4_2)
   write(*,*) logical(lv_t_1,ip_lk8_2)
   write(*,*) logical(lv_t_2,ip_lk8_2)
   write(*,*) logical(lv_t_4,ip_lk8_2)
   write(*,*) logical(lv_t_8,ip_lk8_2)

   write(*,*) logical(lv_t_1,ip_lk1_4)
   write(*,*) logical(lv_t_2,ip_lk1_4)
   write(*,*) logical(lv_t_4,ip_lk1_4)
   write(*,*) logical(lv_t_8,ip_lk1_4)
   write(*,*) logical(lv_t_1,ip_lk2_4)
   write(*,*) logical(lv_t_2,ip_lk2_4)
   write(*,*) logical(lv_t_4,ip_lk2_4)
   write(*,*) logical(lv_t_8,ip_lk2_4)
   write(*,*) logical(lv_t_1,ip_lk4_4)
   write(*,*) logical(lv_t_2,ip_lk4_4)
   write(*,*) logical(lv_t_4,ip_lk4_4)
   write(*,*) logical(lv_t_8,ip_lk4_4)
   write(*,*) logical(lv_t_1,ip_lk8_4)
   write(*,*) logical(lv_t_2,ip_lk8_4)
   write(*,*) logical(lv_t_4,ip_lk8_4)
   write(*,*) logical(lv_t_8,ip_lk8_4)

   write(*,*) logical(lv_t_1,ip_lk1_8)
   write(*,*) logical(lv_t_2,ip_lk1_8)
   write(*,*) logical(lv_t_4,ip_lk1_8)
   write(*,*) logical(lv_t_8,ip_lk1_8)
   write(*,*) logical(lv_t_1,ip_lk2_8)
   write(*,*) logical(lv_t_2,ip_lk2_8)
   write(*,*) logical(lv_t_4,ip_lk2_8)
   write(*,*) logical(lv_t_8,ip_lk2_8)
   write(*,*) logical(lv_t_1,ip_lk4_8)
   write(*,*) logical(lv_t_2,ip_lk4_8)
   write(*,*) logical(lv_t_4,ip_lk4_8)
   write(*,*) logical(lv_t_8,ip_lk4_8)
   write(*,*) logical(lv_t_1,ip_lk8_8)
   write(*,*) logical(lv_t_2,ip_lk8_8)
   write(*,*) logical(lv_t_4,ip_lk8_8)
   write(*,*) logical(lv_t_8,ip_lk8_8)
   write(*,*) 'MAX'
   write(*,*) max(iv_42_1,iv_42_1)
   write(*,*) max(iv_42_2,iv_42_2)
   write(*,*) max(iv_42_4,iv_42_4)
   write(*,*) max(iv_42_8,iv_42_8)
   write(*,*) max(rv_42_4,rv_42_4)
   write(*,*) max(rv_42_8,rv_42_8)
   write(*,*) 'MAXEXPONENT'
   write(*,*) maxexponent(rv_42_4)
   write(*,*) maxexponent(rv_42_8)
   write(*,*) 'MERGE'
   write(*,*) merge(iv_42_1,iv_42_1,lv_t_1)
   write(*,*) merge(iv_42_2,iv_42_2,lv_t_1)
   write(*,*) merge(iv_42_4,iv_42_4,lv_t_1)
   write(*,*) merge(iv_42_8,iv_42_8,lv_t_1)
   write(*,*) merge(rv_42_4,rv_42_4,lv_t_1)
   write(*,*) merge(rv_42_8,rv_42_8,lv_t_1)
   write(*,*) merge(cv_42_4,cv_42_4,lv_t_1)
   write(*,*) merge(cv_42_8,cv_42_8,lv_t_1)
   write(*,*) merge(hv_42_1,hv_42_1,lv_t_1)
   write(*,*) merge(lv_t_1,lv_t_1,lv_t_1)
   write(*,*) merge(lv_t_2,lv_t_2,lv_t_1)
   write(*,*) merge(lv_t_4,lv_t_4,lv_t_1)
   write(*,*) merge(lv_t_8,lv_t_8,lv_t_1)
   write(*,*) merge(tv_42_4,tv_42_4,lv_t_1)
   write(*,*) merge(iv_42_1,iv_42_1,lv_t_2)
   write(*,*) merge(iv_42_2,iv_42_2,lv_t_2)
   write(*,*) merge(iv_42_4,iv_42_4,lv_t_2)
   write(*,*) merge(iv_42_8,iv_42_8,lv_t_2)
   write(*,*) merge(rv_42_4,rv_42_4,lv_t_2)
   write(*,*) merge(rv_42_8,rv_42_8,lv_t_2)
   write(*,*) merge(cv_42_4,cv_42_4,lv_t_2)
   write(*,*) merge(cv_42_8,cv_42_8,lv_t_2)
   write(*,*) merge(hv_42_1,hv_42_1,lv_t_2)
   write(*,*) merge(lv_t_1,lv_t_1,lv_t_2)
   write(*,*) merge(lv_t_2,lv_t_2,lv_t_2)
   write(*,*) merge(lv_t_4,lv_t_4,lv_t_2)
   write(*,*) merge(lv_t_8,lv_t_8,lv_t_2)
   write(*,*) merge(tv_42_4,tv_42_4,lv_t_2)
   write(*,*) merge(iv_42_1,iv_42_1,lv_t_4)
   write(*,*) merge(iv_42_2,iv_42_2,lv_t_4)
   write(*,*) merge(iv_42_4,iv_42_4,lv_t_4)
   write(*,*) merge(iv_42_8,iv_42_8,lv_t_4)
   write(*,*) merge(rv_42_4,rv_42_4,lv_t_4)
   write(*,*) merge(rv_42_8,rv_42_8,lv_t_4)
   write(*,*) merge(cv_42_4,cv_42_4,lv_t_4)
   write(*,*) merge(cv_42_8,cv_42_8,lv_t_4)
   write(*,*) merge(hv_42_1,hv_42_1,lv_t_4)
   write(*,*) merge(lv_t_1,lv_t_1,lv_t_4)
   write(*,*) merge(lv_t_2,lv_t_2,lv_t_4)
   write(*,*) merge(lv_t_4,lv_t_4,lv_t_4)
   write(*,*) merge(lv_t_8,lv_t_8,lv_t_4)
   write(*,*) merge(tv_42_4,tv_42_4,lv_t_4)
   write(*,*) merge(iv_42_1,iv_42_1,lv_t_8)
   write(*,*) merge(iv_42_2,iv_42_2,lv_t_8)
   write(*,*) merge(iv_42_4,iv_42_4,lv_t_8)
   write(*,*) merge(iv_42_8,iv_42_8,lv_t_8)
   write(*,*) merge(rv_42_4,rv_42_4,lv_t_8)
   write(*,*) merge(rv_42_8,rv_42_8,lv_t_8)
   write(*,*) merge(cv_42_4,cv_42_4,lv_t_8)
   write(*,*) merge(cv_42_8,cv_42_8,lv_t_8)
   write(*,*) merge(hv_42_1,hv_42_1,lv_t_8)
   write(*,*) merge(lv_t_1,lv_t_1,lv_t_8)
   write(*,*) merge(lv_t_2,lv_t_2,lv_t_8)
   write(*,*) merge(lv_t_4,lv_t_4,lv_t_8)
   write(*,*) merge(lv_t_8,lv_t_8,lv_t_8)
   write(*,*) merge(tv_42_4,tv_42_4,lv_t_8)
   write(*,*) 'MIN'
   write(*,*) min(iv_42_1,iv_42_1)
   write(*,*) min(iv_42_2,iv_42_2)
   write(*,*) min(iv_42_4,iv_42_4)
   write(*,*) min(iv_42_8,iv_42_8)
   write(*,*) min(rv_42_4,rv_42_4)
   write(*,*) min(rv_42_8,rv_42_8)
   write(*,*) 'MINEXPONENT'
   write(*,*) minexponent(rv_42_4)
   write(*,*) minexponent(rv_42_8)
   write(*,*) 'MOD'
   write(*,*) mod(iv_42_1,iv_42_1)
   write(*,*) mod(iv_42_2,iv_42_2)
   write(*,*) mod(iv_42_4,iv_42_4)
   write(*,*) mod(iv_42_8,iv_42_8)
   write(*,*) mod(rv_42_4,rv_42_4)
   write(*,*) mod(rv_42_8,rv_42_8)
   write(*,*) 'MODULO'
   write(*,*) modulo(iv_42_1,iv_42_1)
   write(*,*) modulo(iv_42_2,iv_42_2)
   write(*,*) modulo(iv_42_4,iv_42_4)
   write(*,*) modulo(iv_42_8,iv_42_8)
   write(*,*) modulo(rv_42_4,rv_42_4)
   write(*,*) modulo(rv_42_8,rv_42_8)
   write(*,*) 'NEAREST'
   write(*,*) nearest(rv_42_4,rv_42_4)
   write(*,*) nearest(rv_42_8,rv_42_4)
   write(*,*) nearest(rv_42_4,rv_42_8)
   write(*,*) nearest(rv_42_8,rv_42_8)
   write(*,*) 'NINT'
   write(*,*) nint(rv_42_4)
   write(*,*) nint(rv_42_8)
   write(*,*) nint(rv_42_4,ip_ik1_1)
   write(*,*) nint(rv_42_8,ip_ik1_1)
   write(*,*) nint(rv_42_4,ip_ik2_1)
   write(*,*) nint(rv_42_8,ip_ik2_1)
   write(*,*) nint(rv_42_4,ip_ik4_1)
   write(*,*) nint(rv_42_8,ip_ik4_1)
   write(*,*) nint(rv_42_4,ip_ik8_1)
   write(*,*) nint(rv_42_8,ip_ik8_1)

   write(*,*) nint(rv_42_4,ip_ik1_2)
   write(*,*) nint(rv_42_8,ip_ik1_2)
   write(*,*) nint(rv_42_4,ip_ik2_2)
   write(*,*) nint(rv_42_8,ip_ik2_2)
   write(*,*) nint(rv_42_4,ip_ik4_2)
   write(*,*) nint(rv_42_8,ip_ik4_2)
   write(*,*) nint(rv_42_4,ip_ik8_2)
   write(*,*) nint(rv_42_8,ip_ik8_2)

   write(*,*) nint(rv_42_4,ip_ik1_4)
   write(*,*) nint(rv_42_8,ip_ik1_4)
   write(*,*) nint(rv_42_4,ip_ik2_4)
   write(*,*) nint(rv_42_8,ip_ik2_4)
   write(*,*) nint(rv_42_4,ip_ik4_4)
   write(*,*) nint(rv_42_8,ip_ik4_4)
   write(*,*) nint(rv_42_4,ip_ik8_4)
   write(*,*) nint(rv_42_8,ip_ik8_4)

   write(*,*) nint(rv_42_4,ip_ik1_8)
   write(*,*) nint(rv_42_8,ip_ik1_8)
   write(*,*) nint(rv_42_4,ip_ik2_8)
   write(*,*) nint(rv_42_8,ip_ik2_8)
   write(*,*) nint(rv_42_4,ip_ik4_8)
   write(*,*) nint(rv_42_8,ip_ik4_8)
   write(*,*) nint(rv_42_4,ip_ik8_8)
   write(*,*) nint(rv_42_8,ip_ik8_8)
   write(*,*) 'NOT'
   write(*,*) not(iv_42_1)
   write(*,*) not(iv_42_2)
   write(*,*) not(iv_42_4)
   write(*,*) not(iv_42_8)
   write(*,*) 'PRECISION'
   write(*,*) precision(rv_42_4)
   write(*,*) precision(rv_42_8)
   write(*,*) precision(cv_42_4)
   write(*,*) precision(cv_42_8)
   write(*,*) 'RADIX'
   write(*,*) radix(iv_42_1)
   write(*,*) radix(iv_42_2)
   write(*,*) radix(iv_42_4)
   write(*,*) radix(iv_42_8)
   write(*,*) radix(rv_42_4)
   write(*,*) radix(rv_42_8)
   write(*,*) 'RANGE'
   write(*,*) range(iv_42_1)
   write(*,*) range(iv_42_2)
   write(*,*) range(iv_42_4)
   write(*,*) range(iv_42_8)
   write(*,*) range(rv_42_4)
   write(*,*) range(rv_42_8)
   write(*,*) range(cv_42_4)
   write(*,*) range(cv_42_8)
   write(*,*) 'REAL'
   write(*,*) real(iv_42_1)
   write(*,*) real(iv_42_2)
   write(*,*) real(iv_42_4)
   write(*,*) real(iv_42_8)
   write(*,*) real(rv_42_4)
   write(*,*) real(rv_42_8)
   write(*,*) real(cv_42_4)
   write(*,*) real(cv_42_8)
   write(*,*) real(iv_42_1,ip_sp_1)
   write(*,*) real(iv_42_2,ip_sp_1)
   write(*,*) real(iv_42_4,ip_sp_1)
   write(*,*) real(iv_42_8,ip_sp_1)
   write(*,*) real(rv_42_4,ip_sp_1)
   write(*,*) real(rv_42_8,ip_sp_1)
   write(*,*) real(cv_42_4,ip_sp_1)
   write(*,*) real(cv_42_8,ip_sp_1)
   write(*,*) real(iv_42_1,ip_dp_1)
   write(*,*) real(iv_42_2,ip_dp_1)
   write(*,*) real(iv_42_4,ip_dp_1)
   write(*,*) real(iv_42_8,ip_dp_1)
   write(*,*) real(rv_42_4,ip_dp_1)
   write(*,*) real(rv_42_8,ip_dp_1)
   write(*,*) real(cv_42_4,ip_dp_1)
   write(*,*) real(cv_42_8,ip_dp_1)

   write(*,*) real(iv_42_1,ip_sp_2)
   write(*,*) real(iv_42_2,ip_sp_2)
   write(*,*) real(iv_42_4,ip_sp_2)
   write(*,*) real(iv_42_8,ip_sp_2)
   write(*,*) real(rv_42_4,ip_sp_2)
   write(*,*) real(rv_42_8,ip_sp_2)
   write(*,*) real(cv_42_4,ip_sp_2)
   write(*,*) real(cv_42_8,ip_sp_2)
   write(*,*) real(iv_42_1,ip_dp_2)
   write(*,*) real(iv_42_2,ip_dp_2)
   write(*,*) real(iv_42_4,ip_dp_2)
   write(*,*) real(iv_42_8,ip_dp_2)
   write(*,*) real(rv_42_4,ip_dp_2)
   write(*,*) real(rv_42_8,ip_dp_2)
   write(*,*) real(cv_42_4,ip_dp_2)
   write(*,*) real(cv_42_8,ip_dp_2)

   write(*,*) real(iv_42_1,ip_sp_4)
   write(*,*) real(iv_42_2,ip_sp_4)
   write(*,*) real(iv_42_4,ip_sp_4)
   write(*,*) real(iv_42_8,ip_sp_4)
   write(*,*) real(rv_42_4,ip_sp_4)
   write(*,*) real(rv_42_8,ip_sp_4)
   write(*,*) real(cv_42_4,ip_sp_4)
   write(*,*) real(cv_42_8,ip_sp_4)
   write(*,*) real(iv_42_1,ip_dp_4)
   write(*,*) real(iv_42_2,ip_dp_4)
   write(*,*) real(iv_42_4,ip_dp_4)
   write(*,*) real(iv_42_8,ip_dp_4)
   write(*,*) real(rv_42_4,ip_dp_4)
   write(*,*) real(rv_42_8,ip_dp_4)
   write(*,*) real(cv_42_4,ip_dp_4)
   write(*,*) real(cv_42_8,ip_dp_4)

   write(*,*) real(iv_42_1,ip_sp_8)
   write(*,*) real(iv_42_2,ip_sp_8)
   write(*,*) real(iv_42_4,ip_sp_8)
   write(*,*) real(iv_42_8,ip_sp_8)
   write(*,*) real(rv_42_4,ip_sp_8)
   write(*,*) real(rv_42_8,ip_sp_8)
   write(*,*) real(cv_42_4,ip_sp_8)
   write(*,*) real(cv_42_8,ip_sp_8)
   write(*,*) real(iv_42_1,ip_dp_8)
   write(*,*) real(iv_42_2,ip_dp_8)
   write(*,*) real(iv_42_4,ip_dp_8)
   write(*,*) real(iv_42_8,ip_dp_8)
   write(*,*) real(rv_42_4,ip_dp_8)
   write(*,*) real(rv_42_8,ip_dp_8)
   write(*,*) real(cv_42_4,ip_dp_8)
   write(*,*) real(cv_42_8,ip_dp_8)
   write(*,*) 'REPEAT'
   write(*,*) repeat(hv_42_1,iv_42_1)
   write(*,*) repeat(hv_42_1,iv_42_2)
   write(*,*) repeat(hv_42_1,iv_42_4)
   write(*,*) repeat(hv_42_1,iv_42_8)
   write(*,*) 'RRSPACING'
   write(*,*) rrspacing(rv_42_4)
   write(*,*) rrspacing(rv_42_8)
   write(*,*) 'SCALE'
   write(*,*) scale(rv_42_4,iv_42_1)
   write(*,*) scale(rv_42_8,iv_42_1)
   write(*,*) scale(rv_42_4,iv_42_2)
   write(*,*) scale(rv_42_8,iv_42_2)
   write(*,*) scale(rv_42_4,iv_42_4)
   write(*,*) scale(rv_42_8,iv_42_4)
   write(*,*) scale(rv_42_4,iv_42_8)
   write(*,*) scale(rv_42_8,iv_42_8)
   write(*,*) 'SCAN'
   write(*,*) scan(hv_42_1,hv_42_1)
   write(*,*) scan(hv_42_1,hv_42_1,lv_t_1)
   write(*,*) scan(hv_42_1,hv_42_1,lv_t_2)
   write(*,*) scan(hv_42_1,hv_42_1,lv_t_4)
   write(*,*) scan(hv_42_1,hv_42_1,lv_t_8)
   write(*,*) 'SELECTED_INT_KIND'
   write(*,*) selected_int_kind(1_ik1)
   write(*,*) selected_int_kind(1_ik2)
   write(*,*) selected_int_kind(1_ik4)
   write(*,*) selected_int_kind(1_ik8)
   write(*,*) 'SELECTED_REAL_KIND'
   write(*,*) selected_real_kind(1_ik1,1_ik1)
   write(*,*) selected_real_kind(1_ik2,1_ik1)
   write(*,*) selected_real_kind(1_ik4,1_ik1)
   write(*,*) selected_real_kind(1_ik8,1_ik1)
   write(*,*) selected_real_kind(1_ik1,1_ik2)
   write(*,*) selected_real_kind(1_ik2,1_ik2)
   write(*,*) selected_real_kind(1_ik4,1_ik2)
   write(*,*) selected_real_kind(1_ik8,1_ik2)
   write(*,*) selected_real_kind(1_ik1,1_ik4)
   write(*,*) selected_real_kind(1_ik2,1_ik4)
   write(*,*) selected_real_kind(1_ik4,1_ik4)
   write(*,*) selected_real_kind(1_ik8,1_ik4)
   write(*,*) selected_real_kind(1_ik1,1_ik8)
   write(*,*) selected_real_kind(1_ik2,1_ik8)
   write(*,*) selected_real_kind(1_ik4,1_ik8)
   write(*,*) selected_real_kind(1_ik8,1_ik8)
   write(*,*) 'SET_EXPONENT'
   write(*,*) set_exponent(rv_42_4,iv_42_1)
   write(*,*) set_exponent(rv_42_8,iv_42_1)
   write(*,*) set_exponent(rv_42_4,iv_42_2)
   write(*,*) set_exponent(rv_42_8,iv_42_2)
   write(*,*) set_exponent(rv_42_4,iv_42_4)
   write(*,*) set_exponent(rv_42_8,iv_42_4)
   write(*,*) set_exponent(rv_42_4,iv_42_8)
   write(*,*) set_exponent(rv_42_8,iv_42_8)
   write(*,*) 'SIGN'
   write(*,*) sign(iv_42_1,iv_42_1)
   write(*,*) sign(iv_42_2,iv_42_2)
   write(*,*) sign(iv_42_4,iv_42_4)
   write(*,*) sign(iv_42_8,iv_42_8)
   write(*,*) sign(rv_42_4,rv_42_4)
   write(*,*) sign(rv_42_8,rv_42_8)
   write(*,*) 'SIN'
   write(*,*) sin(rv_42_4)
   write(*,*) sin(rv_42_8)
   write(*,*) sin(cv_42_4)
   write(*,*) sin(cv_42_8)
   write(*,*) 'SINH'
   write(*,*) sinh(rv_42_4)
   write(*,*) sinh(rv_42_8)
   write(*,*) 'SPACING'
   write(*,*) spacing(rv_42_4)
   write(*,*) spacing(rv_42_8)
   write(*,*) 'SQRT'
   write(*,*) sqrt(rv_42_4)
   write(*,*) sqrt(rv_42_8)
   write(*,*) sqrt(cv_42_4)
   write(*,*) sqrt(cv_42_8)
   write(*,*) 'TAN'
   write(*,*) tan(rv_42_4)
   write(*,*) tan(rv_42_8)
   write(*,*) 'TANH'
   write(*,*) tanh(rv_42_4)
   write(*,*) tanh(rv_42_8)
   write(*,*) 'TINY'
   write(*,*) tiny(rv_42_4)
   write(*,*) tiny(rv_42_8)
   write(*,*) 'TRIM'
   write(*,*) trim(hv_42_1)
   write(*,*) 'VERIFY'
   write(*,*) verify(hv_42_1,hv_42_1)
   write(*,*) verify(hv_42_1,hv_42_1,lv_t_1)
   write(*,*) verify(hv_42_1,hv_42_1,lv_t_2)
   write(*,*) verify(hv_42_1,hv_42_1,lv_t_4)
   write(*,*) verify(hv_42_1,hv_42_1,lv_t_8)

end program test_intrinsic
