Shared Library Fortran Subroutines¶
Subroutines and functions
- subroutine haversine(lon1, lon2, lat1, lat2, hav_dist)¶
Function to calculate the haversine formula.
- Parameters:
lon1 [real,in]
lon2 [real,in]
lat1 [real,in]
lat2 [real,in]
hav_dist [real,out] :: convert radians to degrees
- Called from:
find_single_island_prob(),get_overlap_indices(),haversine_wrapper(),find_nearest_point(),get_circle_area_overlap(),get_density()
- subroutine jy01a_j0(x, bj0)¶
JY01A_J0 computes Bessel function J0(x).
Licensing:
This routine is copyrighted by Shanjie Zhang and Jianming Jin. However, they give permission to incorporate this routine into a user program provided that the copyright is acknowledged.
Modified:
01 August 2012
Author:
Shanjie Zhang, Jianming Jin
Reference:
Shanjie Zhang, Jianming Jin, Computation of Special Functions, Wiley, 1996, ISBN: 0-471-11963-6, LC: QA351.C45.
Parameters:
Input, real ( kind = 8 ) X, the argument.
Output, real ( kind = 8 ) BJ0, the value of J0(x).
Modified slightly by TJW, 2020.
- Parameters:
x [real]
bj0 [real]
- Called from:
- subroutine jy01a_j1(x, bj1)¶
JY01A_J1 computes Bessel function J1(x).
Licensing:
This routine is copyrighted by Shanjie Zhang and Jianming Jin. However, they give permission to incorporate this routine into a user program provided that the copyright is acknowledged.
Modified:
01 August 2012
Author:
Shanjie Zhang, Jianming Jin
Reference:
Shanjie Zhang, Jianming Jin, Computation of Special Functions, Wiley, 1996, ISBN: 0-471-11963-6, LC: QA351.C45.
Parameters:
Input, real ( kind = 8 ) X, the argument.
Output, real ( kind = 8 ) BJ1, the value of J1(x).
Modified slightly by TJW, 2021.
- Parameters:
x [real]
bj1 [real]
- Called from: