CC                                
CC PROGRAM TO GENERATE NODAL DATA 
CC    PROGRAM GMESH
      SUBROUTINE ABQMAIN
C
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION DELTAX(8)
      DATA DELTAX/2.,2.,2.,4.,4.,8.,8.,0./
      OPEN(UNIT=15,ACCESS='SEQUENTIAL',
     1     FORM='FORMATTED',FILE='CONSOL.NOD')
      X=0.
      DO 100 KX=1,15
      KNOD=(KX-1)*100
      Y=0.
      DO 50 KY=1,11
      KNOD=KNOD+1
      IF((KX/2)*2.EQ.KX.AND.(KY/2)*2.EQ.KY) GO TO 40
C     WRITE(6,1) KNOD,X,Y
      WRITE(15,2) KNOD,X,Y
   40 CONTINUE
      Y=Y-(KY+1)/2*2.
   50 CONTINUE
      K1=(KX+1)/2
      X=X-DELTAX(K1)
  100 CONTINUE
C   1 FORMAT(5X,I5,2(',',1P1E12.3))
    2 FORMAT(I5,2(', ',E10.3))
      REWIND 15
      STOP
      END