Re: [問題] fortran的寫作問題

[awer89 (Dolphin)]

※ 引述《sunhpy (水母片)》之銘言：
: 最近剛開始學fortran遇到了一些問題，以下這個程式我寫完後，a值怎麼都ㄧ樣，
: 有沒有哪位大大可以幫我找出是哪裡寫錯了？題目是利用副程式將原來的成績
: 開根號再乘以10，並判斷是否及格
: implicit none
: integer, parameter:: students=5
: integer::score(students)=(/38,51,40,94,80/)
  integer:: i
  real::a

: do i=1,students
    call sub1(score,a,i,students)
: if(a>60) then
: write(*,*)"第",i,"名學生  分數", a,"及格"
: else
: write(*,*)"第",i,"名學生  分數", a,"不及格"
: end if
: end do
: stop
: end program hw5

  subroutine sub1(score,a,i,students)
: implicit none
  integer::score(students),i,students
  real::a
  a=score(i)**0.5*10
: return
: end subroutine sub1

白色為修改的地方

--

  18173    12/09 -            □ (本文已被吃掉)       吃光光，口卡口卡 
  18174    12/09 -            □ (本文已被吃掉)                ◤
  18175    12/09 -            □ (本文已被吃掉)       ⊙    ⊙
  18176    12/09 -            □ (本文已被吃掉)       ▼▼▼▼
  18177    12/09 -            □ (本文已被吃掉)       ▲▲▲▲

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 59.121.197.78
推 sunhpy:感謝大大的幫忙
→ sunhpy:只是score(students)的地方出現
→ sunhpy:Error: A specification expression is invalid.  [STUDEN]
→ awer89:也許是不同編譯器吧~~!我用的編譯器可以
→ awer89:把score(students)改成score(5)看OK不OK
推 sunhpy:這樣就可以了，感謝awer89大大的幫忙