resvar <- mxPath(from=names(df),arrows=2,free=TRUE,values=0.01,lbound=0.001,
  labels=paste("rv",names(df),sep="_"))


rescov2 <- mxPath(from=names(df)[2],to=names(df)[-c(1,2)],arrows=2,free=FALSE,values=0,
  labels=c("cov23[1,1]","cov24[1,1]","cov25[1,1]","cov26[1,1]","cov27[1,1]"))

rescov3 <- mxPath(from=names(df)[3],to=names(df)[-(1:3)],arrows=2,free=FALSE,values=0,
  labels=c("cov34[1,1]","cov35[1,1]","cov36[1,1]","cov37[1,1]"))

rescov4 <- mxPath(from=names(df)[4],to=names(df)[-(1:4)],arrows=2,free=FALSE,values=0,
  labels=c("cov45[1,1]","cov46[1,1]","cov47[1,1]"))

rescov5 <- mxPath(from=names(df)[5],to=names(df)[-(1:5)],arrows=2,free=FALSE,values=0,
  labels=c("cov56[1,1]","cov57[1,1]"))

rescov6 <- mxPath(from=names(df)[6],to=names(df)[-(1:6)],arrows=2,free=FALSE,values=0,
  labels=c("cov67[1,1]"))

algc.23 <- mxAlgebra(sqrt(rv_z_fink*rv_z_font)*rho,"cov23")
algc.24 <- mxAlgebra(sqrt(rv_z_fink*rv_z_pfor)*rho,"cov24")
algc.25 <- mxAlgebra(sqrt(rv_z_fink*rv_z_salv)*rho,"cov25")
algc.26 <- mxAlgebra(sqrt(rv_z_fink*rv_z_wikl)*rho,"cov26")
algc.27 <- mxAlgebra(sqrt(rv_z_fink*rv_z_wuyt)*rho,"cov27")

algc.34 <- mxAlgebra(sqrt(rv_z_font*rv_z_pfor)*rho,"cov34")
algc.35 <- mxAlgebra(sqrt(rv_z_font*rv_z_salv)*rho,"cov35")
algc.36 <- mxAlgebra(sqrt(rv_z_font*rv_z_wikl)*rho,"cov36")
algc.37 <- mxAlgebra(sqrt(rv_z_font*rv_z_wuyt)*rho,"cov37")

algc.45 <- mxAlgebra(sqrt(rv_z_pfor*rv_z_salv)*rho,"cov45")
algc.46 <- mxAlgebra(sqrt(rv_z_pfor*rv_z_wikl)*rho,"cov46")
algc.47 <- mxAlgebra(sqrt(rv_z_pfor*rv_z_wuyt)*rho,"cov47")

algc.56 <- mxAlgebra(sqrt(rv_z_salv*rv_z_wikl)*rho,"cov56")
algc.57 <- mxAlgebra(sqrt(rv_z_salv*rv_z_wuyt)*rho,"cov57")

algc.67 <- mxAlgebra(sqrt(rv_z_wikl*rv_z_wuyt)*rho,"cov67")