A function name must not be declared with a * length, if the function is an internal or module function, or if it is array-valued, pointer-valued, recursive, or pure. 



The form CHARACTER*(*) is an obsolescent feature in Fortran 95. 

dat_interface
!    function cmon(im)                             !文字型の月名を返す文字型関数．
!    function cweek(iw)                            !文字型の曜日を返す文字型関数．
   この２つは不可能

tim_interface
  is が im になっている。

rfa_interface
	function の返り値が intent(in) 
  69行     real     :: rvmax              !最大値を与える関数値

uc_interface
141,147    end subroutine -> function

ud_interface
220, 228      integer,   intent(out), dimension(*,*) :: ibr  -> (*)

uw_interface
63    subroutine uwsgyz(lsetx)   -> lsety