古いフォートランのコードで、Ｃに直したいのですがコードが読めません。
もし分かる方いらっしゃったら確認お願いします。
以下コード

FUNCTION RAND(K)

INTEGER K, M, CONST1
REAL RAND, CONST2
PARAMETER (CONST1 = 2147483647, CONST2 = .4656613E-9)
SAVE
DATA M /0/

IF(M .EQ.0) M = K
M = M * 65539
IF(M .LT. 0) M = (M + 1) + CONST1
RAND = M*CONST2

END

以下私の理解している事： 参考にしたページ： http://www.g.dendai.ac.jp/lecture/fortran/fort12.html

任意のＫが関数に渡される。
関数は Ｋ＊６５５３９＊ＣＯＮＳＴ２をいつも返す。

でもいくつか疑問点があります。
どうして型宣言が行われていないのでしょうか？
どうして関数は特定の値をいつも返すのに、ＩＦの分岐が必要なのでしょうか？
困ってます。アドバイスをよろしくお願いしますｍ（＿＿；）ｍ