• adamas() : adamas.f90