lcsq: fortran not fast enoguh
still trying