Some procedures in Forsynth use the parameter SEMITONE defined by:
real(dp), parameter :: SEMITONE = 2.0_dp**(1.0_dp/12.0_dp)
It mean it implicitly uses the equal temperament: https://en.wikipedia.org/wiki/Equal_temperament
But we could also use Forsynth to study other tuning system. For example, in the Western music:
https://en.wikipedia.org/wiki/Pythagorean_tuning
https://en.wikipedia.org/wiki/Gioseffo_Zarlino
https://en.wikipedia.org/wiki/Musical_tuning#Tuning_systems
But also the tuning used in other musical systems.