link ../phylmd/create_etat0_unstruct.F90