k_date.f90

Path: k_date.f90
Last Update: Fri Apr 14 02:49:59 GMT+9:00 2006

k_date

author :小松 研吾 (KOMATSU Kengo)
version :1.0
date :2006/03/05
copyright :Copyright (c) K.K, 2006. All rights reserved.

説明

時間に関する subroutines, functions 。

このプログラム中のサブルーチン MJD の中では julday というサブルーチン を使用しています。これは Numerical Recipes in Fortran 90 の B1 Preliminaries に書かれているものです。また、この julday は同じく 21 Introduction to Fortran 90 Language Features 内に書かれている nrutil と nrtype に依存しています。

readDate :年、月、日、時、分、秒を標準入力から読み込む。
DayOfYear :入力日時から変数 year の通日 (Day of Year) を返す。 1月1日0時(UT) は Day of Year 1.0 日としています。
MJD :入力日時から修正ユリウス通日を返す。

[Validate]