integer I1(2,2), I2(2,2,2)
real A1(5)
-real*8 A2(0:3)
+real(kind=8) A2(0:3)
character*80 :: IDATA1="111 2 2 3 3. 3E-1 44 5 5 6 . 67 . 78 8. 8E-1"
character*80 :: IDATA2="2345 1 34512 45123 51234 2345 1 34512 45123 5"
character*80 :: IDATA3="-8.0D0 1.0D-4 0.50D0 0.250D0"
character*80 :: CORRECT1=" 1110 2020 .30303E-07 44 55 6.6 70.07 .888E+01"
character*80 :: CORRECT2="23450 10345. 12.45 1235 1234 2345 1345. 12.45 1235"
character*80 :: CORRECT3=" -0.8000000000D+01 0.1000000000D-03&
- 0.5000000000D+00 0.2500000000D+00"
+ & 0.5000000000D+00 0.2500000000D+00"
READ(IDATA1, 10) I1(1,2), IVI, A1(3), JVI, KVI, A1(2), AVS, A1(1)
10 FORMAT (BZ,(2I4, E10.1, BN, 2I4, F5.2, BZ, F5.2, BN, E10.1))