DSCF-1224

DSCF-1224

!gfortran, gcc version 7.4.0

!reference: https://qiita.com/implicit_none/items/08f894bc851c29b40b58#%E4%BB%AE%E5%BC%95%E6%95%B0

program test_20200904_01

    use, intrinsic :: iso_fortran_env

    implicit none
    

DSCF-1224

module Coordinate

    export Rect2d

    mutable struct Rect2d{T} 
        x :: T
        y :: T
    end

    function Base.:+(coordinate_left::Rect2d{T}, coordinate_right::Rect2d{T}) where T <: Core.Number

DSCF-1224

DSCF-1224

program memorandum

    use, intrinsic :: iso_fortran_env

    implicit none

    integer(INT32) :: input_front = -17_INT32
    integer(INT32) :: input_rear  = +32_INT32
    integer(INT64) :: retval

DSCF-1224

参考文献

• 数値計算のつぼ | 共立出版
• カハンの加算アルゴリズム - Wikipedia
• Kahan summation algorithm - Wikipedia

出力

 268435456 < length_data

DSCF-1224

# -*- coding: utf-8 -*-
import numpy

def read_int32(file_stream):
    return numpy.fromfile(file= file_stream, dtype= numpy.int32, count=1)[0]

def read_real64(file_stream):
    return numpy.fromfile(file= file_stream, dtype= numpy.float64, count=1)[0]

DSCF-1224

FCFLAGS= -fbacktrace -fbounds-check -ffree-line-length-none -O2 -pedantic -std=f2008 -Wall -Wextra

main.exe: ./main.f08
	gfortran $(FCFLAGS) -o ./main.exe $<

clean:
	rm ./*.mod ./*.o ./*.dat

DSCF-1224

FCFLAGS = -ffree-line-length-none -O2 -pedantic -std=f2008 -Wall -Wextra # -fbacktrace -fbounds-check 
OBJS    = ./mod_is_even.o ./mod_test.o ./main.o

main.exe: $(OBJS)
	gfortran $(FCFLAGS) -o ./main.exe $(OBJS)

%.o: %.f08
	gfortran $(FCFLAGS) -c $<

clean:

DSCF-1224

参考文献

• 日本ニューメリカルアルゴリズムズグループ株式会社（日本 NAG）
  • Fortran Tip集: 環境変数の値を取得する方法
  • Fortran 2003入門: 環境変数へのアクセス