fork download
copy 
  1. PROGRAM POWER
  2. DIMENSION A(3,3),V(3,1),C(3,1)
  3.  
  4. DATA A/1,1,0,6,2,0,1,0,3/
  5. DATA V/1,0,0/
  6. PRINT*," MATRIX A"
  7. DO I=1,3
  8. WRITE(6,20)(A(I,J),J=1,3)
  9. 20   FORMAT(3X,3F8.2/)
  10. ENDDO
  11. PRINT*," UNIT VECTOR"
  12. 30   DO I=1,3
  13. WRITE(6,10)V(I,1)
  14. 10   FORMAT(3X,F8.2/)
  15. ENDDO
  16. DO I=1,3
  17. DO J=1,1
  18. C(I,J)=0.0
  19. DO K=1,3
  20. C(I,J)=C(I,J)+A(I,K)*V(K,J)
  21. ENDDO
  22. ENDDO
  23. ENDDO
  24. PRINT*,"product of A and V such that VECTOR AV"
  25. DO I=1,3
  26. WRITE(6,10)C(I,1)
  27. ENDDO
  28. PRINT 50,C(1,1)
  29. PRINT*,"LARGESR EIGEN VECTOR"
  30. IF(ABS(V(2,1)-C(2,1)/C(1,1))<0.0001) GOTO 40
  31. DO I=1,3
  32. DO J=1,1
  33. V(I,J)=C(I,J)/C(1,1)
  34. ENDDO
  35. ENDDO
  36. GOTO 30
  37. 40   DO I=1,3
  38. WRITE(6,10)V(I,1)
  39. ENDDO
  40. PRINT 50,C(1,1)
  41. 50   FORMAT(3X,"LARGEST EIGEN VALUE=",F8.2/)
  42. END PROGRAM
Success #stdin #stdout 0.01s 5304KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  MATRIX A
       1.00    6.00    1.00

       1.00    2.00    0.00

       0.00    0.00    3.00

  UNIT VECTOR
       1.00

       0.00

       0.00

 product of A and V such that VECTOR AV
       1.00

       1.00

       0.00

   LARGEST EIGEN VALUE=    1.00

 LARGESR EIGEN VECTOR
       1.00

       1.00

       0.00

 product of A and V such that VECTOR AV
       7.00

       3.00

       0.00

   LARGEST EIGEN VALUE=    7.00

 LARGESR EIGEN VECTOR
       1.00

       0.43

       0.00

 product of A and V such that VECTOR AV
       3.57

       1.86

       0.00

   LARGEST EIGEN VALUE=    3.57

 LARGESR EIGEN VECTOR
       1.00

       0.52

       0.00

 product of A and V such that VECTOR AV
       4.12

       2.04

       0.00

   LARGEST EIGEN VALUE=    4.12

 LARGESR EIGEN VECTOR
       1.00

       0.50

       0.00

 product of A and V such that VECTOR AV
       3.97

       1.99

       0.00

   LARGEST EIGEN VALUE=    3.97

 LARGESR EIGEN VECTOR
       1.00

       0.50

       0.00

 product of A and V such that VECTOR AV
       4.01

       2.00

       0.00

   LARGEST EIGEN VALUE=    4.01

 LARGESR EIGEN VECTOR
       1.00

       0.50

       0.00

 product of A and V such that VECTOR AV
       4.00

       2.00

       0.00

   LARGEST EIGEN VALUE=    4.00

 LARGESR EIGEN VECTOR
       1.00

       0.50

       0.00

 product of A and V such that VECTOR AV
       4.00

       2.00

       0.00

   LARGEST EIGEN VALUE=    4.00

 LARGESR EIGEN VECTOR
       1.00

       0.50

       0.00

   LARGEST EIGEN VALUE=    4.00
https://ideone.com/fP431T
language:
Fortran (gfortran 8.3)
created:
11 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!