Go to the source code of this file.
Functions/Subroutines | |
real(8) function | rfinp (rfmt1, rfir1, rfmt2, rfir2) |
real(8) function rfinp | ( | real(8), dimension(npmtmax,natmtot), intent(in) | rfmt1, |
real(8), dimension(ngtot), intent(in) | rfir1, | ||
real(8), dimension(npmtmax,natmtot), intent(in) | rfmt2, | ||
real(8), dimension(ngtot), intent(in) | rfir2 | ||
) |