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.02. ALAPADATOK BEVITELÉNEK SZUBRUTINJA, TERMÉSZETES MEDREKHEZ (NATDAT)

LN

0001

SUBROUTINE NATDAT (LOM,UPP,M,A)

LN

00 02

c

ADATBEVITEL FOLTOKNÁL

LN

0003

c

INPUT OF DATA FOR RIVERS

LN

00 0A

INTEGER LOH,UPP,M,I,J

LN

00 05

OIMENSION A (UPP, M)

LN

00 06

101 FORMAT (F8,1,F7,2,F7,1,F7.1,F5.1,F6.1,F7.1,F8.2,F6.1>

LN

00 07

RE AD (60,101) ((A(I,J) ,J=1,M) ,I = LOW,UPP)

LN

OOOS

RETURN

LN

0009

END

ÜSASI FORTRAN DIAGNOSTIC RESULTS FOR NATDAT

NO ERRORS

342