随便看看 - 代码贴

Program ex0821

Program ex0821
implicit none
    real,external ::func
    real,intrinsic::sin

    call ExecFunc(func)
    call ExecFunc(sin)
stop
end

subroutine ExecFunc(f)
    implicit none
......................

阅读全部 | jude1990 贴于 2012年8月23日 23:36 hide bbsi

Program ex0807

Program ex0807
implicit none
    real::a=1,b=2
    real,external::add
    write(*,*)add(a,b)
stop
end

function add(a,b)
    implicit none
    real:: a,b
......................

阅读全部 | jude1990 贴于 2012年8月23日 17:46 hide bbsi

Program ex0801

Program ex0804
implicit none

integer:: a=1,b=2
call add(1,2)

stop
end

subroutine add(first,second)
implicit none
......................

阅读全部 | jude1990 贴于 2012年8月23日 17:11 hide bbsi

Program ex0801

Program ex0801
implicit none

call message()
call message()

stop
end

subroutine message()
implicit none
write(*,*)"Hello."
......................

阅读全部 | jude1990 贴于 2012年8月23日 16:55 hide bbsi

Program assignvalue_to_array

Program assignvalue_to_array
implicit none

integer::i
integer::a(5)
!integer::a(5)=(/(2*i,i=1,5)/)

DATA(a(i),i=2,4)/2,3,4/
write(*,*)(a(i),i=2,4)

stop
end

阅读全部 | jude1990 贴于 2012年8月23日 16:42 hide bbsi

Program ex0716

Program ex0716
implicit none

integer::students
integer,allocatable::a(:)
!integer, parameter::students =5
!integer ::student(students)
integer ::i

write(*,*)"How many students:"
read(*,*)students
allocate(a(students))
......................

阅读全部 | jude1990 贴于 2012年8月23日 08:35 hide bbsi

Program ex0701

Program ex0701
implicit none

integer, parameter::students =5
integer            ::student(students)
integer            ::i

do i=1,students
    write(*,*)i
    read(*,*)student(i)
end do

......................

阅读全部 | jude1990 贴于 2012年8月22日 09:23 hide bbsi

Program ex0607

Program ex0607
implicit none

real, parameter::weight =45.0
real, parameter::error =0.0001
real            ::guess

do while(.true.)
    write(*,*)"weight:"
    read(*,*)guess
    if (abs(weight-guess)<error) exit
end do
......................

阅读全部 | jude1990 贴于 2012年8月21日 23:45 hide bbsi

Program ex0606

Program ex0606
implicit none

integer ::dest =9
integer floor

do floor=1,dest
if (floor==4) exit
write(*,*) floor
end do

stop
......................

阅读全部 | jude1990 贴于 2012年8月21日 23:38 hide bbsi

Program ex0601

Program ex0601
implicit none

integer counter
integer,parameter::lines=10

do counter=1,lines,2
write(*,*) "Happy Birthday",counter
end do

stop
end

阅读全部 | jude1990 贴于 2012年8月21日 09:22 hide bbsi