diff --git a/src/sme/hlinprof.f b/src/sme/hlinprof.f index c48e61c..8193ea6 100644 --- a/src/sme/hlinprof.f +++ b/src/sme/hlinprof.f @@ -291,7 +291,7 @@ SUBROUTINE STEHLE(HFILE,WAVE,WAVE0,TEMP,XXNE,NLOW,NUP,HLIN, REAL*8 WAVE,WAVE0 INTEGER NWL,NTEMP,NNE,NLINE REAL SQRTPI - PARAMETER (NWL=60,NTEMP=10,NNE=15,NLINE=90,SQRTPI=1.77245385) + PARAMETER (NWL=60,NTEMP=13,NNE=15,NLINE=90,SQRTPI=1.77245385) REAL T(NTEMP),XNE(NNE) REAL WING(NNE,NLINE),F0(NNE,NLINE),WIDTH(NTEMP,NNE,NLINE), * ALPHA(NWL,NTEMP,NNE,NLINE),SPROF(NWL,NTEMP,NNE,NLINE),HLIN @@ -592,7 +592,7 @@ SUBROUTINE HGRID(HFILE,WAVE,WAVE0,TEMP,NHYD,NLOW,NUP,HLIN, IMPLICIT NONE REAL*8 WAVE,WAVE0 INTEGER MNPROFS,MNTEMP,MNNH,MNLINE - PARAMETER (MNTEMP=10,MNNH=30,MNLINE=10,MNPROFS=200) + PARAMETER (MNTEMP=13,MNNH=30,MNLINE=10,MNPROFS=200) REAL*8 T(MNTEMP),NH(MNNH),NHYD,TEMP,HLIN REAL*8 F0(MNNH,MNLINE), * MALPHA(MNPROFS,MNTEMP,MNNH,MNLINE),