chap07/sample2.f90

サンプルコードのダウンロード

 1program sample
 2  implicit none
 3
 4  call hello('Michel')
 5
 6  stop
 7contains
 8  !!!!!!!!!! 関数やサブルーチンの宣言はここから !!!!!!!!!!
 9
10  !
11  ! サブルーチンの宣言
12  !
13  subroutine hello(name)          ! helloという名前でサブルーチンを宣言
14    implicit none                 ! 暗黙の型宣言の禁止
15    character(len=*) :: name      ! 引数を宣言 (任意長の文字列)
16
17    write(*, *) 'Hello ', name    ! 内部の処理
18
19    return
20  endsubroutine hello
21
22  !!!!!!!!!! ここまでの間に行う !!!!!!!!!!
23endprogram sample