|کد فرترن اثر یک ماتریس|کد فرترن تریس یک ماتریس|کد فرترن تریس ماتریس|کد تریس ماتریس در فرترن|کد اثر ماتریس در فرترن|trace|
-------------------------------------------------------------------------------------------------------------------------------------------
این کد اول n رو که همون تعداد سطر و ستون ماتریس مربعی ماست رو میگره.سپس سطر به سطر درایه های های ماتریس رو از کاربر میگیره و شروع به محاسبه تریس ماریس میکنه.تریس یا اثر یک ماتریس برابر حاصل جمع درایه های روی قطر اصلی ماتریسه.در آخر هم جواب رو نمایش میده.
---------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------
PROGRAM trace
1. IMPLICIT NONE
2. INTEGER::n,i,t
3. REAL::s
4. REAL,ALLOCATABLE::a(:,:)
5. PRINT*," input n : "
6. READ*,n
7. ALLOCATE (a(n,n))
8. DO t=1,n
9. PRINT*," input a(",t,", 1 ) to a(",t,",",n,") :"
10. PRINT*
11. READ*,a(t,:)
12. END DO
13. s=0.
14. DO i=1,n
15. s=s+a(i,i)
16. END DO
17. PRINT*," trace = ",s
18. PRINT*
19. END