BLAS Aufruf von Funktionen

Question

Hier ist ein einfaches Programm

PROGRAM MAIN 
implicit none 
integer, PARAMETER :: N=10 
real*8 :: A(N) 
real*8 :: x=0.1D0 
integer :: i=1 
Do i=1,N 
A(i)=i 
end do 
call dscal(N,x, A, 1) 

x=dasum(N,A,1) 

END PROGRAM MAIN 

ich mit dem Befehl kompilieren

gfortran test.f90 -o test -O1 -I /usr/include/ -L /usr/lib -lblas 

Während ich dscal kein Problem ruft das Unterprogramm habe ich die folgende Fehlermeldung für die Funktion dasum

erhalten

test.f90:15.2: 

x=dasum(N,A,1) 
1 
Error: Function 'dasum' at (1) has no IMPLICIT type 

Soll ich eine bestimmte Datei angeben, um die BLAS-Funktionen zu definieren?

Answer 1

Für Funktionen, müssen Sie manuell den Rückgabewert angeben (und wenn Sie vornehm fühlen, ein external optional):

real*8,external :: dasum 

---

Zusätzlich bitte real*8 nicht verwenden. Es ist nicht standardkonform, nicht tragbar und ziemlich verwirrend. Stattdessen verwenden Sie die kind Parameter, um die Präzision zu definieren, z.B .:

real(kind=kind(1.d0)) 

oder dergleichen. Wenn Sie ISO_Fortran_env module verwenden können, verwenden Sie die Konstanten REAL32 und REAL64.