d****y
发帖数: 1650 | 1 CHARACTER(3) SNAME
这个用法是哪个版本的fortran里的？g77认识，但是我在fortran77里的文档里都没找到。
SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)
CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN)
...
...
比如这里的语句，SRNAME_ARRAY是个多大的数组？
多谢 | s***e
发帖数: 122 | 2 只是个猜测哈，CHARACTER(3)的声明是不是就等于CHARACTER*3,就是说这是一个包含3
个字符的数组。
找到。
【在 d****y 的大作中提到】
: CHARACTER(3) SNAME
: 这个用法是哪个版本的fortran里的？g77认识，但是我在fortran77里的文档里都没找到。
: SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)
: CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN)
: ...
: ...
: 比如这里的语句，SRNAME_ARRAY是个多大的数组？
: 多谢
| i**g
发帖数: 134 | 3 按fortran90的语法，可能会清晰一些
character(len=1),dimension(SRNAME_LEN) :: SRNAME_ARRAY
数组包含SRNAME_LEN个元素，每个元素可以保存1个字符
找到。
【在 d****y 的大作中提到】
: CHARACTER(3) SNAME
: 这个用法是哪个版本的fortran里的？g77认识，但是我在fortran77里的文档里都没找到。
: SUBROUTINE XERBLA_ARRAY(SRNAME_ARRAY, SRNAME_LEN, INFO)
: CHARACTER(1) SRNAME_ARRAY(SRNAME_LEN)
: ...
: ...
: 比如这里的语句，SRNAME_ARRAY是个多大的数组？
: 多谢
| O******e
发帖数: 734 | 4 Each of the following is different from the other:
character(len=3)::sa ! rank=0 (scalar), size=na, shape=na, type=3-byte char
character(len=1),dimension(3)::sb ! rank=1, size=3, shape=(3), type=1-byte
char
character(len=3),dimension(1)::sc ! rank=1, size=1, shape=(1), type=3-byte
char
character(len=1),dimension(1,3)::sd ! rank=2, size=3, shape=(1,3), type=1-
byte char
character(len=1),dimension(3,1)::se ! rank=2, size=3, shape=(3,1), type=1-
byte char
(dennny's example is the first one, it
【在 i**g 的大作中提到】
: 按fortran90的语法，可能会清晰一些
: character(len=1),dimension(SRNAME_LEN) :: SRNAME_ARRAY
: 数组包含SRNAME_LEN个元素，每个元素可以保存1个字符
:
: 找到。
|
|
