topic Re: Bsearch in Intel® Fortran Compiler

Bsearch

JohnNichols — Tue, 14 Feb 2023 16:58:31 GMT

Dear Intel Guru:

USE IFPORT INTEGER(4) array(10), length INTEGER(4) result, target length = SIZE(array) do i = 1,length array(i) = i end do target = 8 write(*,100)length,array,target 100 Format("Array length :: ",i4,/,"Array Elements :: ",10i5,/,"Target number :: ",i5) result = BSEARCHQQ(LOC(target),LOC(array),length,SRT$INTEGER4) write(*,*)"Location :: ", result End

The bsearch sample actually does not run in your manual, here is a simple sample that runs and tell you what all the numbers mean.

Bsearch should also tell you if you got the sort wrong in the original data, that is a trivial step.

Re: Bsearch

Barbara_P_Intel — Wed, 15 Feb 2023 22:40:46 GMT

Thank you! Can you take a few minutes and update the sample to remove the warning message?

I got:

$ ifort b.f90 b.f90(11): warning #6075: The data type of the actual argument does not match the definition. [LENGTH] result = BSEARCHQQ(LOC(target),LOC(array),length,SRT$INTEGER4) ------------------------------------------^

Re: Bsearch

JohnNichols — Wed, 15 Feb 2023 22:59:47 GMT

Integer 4 works on 32 bit and integer 8 works on 64 bit, how do I check the version before I compile the program?

Re: Bsearch

JohnNichols — Wed, 15 Feb 2023 23:02:16 GMT

Your sample used Int4.

Re: Bsearch

andrew_4619 — Wed, 15 Feb 2023 23:11:25 GMT

well INTEGER (INT_PTR_KIND()) :: length would be in keeping seeing has we already have a whole host of non-standard stuff in the example...

Re: Bsearch

JohnNichols — Thu, 16 Feb 2023 14:44:44 GMT

I am happy to place in your suggestion, of course you are free to help, I was just filling in 5 minutes of spare time and looking at the manual is better than reading Facebook.

Re: Bsearch

JohnNichols — Thu, 16 Feb 2023 15:02:42 GMT

@Barbara_P_Intel

here are three versions, version one uses kind, version 2 complies on 64 bit and version 3 works on X32 bit.

I usually run x32, it is the default created by Intel and I have never changed it.

take your pick.

USE IFPORT INTEGER, PARAMETER :: dp = selected_real_kind(15, 307) integer,parameter :: k15 = selected_int_kind(15) INTEGER(kind=k15) array(10), length INTEGER(kind=k15) result, target length = SIZE(array) do i = 1,length array(i) = i end do target = 8 write(*,100)length,array,target 100 Format("Array length :: ",i4,/,"Array Elements :: ",10i5,/,"Target number :: ",i5) result = BSEARCHQQ(LOC(target),LOC(array),length,SRT$INTEGER8) write(*,*)"Location :: ", result End USE IFPORT INTEGER(8) array(10), length INTEGER(8) result, target length = SIZE(array) do i = 1,length array(i) = i end do target = 8 write(*,100)length,array,target 100 Format("Array length :: ",i4,/,"Array Elements :: ",10i5,/,"Target number :: ",i5) result = BSEARCHQQ(LOC(target),LOC(array),length,SRT$INTEGER8) write(*,*)"Location :: ", result End USE IFPORT INTEGER(4) array(10), length INTEGER(4) result, target length = SIZE(array) do i = 1,length array(i) = i end do target = 8 write(*,100)length,array,target 100 Format("Array length :: ",i4,/,"Array Elements :: ",10i5,/,"Target number :: ",i5) result = BSEARCHQQ(LOC(target),LOC(array),length,SRT$INTEGER4) write(*,*)"Location :: ", result End

I threw in the real kind as a bonus. I dislike the print statements that are common in the Intel Manual, I always use format. Real code should check the array is positive increasing in value as a reverse sort will just output zero.

I stole the kind from https://gcc.gnu.org/onlinedocs/gfortran/SELECTED_005fINT_005fKIND.html#SELECTED_005fINT_005fKIND

Re:Bsearch

Barbara_P_Intel — Thu, 16 Feb 2023 17:13:03 GMT

Thank you for these! We'll turn you into a QA engineer yet!

Re:Bsearch

Barbara_P_Intel — Thu, 16 Feb 2023 17:44:30 GMT

Bug DOC-10914 filed to update the example code snippet to a complete program.

Re: Re:Bsearch

JohnNichols — Thu, 16 Feb 2023 18:05:19 GMT

I once told an ISO 9001 QA Inspector it was all mindless garbage. He randomly reviewed every one of my files over the next 12 months and then at the next annual meeting, said, do you want to repeat that opinion. I said no.

Re:Bsearch

Barbara_P_Intel — Fri, 17 Feb 2023 19:46:10 GMT

@JohnNichols, Karen, the tech writer for the Fortran DGR wrote, "I really do appreciate it when our customers report issues, especially when they provide solutions."

Re:Bsearch

Barbara_P_Intel — Thu, 02 Mar 2023 20:54:36 GMT

Karen fixed this problem, too. It'll be in the next version of the DGR (Developer Guide and Reference) available later this spring.