ADA to Fortran convertion

[java12]

Hi Friends,

I have an ADA function that needs to be converted to Fortran.

function Sumer (Mat: in Mat_Type) return Float is
Sum: Float := 0.0;
begin
for Row in Mat 'range (1) loop
for col in Mat 'range(2) loop
Sum := Sum + Mat(Row, Col);
end loop;
end loop;
return Sum;
end Sumer;

 

[xwb]

Depends on which version of Fortran you're using. F90 onwards, it would be

real*4 function sumer(mat)
   real*4:: mat(*,*)

   sumer = sum(sum(mat,1),1)
end

If you want something more long winded

real*4 function sumer(mat)
   real*4:: mat(*,*)
   integer:: ii, jj

   sumer = 0.0
   do ii = 1, ubound(mat,1)
      do jj = 1, ubound(mat,2)
         sumer = sumer + mat(ii,jj)
      enddo
   enddo
end

If you want it in F77, then you'll have to pass the dimensions into the function.