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.04. A FELSZÍNGÖRBE SZÁMÍTÁSÁNAK FŐPROGRAMJA

LN

0001

C

KEZOETIFELTETEL MAGÁNYOS MEDREKBEN FOE PROGRAM

LN

00 02

C

INITIAL CONDITION IN SOLITARY RIVERS MEAN PROGRAM

LN

Oj 03

INTEGER SEC * O jM

LN

00 0 A

REAL ZD,ZERR

LN

00 05

DIMENSION A(15,9)

L N

00 06

LOGICAL PRIZM

LN

0007

READ(60,101) SEC,D,M,ZO,ZERR,PRIZM

LN

00 08

101

FORMAT(I3,2I2,F8.4,F7.5,L7)

LN

00 09

A (1,8) = ZO

LN

0010

IF (PRIZM) GOTO 1

LN

0011

CALL NATDAT (1,SEC,M,A)

LN

0012

GOTO 2

LN

0013

1

CALL PRIOAT ( SEC , 1 ,SE C, M , A)

LN

00 14

2

CALL 3C0URV (SEC.l ,SEC,ZERR,A)

LN

0015

102

FORMATtlHl,27HBASICDATA AND INITIAL C0N0.//4X,4HX(M1,6X,5HZ0(Ml,

LN

0016

14X.5HB0C M ), 3X ,6HF 0 [ M 2 1,4 X , IHM , 6X , IHK, 5X , 5HP0 ( Ml , 4X , 4 HZ( M1,3X ,

LN

00 17

27 HQ C M3/S)7/)

LN

0018

WRITE (61,10 2)

LN

0019

10 3

F ORMÁT(F9.1,Fli.3f2F9.3,F6.2,F7.1,F9.3,F9.4,F7.2/)

LN

00 20

WRITE (6 1,10 3) ((A(I,J) , J= 1, O > ,1 = 1, SEC)

LN

00 21

ENO

06.01»

06.02

06.01

06.03

USAS! FORTRAN DIAGNOSTIC RESULTS FOR FTN.MAIN

NO ERRORS

345