PRO dustem_create_functions,p_min,cont=cont,freefree=freefree,synchrotron=synchrotron,res=res

p_dim = p_min * (*(*!dustem_fit).param_init_values)

f=1
FOR i=0L,n_elements(p_min)-1 DO BEGIN
   IF ((*(*!dustem_fit).param_func)(i) NE 0.) THEN BEGIN
        ftn = strmid((*(*!dustem_fit).param_descs)(i), 0, strlen((*(*!dustem_fit).param_descs)(i))-2)
        tmp = (where(*(*!dustem_fit).param_func eq f, count))
        PDO_tmp = (*(*!dustem_fit).param_descs)(tmp)
        p_dim_tmp = p_dim(tmp)
        index = fltarr(count) & value = fltarr(count)
        FOR k=0, count-1 DO BEGIN
           index(k) = strmid(PDO_tmp(k),0,1,/REV )
           value(k) = p_dim_tmp(k)
        ENDFOR
        IF ftn EQ 'dustem_create_ionfrac' THEN BEGIN
           key_ionfrac=index
           val_ionfrac=value
        ENDIF

        IF ftn NE 'dustem_create_continuum' and ftn NE 'dustem_create_freefree' and ftn NE 'dustem_create_synchrotron' THEN BEGIN

           str='res='+ftn+'(key=index,val=value)'
           toto=execute(str)
           IF !dustem_verbose NE 0 THEN message,str,/info
        ENDIF ELSE BEGIN

          IF ftn EQ 'dustem_create_continuum' THEN BEGIN
            str='cont='+ftn+'(key=index,val=value)'
            toto=execute(str)
            IF !dustem_verbose NE 0 THEN message,str,/info
          ENDIF
          IF ftn EQ 'dustem_create_freefree' THEN BEGIN
            str='freefree='+ftn+'(key=index,val=value)'
            toto=execute(str)
            IF !dustem_verbose NE 0 THEN message,str,/info
          ENDIF
          IF ftn EQ 'dustem_create_synchrotron' THEN BEGIN
            str='synchrotron='+ftn+'(key=index,val=value)'
            toto=execute(str)
            IF !dustem_verbose NE 0 THEN message,str,/info
          ENDIF

        ENDELSE
        f=f+1 & i=i+count-1
  ENDIF
ENDFOR

END