Hi,
not sure what’s going on when i try to compile.
PGF90-S-0087-Non-constant expression where constant expression required (fprime.f: 313)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (fprime.f: 313)
0 inform, 0 warnings, 2 severes, 0 fatal for sigma
PGF90-S-0087-Non-constant expression where constant expression required (fprime.f: 347)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (fprime.f: 347)
0 inform, 0 warnings, 2 severes, 0 fatal for gauss
PGF90-S-0087-Non-constant expression where constant expression required (fprime.f: 477)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (fprime.f: 477)
0 inform, 0 warnings, 2 severes, 0 fatal for aknint
general.f:
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 993)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 993)
0 inform, 0 warnings, 2 severes, 0 fatal for extract_v0bdcf
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 1025)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 1025)
0 inform, 0 warnings, 2 severes, 0 fatal for extract_epsii
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 2856)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 2856)
0 inform, 0 warnings, 2 severes, 0 fatal for vnorme
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 5108)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 5108)
0 inform, 0 warnings, 2 severes, 0 fatal for fpp_cal
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 5865)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 5865)
0 inform, 0 warnings, 2 severes, 0 fatal for detmat
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 10730)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 10730)
0 inform, 0 warnings, 2 severes, 0 fatal for f_integr
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 10792)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 10792)
0 inform, 0 warnings, 2 severes, 0 fatal for f_integr3
PGF90-S-0087-Non-constant expression where constant expression required (general.f: 10863)
PGF90-S-0081-Illegal selector - KIND parameter has unknown value for data type (general.f: 10863)
0 inform, 0 warnings, 2 severes, 0 fatal for finterp2
that’s all in the first error …
real(kind=db) function sigma(iftype, x)
what’s the problem?