You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
449 B
Fortran
18 lines
449 B
Fortran
5 years ago
|
SUBROUTINE ADDBEDLV
|
||
|
|
|
||
|
|
USE BLK1MOD
|
||
|
|
|
||
|
|
! process node with weighting values
|
||
|
|
DO N=1,NP
|
||
|
|
! IF(ICN(N) .EQ. 2) THEN
|
||
|
|
IF(NRIVCR1(N) .GT. 0) THEN
|
||
|
|
NC1=NRIVCR1(N)
|
||
|
|
NC2=NRIVCR2(N)
|
||
|
|
WT1=WTRIVCR1(N)
|
||
|
|
WT2=WTRIVCR2(N)
|
||
|
|
WD(N)=CRSDAT(NC1,1,1)*WT1+CRSDAT(NC2,1,1)*WT2
|
||
|
|
ENDIF
|
||
|
|
! ENDIF
|
||
|
|
ENDDO
|
||
|
|
RETURN
|
||
|
|
END
|