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

8.09. A SZÁMÍTÁSI EREDMÉNYEK NYOMTATÁSÁNAK RESPRINT AZO- NOSÍTÓJÚ SZUBRUTINJA

N

0001

N

0002

C

. N

0003

c

. N

ooni.

c

. N

00 05

. N

0006

.N

0007

.N

0008

.N

Ú009

. N

0010

. N

0011

_N

0012

. N

0013

_ N

0011,

LN

0015

. N

0016

L N

0017

l N

0018

LN

0019

LN

0020

LN

00 21

LN

0022

SUBROUTINE RESPRINT (B,C, 0,SEC) 0

PELOA, EXAMPLE 8.1, 9.2, 8.3

EREOMENYEK NYOMTATÁSA

PRINTING OF RESOULTS

INTEGER SEC

DIMENSION 8 (SEC , 23) , C ( SE C, 1 2) ,D(2, I»)

201 PRINT 163,( 0<l,K),K=l,<t)

163 FORMAT (1H1, 1»0H UNSTEAOI FU) M IN RIVERS IMFLICIT METHOD//, 29X,

1F5.1.8H H0URES,13X,F5.1,8H HOURES , 1/X, F5. 1,8H HOURES, 17X ,F5.1,

28H HOURES//)

PRINT 167,(0<2,K),K-1,A)

167 FORMAT (2 9X, F3.1,8HIT ER AT 10, 20X, r 3.1,8HITERATI0,20X , F3.1,7 HITEK AT I, 119X , F3.1.8HITERATI0//)

PRINT 180

180 F0RMAT(12X,1HX,3X,1HZ,9X,1HQ,9X,ÍHH,9X,1H2,9X,1HQ,9X,1HH,9X,

11HZ , 9X ,1HQ, 9X,1HH,9X ,1HZ ,9X ,1H0,9X, 1HH,/ )

DO 169 1 = 1, SEC, 2

PRINT 16 8,(B(I,1),(C(I,K),K=1»12>)

169 FOR MAT (F 15. 1,12F10.3)

169 CONTINUE RETURN END

USASI FORTRAN DIAGNOSTIC RESULTS FOR RESPRINT

NO ERRORS

8.09

381