Pro nostalgické vzpomínání je tu deníček z minulého roku, popisující všechny důležité události světové, ale i domácí scény, a to formou stručnou a výstižnou.

program transformace

       INTEGER n, i, j, k
       real*8, pointer ::  a(:,:)   !transformacni matice (n x n)
       real*8, pointer ::  a1(:,:)  !copy of matrix a
       real*8, pointer ::  vysl(:)   !vysledny vektor
       real*8, pointer ::  vec(:)    !souradnice ve stare bazi
       real frac

! open input and output files
       open(unit=1,file='trans.dat',status='old')


       read(1,*) n     !size of given linear system

       !dynamic allocations
       allocate(a(n,n),stat=ialloc)
       allocate(a1(n,n),stat=ialloc)
       allocate(vysl(n),stat=ialloc)
       allocate(vec(n),stat=ialloc)

       Read(1,*) ((a(i,j),j=1,n),i=1,n)



       print*, 'Nactena matice'
       do i=1,n
         print*, (a(i,j), j=1,n)
       end do
       print*,'------------------------------'



       print*,'------------------------------'
       print *,'Zadej slozky vektoru'
       print *,'x='
       read (*,*) vec(1)
       print *,'y='
       read (*,*) vec(2)
       print *,'z='
       read (*,*) vec(3)
       do i=1,n
	 vysl(i) = 0
	 do j=1,n
	   print *,a(i,j)
           print *,'kurrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrva',vec(j)
           vysl(i) = vysl(i) + vec(j)*a(i,j)
           print *,'doprdele(mezisoucet)',vysl(i)
	 end do
       end do

       print*,'Vysledny vektor'
       do i=1,n
         print*, (vysl(i), i=1,n)
       end do
       end program