CC--- PROGRAM TO GENERATE CRACK DEPTH DATA
C     PROGRAM CRACK
C
      SUBROUTINE ABQMAIN
C
      IMPLICIT REAL*8(A-H,O-Z)
      OPEN(UNIT=16,STATUS='NEW',ACCESS='SEQUENTIAL',
     1     FORM='FORMATTED',FILE='CRACK.FLW')
      C=3.
      CC=C*C
      N=24
      NNODE=N+1
      X0=C/DBLE(N)
      X=0.
      DO 100 I=1,NNODE
      IF(I.GE.17) GO TO 1
      IF((I/2)*2.EQ.I) GO TO 10
    1 CONTINUE
      XX=X*X
      TMP=.2
      Z=TMP*SQRT(CC-XX)
      WRITE(6,99) I,Z
      WRITE(16,99)I,Z
   99 FORMAT(I5,', ',F10.7)
   10 CONTINUE
      X=X+X0
  100 CONTINUE
      REWIND 16
      STOP
      END