Фортран, лаба (подпрграммы, симв. данные)

[Ant1Xr1st]

Прошу помощи с лабораторной. задания в приложении.

1. Вроде работает.
   
   PHP код:

         program abc
      implicit none
      integer, parameter :: n = 6, m = 6
      real r(n,m), max, min
      integer i, j, a(n,m), k(n)
      !random
      call random_number(r)
      a=r*10
      max=0
      min=0
      !input
      print *,"Input:"
      call printArr(a,n,m)
      !calc
      do i = 1,m
         do j = 1,n
            if (a(i,j).gt.max) then
            max=a(i,j)
            endif
            if (a(i,j).lt.min) then
            min=a(i,j)
            endif
         enddo
         k(i)=max-min
         max=0
         min=0
      enddo
      
      print *, k
      end
      !print sub
      subroutine printArr(a,n,m)
      integer a(n,m),n,m,i,j
      do i=1,n
         print * ,(a(i,j),j=1,m)
      end do
      end 

2. Ответ выдается неверный...
   
   PHP код:

         program abc2
      integer, parameter :: n = 6, m = 6
      real r(n,m)
      integer a(n,m), i, k, l
      !random
      call random_number(r)
      a=r*100
      !input
      print *,"Input data:"
      call printArr(a,n,m)
      print *,"Output data:"
      call dia(a,k,l)
      end

      subroutine dia(a,k,l)
      integer a, k(6), l(6), j, i
      do i = 1,6
         k(i)=a(i,j+1)
      enddo
      do i = 1,6
         k(i)=a(i,j+1)
      enddo
      print *, k
      print *, l
      end

      !print sub
      subroutine printArr(a,n,m)
      integer a(n,m),n,m,i,j
      do i=1,n
         print * ,(a(i,j),j=1,m)
      end do
      end 

3. В первой части задания вроде бы все просто, но ответ выдается неверный. По второй части - глухо, ибо нормального описания использования форматного вывода в фортране найти не удалось.
   
   PHP код:

         program lol
      real a,ff
      a=(ff(5,(-2))+ff(6,(-3))+ff(7,0)+ff(9,2))/ff(2,5)
      print *, a     
      end

      function ff(m,s)
      real m,s
      if (s.ge.0) then
      ff=m**s else
      ff=1/(m**abs(s))
      !ff=1/ff
      endif
      end 

4. Последняя задача слизана из какой-то методички, но не компилится - жалуется на строку 1FORMAT (A1,\)
   
   PHP код:

         program str
      character*40 L
      read '(a)',L
      print 3
      do i=1,40
         if(L(i:i).ne.' '.and.i.lt.40.and.L(i+1:i+1).eq.' ') then
         print 2,L(i:i)
         print 3
         else if(L(i:i).ne.' ') then
         print 1,L(i:i)
         endif
      enddo
     1FORMAT (A1,\)
     2FORMAT (A1)
     3FORMAT (1x,\)
      end