XE12--> XE13 : performance issue when reading files

Hello, 

  I have a program that read quite big files (~ 100 Mo). Reading time was not a problem until I updated to XE 13. Below is a part of the program that is now very slow. 

XE12 --> 0.03 s  (clock time)

XE13 --> 5.50 s  (clock time)  , whatever the update  (13.0 , 13.1.1 ... )

Regards, 

   Guillaume

call chrono2%start()

do ihdg=1, nbhead

   do k=1, nksym
      read(9)(ptvxyz3(k,ift,ihdg),ift=1,nfhull+nfzero+nlwlin+nwlzero+nfboit+nwboit)
   end do
   do k=1, 2**nsymhull(1)
      read(91)(ptvxyz_zz3(k,ift,ihdg),ift=1,nfhull+nfzero+nlwlin+nwlzero+nfboit+nwboit)
   end do
   read(9)( CmDif3(ib,ihdg),ib=0,NBES )
   read(9)( SmDif3(ib,ihdg),ib=0,NBES )
end do

call chrono2%stop()