      SUBROUTINE CELL
C
C
C
C
C
C
C
C
C
C
C
      IOIN=5
      IOOUT=6
      IOFILE=20
C
C
C
139   WRITE(IOOUT,13911)
13911 FORMAT(/' **** NOTE **** ENTER DECIMAL VALUES')
      WRITE(IOOUT,140)
140   FORMAT(' PLEASE ENTER A [ NO DEFAULT ]     ',$)
      READ(IOIN,1234,ERR=139,END=999)L, A
1234  FORMAT(Q,F10.0)
      IF(L.EQ.0) GO TO 139
      IF(A.LT.0.5.OR.A.GT.50.0) GO TO 139
149   WRITE(IOOUT,150)
150   FORMAT(' PLEASE ENTER B [ DEFAULT B=A]     ',$)
      READ(IOIN,1234,ERR=149,END=999) L,B
      IF(L.EQ.0) B=A
      IF(B.LT.0.5.OR.B.GT.50.0) GO TO 149
159   WRITE(IOOUT,160)
160   FORMAT(' PLEASE ENTER C [ DEFAULT C=B]     ',$)
      READ(IOIN,1234,ERR=159,END=999) L,C
      IF(L.EQ.0) C=B
      IF(C.LT.0.5.OR.C.GT.50.0) GO TO 159
      ANGLE=90.0
169   WRITE(IOOUT,170)
170   FORMAT(' PLEASE ENTER ALPHA [ DEFAULT = 90.0 ] ',$)
      READ(IOIN,1234,ERR=169,END=999)L,ALPHA
      IF(L.EQ.0) ALPHA=ANGLE
      IF(ALPHA.LT.30.0.OR.ALPHA.GT.150.0) GO TO 169
179   WRITE(IOOUT,180)
180   FORMAT(' PLEASE ENTER BETA  [ DEFAULT = ALPHA] ',$)
      READ(IOIN,1234,ERR=179,END=999) L,BETA
      IF(L.EQ.0) BETA=ALPHA
      IF(BETA.LT.30.0.OR.BETA.GT.150.0) GO TO 179
189   WRITE(IOOUT,190)
190   FORMAT(' PLEASE ENTER GAMMA [ DEFAULT = BETA ] ',$)
      READ(IOIN,1234,ERR=189,END=999) L,GAMMA
      IF(L.EQ.0) GAMMA=BETA
      IF(GAMMA.LT.30.0.OR.GAMMA.GT.150.0) GO TO 189
2030  WRITE(IOFILE,1000) A,B,C,ALPHA,BETA,GAMMA
1000  FORMAT(10X,6F10.4)
      RETURN
999   STOP 'ABNORMAL END OF FILE'
      END
