Вы не объявляете getS как функцию в подпрограмме createS. Вам нужно добавить double precision, external :: getS в объявления переменных подпрограммы createS.
getS
createS
double precision, external :: getS