C
C*************************** COMMON BLOCK IOUNITS **********************
C
C  Input and output file units.
C  Values are assigned in BLOCK DATA subprogram block_data.f.
C  Files are opened and closed in subroutines openio.f and closio.f. 
C
C***********************************************************************
C
      INTEGER  IFN
      INTEGER  IIN1, IIN2, IIN3
      INTEGER  IIN10,IIN11,IIN12,IIN13,IIN14
      INTEGER  IIN20,IIN21,IIN22,IIN23
      INTEGER  IIN30,IIN31,IIN32
      INTEGER  IINPREPRO1, IINPREPRO2, IINPREPRO3, IINPREPRO4
      INTEGER  IINPREPRO5, IINPREPRO6, IINPREPRO7, IINPREPRO8
      INTEGER  IINPREPRO9, IINPREPRO10,IINPREPRO11,IINPREPRO12
      INTEGER  IINPREPRO13,IINPREPRO14,IINPREPRO15,IINPREPRO16
      INTEGER  IINPREPRO17,IINPREPRO18,IINPREPRO19
      INTEGER  IINDEM1, IINDEM2, IINDEM3, IINDEM4
      INTEGER  IINDEM10,IINDEM11,IINDEM12
      INTEGER  ITERM
      INTEGER  IOUT1, IOUT2, IOUT3, IOUT4, IOUT5, IOUT6
      INTEGER  IOUT7, IOUT8, IOUT9, IOUT10,IOUT11,IOUT12
      INTEGER  IOUT13,IOUT14,IOUT15,IOUT16,IOUT17,IOUT18
      INTEGER  IOUT19,IOUT20
      INTEGER  IOUT30,IOUT31,IOUT32,IOUT33
      INTEGER  IOUT36
      INTEGER  IOUT40,IOUT41,IOUT42,IOUT43,IOUT44
      INTEGER  IOUT50,IOUT51
      INTEGER  IOUT57
      INTEGER  IOUT70,IOUT71
      INTEGER  IOUT80,IOUT81
      INTEGER  IOUTPT
C
      COMMON  /IOUNITS/IFN,
     1                 IIN1, IIN2, IIN3,
     2                 IIN10,IIN11,IIN12,IIN13,IIN14, 
     3                 IIN20,IIN21,IIN22,IIN23,
     4                 IIN30,IIN31,IIN32,
     5                 IINPREPRO1, IINPREPRO2, IINPREPRO3, IINPREPRO4,
     6                 IINPREPRO5, IINPREPRO6, IINPREPRO7, IINPREPRO8,
     7                 IINPREPRO9, IINPREPRO10,IINPREPRO11,IINPREPRO12,
     8                 IINPREPRO13,IINPREPRO14,IINPREPRO15,IINPREPRO16,
     9                 IINPREPRO17,IINPREPRO18,IINPREPRO19,
     A                 IINDEM1, IINDEM2, IINDEM3, IINDEM4,
     B                 IINDEM10,IINDEM11,IINDEM12,
     C                 ITERM,
     D                 IOUT1, IOUT2, IOUT3, IOUT4, IOUT5, IOUT6,
     E                 IOUT7, IOUT8, IOUT9, IOUT10,IOUT11,IOUT12,
     F                 IOUT13,IOUT14,IOUT15,IOUT16,IOUT17,IOUT18,
     G                 IOUT19,IOUT20,
     H                 IOUT30,IOUT31,IOUT32,IOUT33,
     I                 IOUT36,
     J                 IOUT40,IOUT41,IOUT42,IOUT43,IOUT44,
     K                 IOUT50,IOUT51,
     L                 IOUT57,
     M                 IOUT70,IOUT71,
     N                 IOUT80,IOUT81,
     O                 IOUTPT
