您所在位置：主题：帮我看下这个错误
llbbhq
[专家分：0] 发布于 2011-06-29 10:40:00
PROGRAM MAIN
IMPLICIT NONE
REAL::X(10,4)
INTEGER,DIMENSION(0:5,0:4,0:3)::Y
LOGICAL::LARR(0:10:5)
WRITE(*,*) RANK(Y),SIZE(LARR),LBOUND(X,1),UBOUND(Y),SHAPE(Y)
END PROGRAM MAIN
编译器(IFOR 11)总是过不了,我看了觉的没错啊.还有内置的没有RANK这个函数?
IMPLICIT NONE
REAL::X(10,4)
INTEGER,DIMENSION(0:5,0:4,0:3)::Y
LOGICAL::LARR(0:10:5)
WRITE(*,*) RANK(Y),SIZE(LARR),LBOUND(X,1),UBOUND(Y),SHAPE(Y)
END PROGRAM MAIN
编译器(IFOR 11)总是过不了,我看了觉的没错啊.还有内置的没有RANK这个函数?