CC--- PROGRAM TO GENERATE CRACK DEPTH DATA
C     PROGRAM CRACK
C
      SUBROUTINE ABQMAIN
C
      IMPLICIT REAL*8(A-H,O-Z)
      C=1.5
      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=3.
      Z=SQRT(CC-XX)/TMP
      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