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