link ../phylmd/alpale_th.f90