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 - 7. fejezethez
07.02. A DATAPRINT SZUBRUTIN ADATELLENŐRZÉSHEZ (A 7.1. PÉLDÁHOZ FELHASZNÁLVA) LN 0001 SUBROUTINE DATA PRIN ( B, SEC,N 0) LN 0002 C KÖZBENSŐ NYOMTÁTÁS AZ AD ATT 0MB FEL TÖLTÉSÉNEK EL LENORZESERE LN 00 03 C PRINTING OF basicdata FOR controll LN 0U0A ÓIM ENSION 8 (SEC * A0 > LN 0005 INT EGER SEC LN 0006 DO 97 N=l,NO LN 00 07 PRINT 96, (B <N,K> ,K=1,13> LN 00 08 96 FORMAT (F18. 1, 1ZF9.A/) LN 0009 97 CONTINUE LN 0010 RETURN LN 0011 END USASI FORTRAN DIAGNOSTIC RESULTS FOR DATAPRIN NO ERRORS 07.02 360
/
