This is my model:
bifactormodel <- '
schmerz =~ PQ01_02 + PQ01_03+ PQ01_06
kardio =~ PQ01_07 + PQ01_08 + PQ01_10 + PQ01_11
gastro =~ PQ01_01 + PQ01_05 + PQ01_12 + PQ01_13
fatigue =~ PQ02_01 + PQ02_02
gsoma =~ PQ01_02 + PQ01_03+ PQ01_06 + PQ01_07 + PQ01_08 + PQ01_10 + PQ01_11 +
PQ01_01 + PQ01_05 + PQ01_12 + PQ01_13+PQ02_01 + PQ02_02
gsoma~~ 0*schmerz
gsoma~~0*kardio
gsoma ~~ 0 * gastro
gsoma ~~ 0 * fatigue
schmerz ~~ 0*kardio + 0*fatigue + 0*gastro
kardio ~~ 0*fatigue + 0*gastro
fatigue ~~ 0*gastro
gsoma~~1*gsoma
schmerz~~1*schmerz
kardio~~1*kardio
gastro~~1*gastro
fatigue~~1*fatigue
'
fit_bifactor <- sem(model=bifactormodel, data=vars, estimator = "WLSMV", parameterization ="theta", mimic="mplus")
So the two missing free parameters are there....