ICPROF Predefined Values

      if (icprof.eq.1) then
        kffcur=2
        kppcur=2
        fcurbd=1.
        pcurbd=1.
        fwtbp=1.
        fwtqa=0.
        qvfit=0.
      elseif (icprof.eq.2) then
        kffcur=2
        kppcur=2
        fcurbd=0.
        pcurbd=0.
        fwtbp=0.
        fwtqa=0.
        qvfit=0.
      elseif (icprof.eq.3) then
        kffcur=3
        kppcur=2
        fcurbd=0.
        pcurbd=0.
        fwtbp=0.
        fwtqa=0.
        qvfit=0.
        kcalpa=1
        calpa(1,1)=0.1
        calpa(2,1)=0.1
        calpa(3,1)=0.1
        xalpa(1)=0.0
        kcgama=1
        cgama(1,1)=0.1
        cgama(2,1)=0.1
        cgama(3,1)=0.1
        xgama(1)=0.0
      endif