Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...
Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...
Seite 1 Institut für Hydraulik und landeskulturelle Wasserwirtschaft ...
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
HYDRODYNAMIK SEITE 25PROFILKENNWERTEProfildaten dargestellt in tabellarischer Form:h U(h) A(h) R(h)SUBROUTINE ITER (F,FI,NN,TABV,FTAB,ITAB)C DATE: 88-12-08C LINEAR - INTERPOLATION OF DATASETCCPARAMETER LIST:C F INDEPENDENT INTERPOLATIONVALUEC FI DEPENDENT INTERPOLATIONVALUEC ITAB PARAMETERC NN NUMBER OF DATAPAIRSC TABV INDEPENDENT TABULATED VALUESC FTAB DEPENDENT TABULATED VALUESCREAL F,FI,TABV(ITAB),FTAB(ITAB)INTEGER NN,JDO 10 J=1,NNIF(F .GE. TABV(J) .AND. F .LT. TABV(J+1))THENFI=FTAB(J)+(FTAB(J+1)-FTAB(J))/(TABV(J+1)-TABV(J))1 *(F-TABV(J))GOTO 99999END IF10 CONTINUE99999 RETURNEND<strong>Institut</strong> für <strong>Hydraulik</strong> <strong>und</strong> <strong>landeskulturelle</strong> <strong>Wasserwirtschaft</strong> Version 1.0
Change language