[子程序] 关于实参和虚参类型不一致的问题

subroutine Fiber_Module_reg2(data_input,data_output)
c      implicit double  precision  (b-h,o-z)
c	implicit integer (i-n)
	double  precision ahumi_ao,Tem_ao,RH_ao,Rh1,Rh2,ttt,ahumi1,ahumi2
     & xx1,xx2,data_input,data_output

	call d_rh_t(Rh2,ttt,ahumi2)

      subroutine d_rh_t(rh,t,d)
      implicit double precision (a-h,o-z)
	implicit integer (i-n)
	call satu_press(t,p_satu)
	p_a=101325
	d=0.622*rh*p_satu/(p_a-rh*p_satu)
	return
	end