      PROGRAM RFINE90
C MAIN PROGRAM FOR RFINE90
      INCLUDE 'RFINE.PRM'
      INCLUDE 'LSMAT.INC'
      INCLUDE 'E.INC'
C
      WRITE(IOUT,10) 
   10 FORMAT('0 RFINE90 (2-AUG-91)'
     1/' WITH RIGID BODY CONSTRAINTS, ROBUST/RESISTANT WEIGHTING,'
     2,'  TWIN COMPONENT REFINEMENT, AND BECKER-COPPENS EXTINCTION.'
     3/'    THIS VERSION WILL HANDLE 350 PARAMETERS.') 
      READ(IN,12)LABEL 
   12 FORMAT(3A4) 
      CALL RFINE
      WRITE(IOUT,14)ISC1
   14 FORMAT(32H0PARAMETERS WRITTEN OUT TO UNIT ,I2,1H.)
      STOP
      END 
      BLOCK DATA
      INCLUDE 'E.INC'
      INCLUDE 'IALPH.INC'
      DATA IND2/1,1,2,2,3,3,1,2,1,3,2,3/IND3/1,1,1,2,2,2,3,3,3,1,1,2,1,
     12,2,1,1,3,1,3,3,2,2,3,2,3,3,1,2,3/
      DATA IN,IOUT,ISC1,ISC2,ISC3,ISC4,ISC5,IPUN/5,6,10,29,11,12,28,1/
      DATA IDATA1 / 4H NO ,4HEXTI,4HNCTI,4HON C,4HORRE,4HCTIO,4HN   ,
     &4H* IS,4HANIS,4HOTRO,4HPIC ,4HTYPE,4H 1  ,4H 2  ,4HGAUS,4HSIAN,
     &4H  LO,4HRENT,4HZIAN,4H DIS,4HTRIB,4HUTIO,4HN   ,4HGENE,4HRAL ,
     &4HCASE,4H    ,4HON P,4HARAM,4HETER,4HS  X,4H 10*,4H*-4 ,4HMOSA,
     &4HIC S,4HPREA,4HD IN,4H SEC,4HONDS,4H OF ,4HARC ,4HDOMA,4HIN S,
     &4HIZE ,4HIN C,4HENTI,4HMETE,4HRS  ,4H    /
      END
