IF (I.EQ.100) THEN PNEWDT = 0.5 WRITE(7,*) 'REQUEST CHANGE TIME INCREMENT' GOTO 10 END IF C C---------------------------------------------------------------- ! CALCULATE DLAMBDA & DAMAGE VARIANCE C DDLAMBDA = (DFDDD*FY - DFYDD*FD) / DET DD = (DFYDDL*FD - DFDDDL*FY) / DET