link ../phylmd/read_pstoke.F90