1410 



1420 C* 



1430 C* 



1440 C* 



1450 C*** Output *** 



ERROR=DIFF/AAREA 

 AR0UT=QL*DT*3600. /DCLOS-DIFF*DX 

 ERROR=AROUT/AAREA 



1460 

 1470 

 1480 C* 

 1490 10 

 1500 20 

 1510 30 

 1520 40 

 1530 

 1540 



WRITE!*,*) 

 WRITE!*,*) 

 WRITE!*,*) 

 FORMAT (IX, 

 FORMAT (IX, 



•LOST SAND VOLUME=' ,ERR0R*100, * %' 



* (QL*DT/DCLOS) /ABS(AREA) *100=' ,ERR0R*100, 



SEAWALL POSITION* / (IX, 10F8. 2) ) 



LONGSHORE TRANSPORT" / (IX, 10F8.4) ) 



FORMATUX, 'SHORELINE POSITION* / (IX, 10F8.2) ) 



FORMAT!//) 



STOP 



END 



A8 



