Go to the source code of this file.
Functions/Subroutines | |
pure subroutine | cfcmtwr (nr, nri, wr, cfmt) |
pure subroutine cfcmtwr | ( | integer, intent(in) | nr, |
integer, intent(in) | nri, | ||
real(8), dimension(nr), intent(in) | wr, | ||
complex(4), dimension(*), intent(inout) | cfmt | ||
) |