CC---PROGRAM TO GENERATE NODE FILE 
      SUBROUTINE ABQMAIN
C
      IMPLICIT REAL*8(A-H,O-Z)
      PARAMETER (ZERO=0.0d0,ONE=1.0d0,TWO=2.0d0,TEN=10.0d0)
      OPEN(UNIT=16,STATUS='NEW',FILE='RINGBM.NOD')
      FI=ASIN(ONE)
      NELS=5
      DFI=FI/DBLE(NELS)
      R=TEN*TEN
      A=ONE/R
      FI=ZERO
      NNODE=NELS+1
      DO 10 KNODE=1,NNODE
        RR=R+A*COS(TWO*FI)
        X=RR*COS(FI)
        Y=RR*SIN(FI)
        WRITE(16,1)KNODE,X,Y
    1   FORMAT(I5,1H,,2(F15.8,1H,))
        FI=FI+DFI
   10 END DO
      REWIND 16
      CLOSE(16)
      END