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

03.082. SZÁMÍTÁSI EREDMÉNYEK NYOMTATÁSÁNAK SZUBRUTINJA (RESULTPR)

LN 8001 LN 0002 LN 0003 LN 000«, LN 0005 LN 0006 LN 0007 LN 0006 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 001«, LN 0015 LN 0016 LN 0017 LN 0018

SUBROUTINE RESULTPR<A, TM,VAR,SEC,L> 03.08;

INTEGER SEC.VAR DIMENSION A «SEC,17),TM (6)

C EREDMÉNYEK NYOMTATÁSA KARAKTERISZTIKÁK MÓDSZERÉHEZ C PRINTING OF RESULT TO METHOD OF CHARACTERISTICS PRINT 22, VA R, (THCK) , K= 1,6)

22 FORMAT (1H1, UHFLOOD KA VES//13X, 13HUNSTEA OY FLOW//5H VAR=,I8,/ 16F1B.2.6HH0 URES/5X,1HX,9X,1HZ,9X,1HQ,9X, 1HZ.6X, 1HQ,

28X, 1HZ,BX,1HQ,8X,1HZ,7X, 1HQ ,9X , 1HZ , 9X, 1H Q ,6X , 1 HZ , 9X , 1HQ, 6 X, 2HQL , ,

3///)

DO 27 N=1,SEC

PRINT 26, (A (N,K) ,K=i,i«t)

26 FORMAT CF 10. 1,6 «F9.1», F9.2 ),F 9.5)

27 CONTINUE PRINT 85, L

85 FORMAT <2 OH-CSOMOPONTOK SZAAMA = ,I10)

RETURN

END

USASI FORTRAN DIAGNOSTIC RESULTS FOR RESULTPR

NO ERRORS

326