Fortran Coder

标题: 智障新人求助 [打印本页]

作者: 云卷云舒 时间: 2017-6-24 19:50
标题: 智障新人求助
各位大神门，新手刚刚入门，有一个弱弱的问题问大家。
要写一个程序将a中的元素从小到大排列后存入b中(a中各元素保持不变)，b也是一维数组，与a具有相同的长度，我写了一个subroutine,结果参数老是出问题，希望好心人指教，不胜感激。
这是我的代码和错误情况。（subroutine的形参只能是两个）

[Fortran] 纯文本查看 复制代码



program test 

Implicit none

integer::n

real, allocatable:: a(:),b(:)

Print*, '输入一维数组元素个数n：'

Read*, n

allocate(a(n), b(n))

Print*, '输入数组a的各元素值:'

Read*, a

call sort(a,b)

Print'(a, <n>f7.3)', '排序前a=', a

Print'(a, <n>f7.3)', '排序后b=', b



End program



subroutine sort(a, b)

integer:: m, i,j, t

real:: a(m), b(m)

m=size(a)

b = a                           !先把a整体赋给b

do i=1, m-1

    do j= i+1,m

        if(b(i)>b(j))then

           t = b(i); b(i) = b(j); b(j) = t!交换

        endif

    enddo

enddo

end subroutine

错误：
错误 1 error #6219: This variable, used in a specification expression, must be a dummy argument, a COMMON block object, or an object accessible through host or use association [M]
错误 2 error #6631: A non-optional actual argument must be present when invoking a procedure with an explicit interface. [M]

作者: li913 时间: 2017-6-24 20:38
本帖最后由 li913 于 2017-6-24 20:40 编辑

[Fortran] 纯文本查看 复制代码

subroutine sort(a, b, m)

integer:: m, i,j, t

real:: a(m), b(m)

b = a                           !先把a整体赋给b

do i=1, m-1

    do j= i+1,m

        if(b(i)>b(j))then

           t = b(i); b(i) = b(j); b(j) = t!交换

        endif

    enddo

enddo

end subroutine



subroutine sort(a, b)

integer:: m, i,j, t

real:: a(:), b(:)

m=size(a)

b = a                           !先把a整体赋给b

do i=1, m-1

    do j= i+1,m

        if(b(i)>b(j))then

           t = b(i); b(i) = b(j); b(j) = t!交换

        endif

    enddo

enddo

end subroutine

前者比较常用，后者需要接口：http://fcode.cn/guide-103-1.html。另外，t的类型应与a一致。

作者: 云卷云舒 时间: 2017-6-24 21:57

li913 发表于 2017-6-24 20:38
[mw_shl_code=fortran,true]subroutine sort(a, b, m)
integer:: m, i,j, t
real:: a(m), b(m)

哇！谢谢您的回复，思路一下清晰了！
万分感谢！！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)