NASA Logo
Ocean Color Science Software

ocssw V2022
ftn_interface.c
Go to the documentation of this file.
1 #include "nav.h"
2 #include "sun2000.h"
3 void ymdhms2jul_(int32_t *year, int32_t *month, int32_t *day, int32_t *hour, int32_t *minute, double *sec,
4  double *jul) {
5  ymdhms2jul(*year, *month, *day, *hour, *minute, *sec, jul);
6 }
7 
8 void jddate_(int *jd, int *i, int *j, int *k) {
9  jddate(*jd, i, j, k);
10 }
11 
12 void jdate_(int *jd, int *i, int *k) {
13  jdate(*jd, i, k);
14 }
15 
16 void julian_(double tin[2], double *tout) {
17  *tout = julian(tin);
18 }
19 
20 int32_t jd_(int32_t *i, int32_t *j, int32_t *k) {
21  return jd(*i, *j, *k);
22 }
23 
24 void gha2000_(int *iyr, double *day, double *gha) {
25  gha2000(*iyr, *day, gha);
26 }
int j
Definition: decode_rs.h:73
int32_t day
void jdate_(int *jd, int *i, int *k)
Definition: ftn_interface.c:12
int32_t jd_(int32_t *i, int32_t *j, int32_t *k)
Definition: ftn_interface.c:20
int jdate(int32_t julian, int32_t *year, int32_t *doy)
Takes in a julian day and mutates year and doy to contain the gregorian year and day of that gregoria...
Definition: jdate.c:13
void gha2000_(int *iyr, double *day, double *gha)
Definition: ftn_interface.c:24
void ymdhms2jul_(int32_t *year, int32_t *month, int32_t *day, int32_t *hour, int32_t *minute, double *sec, double *jul)
Definition: ftn_interface.c:3
void ymdhms2jul(int32_t year, int32_t month, int32_t day, int32_t hour, int32_t minute, double sec, double *jul)
c ----------------------------------------------------------— c Subroutine ymdhms2jul c c Convers fro...
Definition: nav.c:113
def jddate(jd)
Definition: jddate.py:1
Definition: jd.py:1
int gha2000(int32_t iyr, double day, double &gha)
void julian_(double tin[2], double *tout)
Definition: ftn_interface.c:16
integer function julian(DAY, MONTH, YEAR)
Definition: julian.f:2
def jd(i, j, k)
Definition: jd.py:1
int i
Definition: decode_rs.h:71
void jddate_(int *jd, int *i, int *j, int *k)
Definition: ftn_interface.c:8
int32_t iyr
Definition: atrem_corl1.h:161
int k
Definition: decode_rs.h:73