link ../phylmd/alpale_th.F90