MODULE MY_MODULE IMPLICIT NONE INTERFACE _____ !<==BLANK1 MODULE PROCEDURE SI,______ !<==BLANK2 END INTERFACE CONTAINS SUBROUTINE SI(A,B) INTEGER::A,B,T T=A;A=B;B=T END SUBROUTINE SUBROUTINE SC(A,B) CHARACTER(LEN=5)::A,B,T T=A;A=B;B=T END SUBROUTINE END MODULE MY_MODULE PROGRAM EX USE ______ !<==BLANK3 IMPLICIT NONE INTEGER::A=2,B=6 CHARACTER(LEN=5)::C1='ABCDE',C2='12345' CALL SWAP(A,B) CALL SWAP(C1,C2) PRINT *,A,B PRINT *,C1,C2 END

根据代码中的提示，需要填写三个空白处，分别为 BLANK1、BLANK2 和 BLANK3。BLANK1 中应该填写 SUBROUTINE，因为我们要定义一个子程序的接口。BLANK2 中应该填写 SC，因为我们需要在接口中列出可以使用的子程序，而 SC 是其中之一。BLANK3 中应该填写 MY_MODULE，因为我们在程序中使用了 MY_MODULE 中定义的子程序。因此，填写后的代码如下：

MODULE MY_MODULE
   IMPLICIT NONE
   
   INTERFACE
     SUBROUTINE SC(A,B)
       CHARACTER(LEN=5)::A,B,T
       T=A;A=B;B=T
     END SUBROUTINE
     MODULE PROCEDURE  SI,SC
   END INTERFACE
   
   CONTAINS
   
   SUBROUTINE SI(A,B)
     INTEGER::A,B,T
     T=A;A=B;B=T
   END SUBROUTINE
   
END MODULE MY_MODULE

PROGRAM EX
   USE MY_MODULE
   IMPLICIT NONE
   INTEGER::A=2,B=6
   CHARACTER(LEN=5)::C1='ABCDE',C2='12345'
   CALL SWAP(A,B)
   CALL SWAP(C1,C2)
   PRINT *,A,B
   PRINT *,C1,C2
END