! 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