Ошибка: аргумент "b" встроенного в (1) знака должен быть того же типа и типа, что и "a"

Question

Я новичок в Фортране. Так что мне нужна помощь. Я использую gfortran в SUSE для компиляции своего кода и получаю следующую ошибку:

DELTAL = SIGN (.1,(GFIX-GAMFLT))

1

Error: 'b' argument of 'sign' intrinsic at (1) must be the same type and kind as 'a'

Основной файл для кода прикреплен по ссылке ниже, где в строке 3509 показана ошибка

https://files.engineering.com/getfile.aspx?folder=d55e28c0-10bf-4c50-b07f-c1de071c9567&file=sftol.f

Как это исправить?

Answer 1

Эта проблема была окончательно решена следующим образом:

DELTAL = SIGN (0.1D0,(GFIX-GAMFLT))

Кажется, что он сохраняет основной тип данных исходного кода. Он успешно компилируется.

Спасибо всем за ваши предложения.