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.26. A HIBAELLENŐRZÉS ERRCONT AZONOSÍTÓJÚ SZUBRUTINJA LN 0001 LN 0002 LN 0003 LN 0009 LN 0005 LN 0006 LN 0007 LN 0008 LN 0009 LN 0010 LN 0011 LN 0012 LN 0013 LN 0019 LN 0015 LN 0016 LN 0017 LN 0018 LN 0019 LN 0020 LN 00 21 LN 0022 SUBROUTINE ERRCONT(B ,1ND « JEL, OQ, OV , QHI3A . VHIBA, KC, NI,SZ) C HIBAELLENOERZES AZ ITERATIOHOZ C CON TROLL OE ERROR ATTHE ITERATION LOGICAL HER DIMENSION B(SZ,33) COMMON /10/ ITER,BREAK DO 162 1=1,NI INO =0 JEL = 0 DQ=ASST(BtI,8)-B(I,26) >/B(I,8)> 0V=ABS((B<I,9)-B(I,27) )/BtI ,9)> I F( OQ. GT.QfTIBA. OR. 0V.GT. VHIBA) GOTO 169 GO TO 162 169 KC= KC+1 IF(KC.EQ.IOO) IN 0=1 IF(INO.EQ.l) GO TO 170 JEL = 1 ITER=.TRUE. GO TO 170 162 CONTINUE 17 0 RETURN ENO 08.2 USASI FORTRAN DIAGNOSTIC RESULTS FOR ERRCONT NO ERRORS 404
