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 两个特殊的变量，这可能是编译器的扩展，也可能用到了其它的技巧，但不是标准的可移植的特性。我猜你上面的代码等同于下面这段代码：

[code]
module test
   im ...