Skip to content

Commit 56cf76e

Browse files
committed
Added YAML configuration file
1 parent 7eb829e commit 56cf76e

File tree

4 files changed

+643
-814
lines changed

4 files changed

+643
-814
lines changed

haversine_distmat.f90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -85,7 +85,7 @@ subroutine haversine_distvec(lon1, lat1, lon2, lat2, dist)
8585
real(kind=8), dimension(:), intent(inout) :: dist
8686
external :: haversine
8787

88-
d2r = atan2(0.,-1.)/ 180. ! atan2(0.,-1.) == pi
88+
d2r = atan2(0.,-1.) / 180. ! atan2(0.,-1.) == pi
8989
m = size(lon1)
9090

9191
! Loop over empty dist matrix and fill
@@ -109,7 +109,7 @@ subroutine haversine_dist(lon1, lat1, lon2, lat2, thedist)
109109
real(kind=8), intent(out) :: thedist
110110
external :: haversine
111111

112-
d2r = atan2(0.,-1.)/ 180. ! atan2(0.,-1.) == pi
112+
d2r = atan2(0.,-1.) / 180. ! atan2(0.,-1.) == pi
113113
call haversine(lon1, lat1, lon2, lat2, d2r, thedist)
114114
thedist = thedist * erad
115115

0 commit comments

Comments
 (0)