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

.21. AZ ALAPADATOK KINYOMTATÁSÁRA SZOLGÁLÓ BPRINT AZONOSÍTÓJÚ SZUBRUTIN

0001 30 0 2 0003 000*«

0005

0006

0007

0008

0009

0010 0011 0012 0013 0019

SUBROUTINE BPRINT(B,SZ> 08.21

C ALAPADATOK KEZDETI ÉRTÉKÉI

C INITIAL VALUES OF BASIC DATA

INTEGER SZ OIMENSION B(SZ.33)

PRINT 20

2 0 FORMAT<1H1,16X,1HX,5X,2HZ1,7X,2HZ2»7X,2HQF,7X,2HQH,7X,1HZ,10X,2HQL lf6X.lHQ.6Xf 2HQH.7X.lHZt 10X, 2HQL, 5X, 2HFF.7X, 2HFH,/)

DO 31 1=1,SZ,2

PRINT 30, (B (I , K) , K= 1 ,13)

30 FORMAT(F16. 1.12F9.9/)

31 CONTINUE RETURN ENO

USASI FORTRAN DIAGNOSTIC RESULTS FOR BPRINT

NO ERRORS

399