Kozák Miklós: A szabadfelszínű nempermanens vízmozgások számítása digitális számítógépek felhasználásával (Akadémiai Kiadó, Budapest, 1977)

Mellékletek. Programok, szubrutinok, nyomtatási sémák 313 - 3. fejezethez

03.03. EGYENLETÁLLANDÓK SZÁMÍTÁSÁNAK SZUBRUTINJA, KARAKTERISZTIKÁK MÓDSZERÉHEZ (EQVCONST)

LN 0001 UN 0002 LN 0003 LN 00 04 LN 0005 LN 0006 LN 0007 LN 0006 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 0014 LN 0015 LN 0016 LN 0017 LN 0016 LN 0019

SUBROUTINE EQUCONST < B, SEC,L OH, UPP > 03.03

C EGYENLETALLANOOK SZÁMITASA KARAKTERISZTIKÁK MOOSZEREHEZ

C COMPUTATION OF EQUATIO NC 0NSTANTS TO METHOD OF CHARACTERISTICS INTEGER SEC.UPP DIMENSION B (SEC, 40)

00 120 I = LO W, UPP IF(I.EQ.UPP) GOTO 121 B (I , 38> = BU ,33)/<2.*8(1, 16) )

B (1,39)= 2./(BU, 20) »8(1,31) )

BCI ,40) = 8 (I ,25)-8 (I, 27)*B(I ,39) PB < I , 27) * ABS <B < I , 27) ) * B (1,33) / ( 2. * 3.1-49 A 18(1,29))

IFd.EQ.LOW ) GOTO 120 121 Bit ,35) = -B(I,32)/(2.,B(I,16))

B(I ,36) = -2./<B<I,21MB<1,30)1

B(I ,37)=B<I ,24)-B (1,26)* BCI ,36) - B CI ,26) * ABS < B (I , 26) > *B (I, 32) / < 2. » 3.1-5 0A IB (I,28))

120 CONTINUE RET URN ENO

USASI FORTRAN DIAGNOSTIC RESULTS FOR ECUCONST

NO ERPORS

317