Finding minimum in array, fortran

Question

I need to help my friend. It is simple task. I need to find a smallest element in the array.

program TEST
    ! your code goes here
    integer a(5), n, min
    a = (/2, -5, 3, 5, 8/)
    n = 5
    min = a(1)

    !reading from keyboard
    !do i=1,n
     !read*,a(i)
    !end do

    print*, 'array:'
    do i=1,n
     print*,a(i)
    end do

    !print*, 'отладка, поиск минимального:'
    do i=2,n
     if (min .lt. a(i)) then
      min = a(i)
      !print*, min, a(i), ' '
     end if
    end do

    print*, 'minimal: '
    print*, min

    stop
end

So. I don't have problem with alghoritm at all. It is easy for me to do it on any other language)) but not there. Problem appears when I compare min and a(i).

Programm thinks that min < a(i) all time. Why? So min would be 8, because 8 is the last.

francescalus · Accepted Answer · 2014-01-22 20:51:02Z

7

You want to find the smallest a(i) so your test for the minimum so far is the wrong way around: use if (a(i).lt.min) min=a(i) or instead.

But you may want to consider MINVAL(a).

edited Jan 22, 2014 at 20:51

answered Jan 22, 2014 at 20:33

francescalus

32.9k28 gold badges86 silver badges128 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Sharikov Vladislav Over a year ago

I think it was because spaces and wrong order of variable there : if (min .lt . a(i)). I thought its equal min < a(i). About 2nd. I had found it already, so I deleted 2nd part.

francescalus Over a year ago

@SharikovVladislav min .lt. a(i) is the same as min < a(i), or do I misunderstand your comment? I'll delete my exit part, as it didn't fit, anyway.

Sharikov Vladislav Over a year ago

Forget) Its okay now, my fail. I misunderstood something.

Collectives™ on Stack Overflow

Finding minimum in array, fortran

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related