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 - 6. fejezethez

06.06. A k SI MASÁGI TÉNYEZŐ SZÁMÍTÁSÁNAK FŐPROGRAMJA

LN 0001 LN 0002 LN 0003 LN 0Ű0L LN 0005 LN 0006 LN 0007 LN 0003 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 0 011* LN 0015 LN 0016 LN 0017 LN 0018 LN 0019 LN 0020 LN 0021

C A MANNING FELE K SIMASAGI TENYEZOE SZAMITASA, FOE PROGRAM 06.06

C COMPUTATION OF MANNINGÍS K COEFICIENT.MAIN PROGRAM

INTEGER SEC.O.M REAL ZO.ZERR DIMENSION A(15.9)

LOGICAL PRIZM

REAO(60,101) SEC, O.M.ZO, ZERR, PRIZM

101 F ORMÁT (I3,2IZ,F8.<*,F7.5,L7)

I F( PRIZM) GOTO 1

CALL NATDAT (l.SEC.M.A) 06.02

GOTO 2

1 CALL PRIOAT (l.SEC.M.A) 06.01

2 A (1,8 > = ZO

CALL KCOMP (SEC.D.A) 06.05

102 FORMAT (1H1, 27 HB AS ICO ATA ANO INITIAL COND .//I*X ,<*HX t M ] , 6X ,5HZ0 (M ) ,

11*X, 5HB0 CM] , 3X ,6HF 0 CM 2 1, <* X,1 HM , 6X , IHK, 5X , 5HP0 t M) , I*X , <♦ HZC M ) ,3X , 27HQCM3/S)//)

WRIT E(61,10 2)

10 3 FORMAT (F9.1, Fll.3 ,2F9.3, F6. 2 , F7.1, F9.3,F9.i*, F7. 2/)

WRITE (61,10 3) KAII.J) ,J=1,0) ,1 = 1, SEC)

ENO

USASI FORTRAN DIAGNOSTIC RESULTS FOR FTN.MAIN

NO ERRORS

348