子程序如何传递字符类型的参数

xiaoyanwei2000

我想传递2个文件路径到子程序中,代码如下

1.     program Console1      CHARACTER(len=128) :: p1      CHARACTER(len=128) :: p2       p1='d:\a.txt'       p2='d:\b.txt'      call zichengxu(p1,p2)    end     subroutine zichengxu(p1,p2)    print*,p1,p2    read *,m    end

    program Console1      CHARACTER(len=128) :: p1      CHARACTER(len=128) :: p2       p1='d:\a.txt'       p2='d:\b.txt'      call zichengxu(p1,p2)    end     subroutine zichengxu(p1,p2)    print*,p1,p2    read *,m    end

编译时报错：

错误信息

该怎修改呢

ningking1986

1. program Console1     
   
2. CHARACTER(len=128) :: p1      
   
3. CHARACTER(len=128) :: p2      
   
4. p1='d:\a.txt'      
   
5. p2='d:\b.txt'      
   
6. call zichengxu(p1,p2)   
   
7. end   
   
8. 
   
9. subroutine zichengxu(p1,p2)   
   
10. character(*),intent(in)::p1,p2
    
11. write(*,'(A,/,A)'),trim(p1),trim(p2)   
    
12. !read *,m   
    
13. end

program Console1     <br /> CHARACTER(len=128) :: p1      <br /> CHARACTER(len=128) :: p2       <br /> p1='d:\a.txt'       <br /> p2='d:\b.txt'      <br /> call zichengxu(p1,p2)    <br /> end    <br /> <br /> subroutine zichengxu(p1,p2)   <br /> character(*),intent(in)::p1,p2<br /> write(*,'(A,/,A)'),trim(p1),trim(p2)   <br /> !read *,m    <br /> end