MODULE SOLUT
      DOUBLE PRECISION :: CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8,   &
                     PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, PSI8,   &
                     A1,   A2,   A3,   A4,   A5,   A6,   A7,   A8

      END Module SOLUT