Hydraulik II Skriptum - Department Wasser-Atmosphäre-Umwelt ...
Hydraulik II Skriptum - Department Wasser-Atmosphäre-Umwelt ...
Hydraulik II Skriptum - Department Wasser-Atmosphäre-Umwelt ...
- Keine Tags gefunden...
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
HYDRODYNAMIK SEITE 23ProfilkennwerteProfildaten 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 RETURNENDInstitut für <strong>Hydraulik</strong> und landeskulturelle <strong>Wasser</strong>wirtschaft Version 1.7
Change language