[UP]

Manual Reference Pages  - moon_fullness (3)

NAME
moon_fullness(3f) - [M_time:ASTROLOGICAL] return percentage of moon phase from new to full (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Results
Examples
Author
License

SYNOPSIS
function moon_fullness(datin) 

   integer,intent(in)            :: datin(8)
   integer                       :: moon_fullness

DESCRIPTION

This procedure is used to support the %P field descriptor for the fmtdate(3f) routine.

The moon circles the earth every 29.530588853 days on average, so pick a starting point and count. A new moon occurred at January 6, 2000, 18:14 UTC. Then it is easy to count the number of days since the last new moon. This is an approximate calculation.

OPTIONS

datin DAT Date array describing input date

RESULTS

moon_fullness
  0 is a new or dark moon, 100 is a full moon, + for waxing and - for waning.

EXAMPLES
Sample: 

    program demo_moon_fullness
    use M_time, only : now
    use M_time, only : phase_of_moon
    use M_time, only : moon_fullness
    implicit none
    integer             :: dat(8)
       ! generate DAT array
       call date_and_time(values=dat)
       ! show DAT array
       write(*,’(" Today is:",*(i0:,":"))’)dat
       ! the %p and %P fields are supported by fmtdate(3f)
       write(*,*)&
       &now(’The phase of the moon is %p, with a fullness of %P’)
       write(*,’(1x,*(a))’,advance=’no’)&
       &’The phase of the moon is ’,trim( phase_of_moon(dat)),’,’
       write(*,’(1x,a,i0,a)’)&
       &’with a fullness of ’, moon_fullness(dat),’%’
    end program demo_moon_fullness
Sample output: 

     Today is:2018:11:3:-240:20:18:44:245
     The phase of the moon is Waning crescent, with a fullness of -30%
     The phase of the moon is Waning crescent, with a fullness of -30%

AUTHOR
John S. Urban, 2015

LICENSE
Public Domain

moon_fullness (3) March 11, 2021
Generated by manServer 1.08 from 91329b1b-5a2f-4a89-9e6c-1ab930b41428 using man macros.