Fortran90で時間の差分を求めたい

Question

現在Fortran90?で
x 時 y 分 z 秒から k 時 m 分 n 秒まで何秒あるかを計算する。

という問題を解いているのですが、
もっとスマートな方法があるのではと思い質問させていただきました。
入力もhh:mm:ssで入力できたらいいなと思っています。

program hello
    implicit none
    integer hour_x,hour_k,min_y,min_m,sec_z,sec_n 
    print *, "時、分、秒を順番に入力してください"
    read(*,*) hour_x,min_y,sec_z
    print *, "差分を求めたい　時、分、秒を順番に入力してください"
    read(*,*) hour_k,min_m,sec_n
    !実行部分
stop
end program hello

よろしくお願いします。

あとVSCodeでFortranを使用しているのですが
ModernFortranはFortran90ですか？Fortran95ですか？
拡張子がf.90なのでFortran90だと思うんですが。。
ややこしくてよくわかりません。。。

Comments

[dodox86]

「スマートな方法」というと、今あるコードをよりスマートにする方法を求められている気がしますが、ご提示のコードを読むと「何秒あるか」を計算する部分がなく、よりスマートにしようがない気がしますがどうなのでしょう。

[akidon0000]

返信遅れてすみません。
解決しました。
ありがとうございます！

Answer 1

program hello
    implicit none
    integer hour1,hour2,min1,min2,sec1,sec2
    print *, "時、分、秒を順番に入力してください"
    read(*,*) hour1,min1,sec1
    print *, "差分を求めたい　時、分、秒を順番に入力してください"
    read(*,*) hour2,min2,sec2

    sec1 = (hour1 * 3600) + (min1 * 60) + sec1 !時間,分を全て秒に変換
    sec2 = (hour2 * 3600) + (min2 * 60) + sec2

    sec1 = abs(sec1 - sec2) !絶対値

    hour1 = int(sec1 / 3600) !秒から時間へ
    sec1 = modulo(sec1,3600) !時間を引いた秒

    min1 = int(sec1 / 60)
    sec1 = modulo(sec1,60)

    print *, "差分は",hour1,"時間",min1,"分",sec1,"秒"
stop
end program hello