The TELEMAC-MASCARET system
trunk
|
Go to the source code of this file.
Functions/Subroutines | |
subroutine | totnrj (VARIAN, F, NF, NDIRE, NPOIN2) |
subroutine totnrj | ( | double precision, dimension(npoin2), intent(inout) | VARIAN, |
double precision, dimension(npoin2,ndire,nf), intent(in) | F, | ||
integer, intent(in) | NF, | ||
integer, intent(in) | NDIRE, | ||
integer, intent(in) | NPOIN2 | ||
) |