[問題] 矩陣最大值

[nike3238 (魚兒)]

現在在寫矩陣的程式
遇到要提出矩陣最大值並除掉的問題

有查書查到一些指令可以直接抓出最大值
real*8 Amatrix_max(1)
 Amatrix_max= MAXVAL(Amatrix)

可是我要把矩陣每個直都除以這個最大值
A2matrix=Amatrix/Amatrix_max
他就會出現
Error: The shapes of the array expressions do not conform.
A2matrix=Amatrix/Amatrix_max
Error: The shapes of the array expressions do not conform.   [A2MATRIX]
A2matrix=Amatrix/Amatrix_max

不知道有沒有人可以幫我解決
還有~如果矩陣換成2維的也會發生一些問題,書上並沒有特別說明這個指令的用法

Amatrix=[1 2 3
         4 5 6
         7 8 9]<---------原來的矩陣
最大值應該為9
每個直都除9的話
應該
A2matrix=[0.11 0.22 0.33
          0.44 0.55 0.66
          0.77 0.88 1.00]<-------------我想要的結果

在這邊先謝謝了

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.13.137.93
※ 編輯: nike3238        來自: 163.13.137.93        (06/18 18:08)
※ 編輯: nike3238        來自: 163.13.137.93        (06/18 18:09)
→ hiyiyi:Amatrix_max不設成矩陣試試，另外A2matrix有宣告成矩陣嗎？
推 charlesdc:照樓上的方法就可以了 設成矩陣會有形態錯誤的問題
→ charlesdc:應該是稱作維度錯誤啦~~XD
→ nike3238:恩~感謝回覆~應該可以用!!不過我自己用do 寫出來了
→ MHG:Amatrix_max(1)= MAXVAL(Amatrix) and
→ MHG:A2matrix=Amatrix/Amatrix_max(1)
→ MHG:要不然就是用1樓的方法囉~
推 laa7352:原po那樣寫法是陣列除陣列，但二個陣列的維度不同就會出錯
→ laa7352:修正的話不要把最大值的變數設陣列，或跟樓上一樣指定陣列
→ laa7352:的元素就可以了