link /storage/Guilherme/eulag-code/src/SSM_EuPen_coup.f