Select Code to Download

Select or download this

use strict;
use warnings;
...
c_better 9.55/s     118%       8%       --      -8%
c2f      10.3/s     136%      17%       8%       --

Select or download this
```
package Max_score_subs;

...

1;
```

Select or download this

subroutine c2f( n, s, ret )
    integer,     intent( in )  :: n
...
    
    ret = ret - minval( cum )
end subroutine f

Select or download this

module mscore_f
implicit none
...

end module mscore_f

Select or download this

extern void __mscore_f_MOD_c2f( void* n, void* s, void* ret );
extern void __mscore_f_MOD_f( void* n, void* s, void* ret );

Select or download this

v5.42.0 / MSWin32-x64-multi-thread / 13.2.0

...
c_better 9.55/s       --      -9%     -18%
c2f      10.5/s      10%       --     -10%
f        11.6/s      22%      11%       --