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

13.081.

KÖZBENSŐ NYOMTATÁS SZUBRUTINJA AZ ADATTÖMB ELLENŐRZÉSÉRE (DATAPRIN)

N 0001 N 0002 N 00 03 N 000A N 0005 N 0006 N 0007 N oooa N 0009 N 0010 N CÜ11 .N 0012 N 0013 ,N 001<t

SUBROUTINE DA TA PRIN ( B, SEC,N 0) 0 3.081 C KÖZBENSŐ NYOMTÁTÁS AZ A O ATT 0MB FEL T OL TES ENEK ELL ENORZESER E C PRINTING OF BASICOATA FOR CONTROLL DIMENSION B (SEC, A0)

INTEGER SEC PRINT 28

2 8 FORMATdHl, 16X.1HX.5X, 2HZO, 7X , 2HBO , 6X, 2HF0.7X, 1 HM, 8X , IHK, 8X , 2HPO ,

17X, 1HZ,8X,1H0.8X,1HZ.8X, 1HQ ,8X, 1 HZ , 8X, 1HQ«/)

DO 97 N= 1 .N O

PRINT 96« (B (N,K> ,K=1,13)

96 F0RMAT(F18. 1.12F9.A/)

97 CONTINUE RETURN

E NJ

USASI FORTRAN DIAGNOSTIC RESULTS FOR OATAPRIN NO ERRORS

325