program main implicit none c call testPsiFromW(50, 50) c call testChain() call runSim() end