link ../phylmd/read_pstoke0.f90