REAL*8 FUNCTION foo_removals ()

      real*8            sec_rate(31),cur_rate(31),
     +month_rec_values(5,31),in_values(5),
     .                  blank(31)

      integer*4 somevalue1, somevalue2

                 if                (my_fn_call(1) .or. 
     + my_fn_call2(somevalue1) .and. my_fn_call3(10))
     .            then
                 call process_things(1,2,3)
             endif

      foo_removals = 0

      return
      end