[*ابو محمد الجزائري*]

     subroutine saisie (mat,nbl,nbc,diml,dimc)
      implicit none
      integer i,j
      integer nbl,nbc,diml,dimc
      real mat(diml,dimc)
      print*,'Définissez la dimension réelle de la matrice'
      print*,'Nombre de lignes (',diml,' maxi) : '
      read*,nbl
      print *,'Nombre de colonnes (',dimc,' maxi) : '
      read*,nbc
      if(nbl.gt.diml.or.nbc.gt.dimc.or.nbl.lt.1.or.nbc.lt.1)then
      print *,'Erreur dimension'
      stop
      endif
      print*,'Entrez votre matrice :'
      do 10 i=1,nbl
      print*,'ligne' ,i
      do 20 j=1,nbc
      print*,' (',i,'-',j,') ?' 
      read*,mat(i,j)
20    continue
10    continue
      end subroutine saisie

الا ينقصك قبل آخر سطر
enddo
enddo
و الله اعلم
للاسف البرنامج ليس مثبتا على جهازي لكي اجرب البرنامج
لكن اليس فورترون يخبرك بالسطر الذي فيه الخطا و نوع الخطا