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
08.05. ALAPADATTÖMB KINYOMTATÁSÁNAK DATAPRIN AZONOSÍTÓJÚ SZUBRUTINJA LN QÓ01 SUBROUTINE OATAPRIN (8, SEC) LN 0002 C KOE ZBENSOE NYOMTÁTÁS AZ AOATTOEM3 FELTOELTESENEK ELLENOERZESERE LN 0003 C PRINTING OF BASIC DATA FOR CONTROLL LN 00 0A INTEGER SEC LN 0005 DIMENSION B (SEC, 28) LN 0006 PRINT 28 LN 0007 28 FORMAT (1H1, 16X,1HX,5X,2HZ0, 7X,2HB0, 8X,2HFC.7X,1 HM,8X,IHK,6X,2HF0, LN 00 0'8 16X, 1HZ,SX,1HQ,9X,2HQL,/) LN 0009 DO 31 1=1,SEC,2 LN 0010 PRINT 30, (B (I ,K) , K=1,1 0) LN 0011 30 FORMAT (F18. 1,9F9.A/) LN 0012 31 CONTINUE LN 0013 RETURN LN 001A END USASI FORTRAN DIAGNOSTIC RESULTS FOR 3ATAPR1N NO ERRORS 8.05 378
/
