sf2test needs specified return type
Open
- Dominant language
- Fortran
- Stars
- 0
- Forks
- 0
- PR merge metrics
- No merged PRs in 30d
Description
Compiling with gfortran 4.8.5 leas to
gfortran -c -m32 -g -fno-automatic -fdollar-ok -fno-backslash -finit-local-zero -fno-second-underscore mcdvcsv1.f -o mcdvcsv1.o
mcdvcsv1.f:372.47:
if (isel_f2qcd.eq.1) F2VAL = dble(sf2test(real(XVAL),real(Q2VAL))) 1
Error: Return type mismatch of function 'sf2test' at (1) (REAL(8)/REAL(4))
make: *** [mcdvcsv1.o] Error 1
Solved with:
```
real*8 function sf2test(xin,q2in)
```
in line 5173 of mcdvcsv1.f.
Note, original milou has the same problem
Contributor guide
No contributing guide indexed for this repository
Assessment
This issue has not been assessed yet.