module test
   implicit none

   public :: read_input
   private :: read_input_i4,&
             &read_input_r8,&
             &read_input_r4
   
   integer,parameter :: i4=kind(1)
   integer,parameter :: r4=kind(1.0)
   integer,parameter :: r8=kind(1.0d0)
   
   interface read_input
       module procedure read_input_i4,&
                       &read_input_r8,&
                       &read_input_r4
   end interface
   
   contains
   
   !subroutine read_input_$SPEC(vv,d_vv)
   !   $TYPE :: vv(:), d_vv(:)
   !end subroutine read_input_$SPEC
   
   subroutine read_input_i4(vv,d_vv)
      integer(i4) :: vv(:), d_vv(:)
   end subroutine read_input_i4
   
   subroutine read_input_r8(vv,d_vv)
      real(r8) :: vv(:), d_vv(:)
   end subroutine read_input_r8
   
   subroutine read_input_r4(vv,d_vv)
      real(r4) :: vv(:), d_vv(:)
   end subroutine read_input_r4

end module test

3Â¥: Originally posted by snoopyzhao at 2011-11-02 13:47:22:
ÎҲ²⣬ÄãµÄ³ÌÐòÖж¨ÒåÁË $SPEC£¬ÒÔ¼° $TYPE Á½¸öÌØÊâµÄ±äÁ¿£¬Õâ¿ÉÄÜÊDZàÒëÆ÷µÄÀ©Õ¹£¬Ò²¿ÉÄÜÓõ½ÁËÆäËüµÄ¼¼ÇÉ£¬µ«²»ÊDZê×¼µÄ¿ÉÒÆÖ²µÄÌØÐÔ¡£ÎÒ²ÂÄãÉÏÃæµÄ´úÂëµÈͬÓÚÏÂÃæÕâ¶Î´úÂ룺

[code]
module test
   im ...