Go to the source code of this file.
|
| subroutine | dates_demo |
| |
| subroutine | date_plus_ech (kan, kmo, kqu, psssss, pstati, cdtit) |
| |
| subroutine | datc (kaaaa, kmm, kqq, khh, kmi, kss, kjs, cdjs, cddt) |
| |
| subroutine | amqhms_vers_dj (kaaaa, kmm, kqq, khh, kmn, ps, pdj) |
| |
| subroutine | daplus (kdat1, kopt, kdelt, kdat2) |
| |
| subroutine | daplusj (k1, kec, k2) |
| |
| subroutine | dapluss (cd1, kec, cd2) |
| |
| subroutine | dj_vers_amqhms (pdj, kaaaa, kmm, kqq, khh, kmn, ps) |
| |
| subroutine | dj_vers_amqhmsree (pdj, pgrer) |
| |
| subroutine | amqhmsree_vers_dj (pgrer, pdj) |
| |
| subroutine | ecartd (kdat1, kdat2, kopt, kgre) |
| |
| subroutine | ecartdj (k1, k2, kec) |
| |
| subroutine | ecartds (cd1, cd2, kec) |
| |
| subroutine | gregod (kdat, kopt, kgre) |
| |
| subroutine | gregoi (kgre, kopt, kdat) |
| |
| integer(kind=4) function | ijoursem (kdat) |
| |
| subroutine | qqmmaa (kdatd, cdresd) |
| |
| subroutine | quant (kdate, kquant) |
| |
| subroutine amqhmsree_vers_dj |
( |
real(kind=8), intent(in) |
pgrer, |
|
|
real(kind=8), intent(out) |
pdj |
|
) |
| |
| subroutine dapluss |
( |
character*(*) |
cd1, |
|
|
integer(kind=4) |
kec, |
|
|
character*(*) |
cd2 |
|
) |
| |
| subroutine date_plus_ech |
( |
integer(kind=4) |
kan, |
|
|
integer(kind=4) |
kmo, |
|
|
integer(kind=4) |
kqu, |
|
|
real(kind=8) |
psssss, |
|
|
real(kind=8) |
pstati, |
|
|
character *(*) |
cdtit |
|
) |
| |
| subroutine dates_demo |
( |
| ) |
|
| subroutine dj_vers_amqhmsree |
( |
real(kind=8), intent(in) |
pdj, |
|
|
real(kind=8), intent(out) |
pgrer |
|
) |
| |
| subroutine ecartds |
( |
character*(*) |
cd1, |
|
|
character*(*) |
cd2, |
|
|
integer(kind=4) |
kec |
|
) |
| |
| subroutine qqmmaa |
( |
integer(kind=4) |
kdatd, |
|
|
character*(*) |
cdresd |
|
) |
| |