C
C  FILE NAMES ---
C
      REAL*8 FILE
      REAL*8 IFILE
      REAL*8 RIMDB1
      REAL*8 RIMDB2
      REAL*8 RIMDB3