ztdep

************************************************** **************************
*----------------------------MAIN PROGRAM-----------------------------------
************************************************** **************************
LOGICAL LSTOP
COMMON/CNTL/LSTOP
************************************************** **************************
OPEN(08,FILE='teresul')
CALL SETUP0
CALL GRID
CALL SETUP1
CALL START
10 CALL DENSE
CALL...