weighted summation with FORTRAN

I have generated a potential energy surface with several and would like to reduce them by doing a weighted summation with FORTRAN.