아키텍처에 Fortran 배열 이름이 허용되지 않습니다. X86_64

Question

Mac을 사용 중이며 gfortran 컴파일러를 사용하여 주어진 샘플의 평균 및 표준 편차를 계산하는 매우 간단한 Fortran 코드를 컴파일하려고했습니다.

C This is a fortran program for calculation the average, standard deviation 
C and standard error of a given set of data. 
C Created by Ömer Faruk BODUR - 12 October 2014 

     PROGRAM AvDevErr 
     character(len=1) choise 
     character(len=50) path 
     real ave,x,std 
     real, DIMENSION(30) :: array1 
     integer h 
     write(*,*)'Do you want to enter your data manually ? 
    &Press "y" for yes or "n" for No then submit your choise by 
    &pressing Enter:' 
     read(*,*)choise 
     if(choise.eq.'y') then 
     sum1=0.0 
     icount=0 
     sum2=0.0 
     write(*,*)'Please enter the values to be used when calculating 
    &the average, standard deviation and standard error. When finished, 
    &enter 0 then press Enter:' 

     read(*,*)x 

1 if(x.ne.0) then 
     sum=sum+x 
     icount=icount+1 
     read(*,*)x 
     go to 1 
     endif 
     endif 
     ave=sum/real(icount) 

     if(choise.eq.'n') then 
     sum=0.0 
     icount=0 
     j=1 
     write(*,*)'Enter the name of your data file' 
     read(*,5)path 
5  format(a10) 
     write(*,*)'Enter the number of data to be used in your file: ' 
     read(*,*)ndata 
     open(10,FILE=path,status='old') 
     write(*,*)'The data in your file to be used is below: ' 
     do 14 i=1,ndata 
     read(10,7,END=99)array1(i) 
     write(*,*)array1(i) 
7  format(f4.2) 
     sum=sum+array1(i) 
     icount=icount+1 
14 enddo 
     ave=sum/real(ndata) 
99 endif 
     write(*,*)'The sum of the data is: ',sum 
     write(*,*)'The number of data used is: ',ndata 
     write(*,*)'the average of the data set is= ',ave 

     call stdeviation(ndata,ave) 
     write(*,*)'The standard deviation is: ',std 
     stop 
     end program AvDevErr 

     subroutine stdeviation(ndata,ave) 
     do 19 i=1,ndata 
     sum2=sum2 + (array1(i)-ave)**2 
19 enddo 
     std=sqrt(sum2/real(ndata-1)) 
     return 
     end 

을하지만, 나는 다음과 같이 내 배열 이름을 참조하는 아래의 오류 얻을 :

Undefined symbols for architecture x86_64: 
    "_array1_", referenced from: 
     _stdeviation_ in ccHYprZn.o 
ld: symbol(s) not found for architecture x86_64 
collect2: error: ld returned 1 exit status 

내가 잘못하고있는 중이 야 무엇을 다음과 같이 코드는?

Answer 1

array1을 서브 루틴 (그리고 std도)에 전달해야합니다!

 ! ... 
     call stdeviation(array1,ndata,ave,std) 
     write(*,*)'The standard deviation is: ',std 
     stop 
     end program AvDevErr 

     subroutine stdeviation(array1,ndata,ave,std) 
     real, dimension(30), intent(in) :: array1 
     integer, intent(in)    :: ndata 
     real, intent(in)    :: ave 
     real, intent(out)    :: std 
     ! ... 

하지만 부탁하고 implicit none으로 코드를 변환하십시오. 당신이 잘못하고있다

 subroutine stdeviation(array1,ndata,ave,std) 
     implicit none 
     real, dimension(30), intent(in) :: array1 
     integer, intent(in)    :: ndata 
     real, intent(in)    :: ave 
     real, intent(out)    :: std 

     integer       :: i 
     real       :: sum2 

     ! As High Performance Mark noticed, sum2 has to be initialized first: 
     sum2 = 0. 

     do 19 i=1,ndata 
      sum2=sum2 + (array1(i)-ave)**2 
19  enddo 
     std=sqrt(sum2/real(ndata-1)) 
     return 
     end