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)                             !^̌Ԃ^֐D
!    function cweek(iw)                            !^̗jԂ^֐D
   ̂Q͕s\

tim_interface
  is  im ɂȂĂB

rfa_interface
	function ̕Ԃl intent(in) 
  69s     real     :: rvmax              !ől^֐l

uc_interface
141,147    end subroutine -> function

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

uw_interface
63    subroutine uwsgyz(lsetx)   -> lsety


