OpenBLAS/ftest3.f

7 lines
93 B
Fortran

double complex function zho_ge()
zho_ge = (0.0d0,0.0d0)
return
end