Subj: Another bug of CAIN2.0

 			15-MAY-1996 17:11:04.65                                    
From:   KEKVAX::YOKOYA      
To:     @CAIN
CC:     YOKOYA

    Dear CAIN collegues
      I found one more bug in CAIN2.0
   In the files  setvar.f and setvar2.f in the directory
   source/control/basic, you find the statements
      IF(KIND(N).EQ.1) THEN
        I1=12
        I2=9
      ELSE
        I1=9
        I2=12
      ENDIF
         (KIND(N) in the first line is KN in setvar2.f)
   The numbers must be replaced as
       12--->11,  9--->8

   Sorry for bothering you.
                                         Kaoru