QQ

使用字符转成ASCII码数值函数IACHAR错在哪？
! - - - - - - - - - - - - - - - - - - -
      SUBROUTINE CHTOIN(IFIRST,LAST,IFROM,ITO) ! 将字符转成ASCII数
      IMPLICIT NONE
      INTEGER*4 I,IFIRST,ITO(*),J,LAST
      CHARACTER*1 C(1),IFROM(*)
      DO I=IFIRST,LAST
       C(1:1)=IFROM(I:I)
       J=IACHAR(C)
       ITO(I)=J
      ENDDO
      RETURN;      END
! - - - - - - - - - - - - - - - - - - -
Compiling Fortran...
D:\CRSCP\crscsap.f90
D:\CRSCP\crscsap.f90(315) : Error: The shapes of the array expressions do not conform.   [J]
       J=IACHAR(C)
-------^
Error executing df.exe.
crscsap.obj - 1 error(s), 0 warning(s)
使用字符转成ASCII码数值函数IACHAR错在哪？
使用字符转成ASCII码数值函数IACHAR错在哪？

  QQ

下面几行如下：
--------------------Configuration: CR - Win32 Release--------------------
Compiling Fortran...
D:\CR\csap.f90
D:\CR\csap.f90(315) : Error: The shapes of the array expressions do not conform.   [J]
       J=IACHAR(C)
-------^
Error executing df.exe.
crscsap.obj - 1 error(s), 0 warning(s)

  QQ

不用J时，也报同样错
D:\CR\csap.f90(316) : Error: The shapes of the array expressions do not conform.   [ITO]
       ITO(I)=IACHAR(C)
-------^
Error executing df.exe.
csap.obj - 1 error(s), 0 warning(s)
烦请高手解答