GDL_Library/Call.pro at main · brbarker/GDL_Library · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
pro Call

close, /all

;;;;;;;;;;;;;;;;;;;;;;;
;
; This is the starting file that the user will use to pick which action to take
; based on their needs.
;
; Written By: Brian Barker
; Last Update: 3-22-2021
;
;
;;;;;;;;;;;;;;;;;;;;;;;

; This begins the procedure. It repeats until the users wants to stop
repeat begin

    ; Give the user options for what they want to do
    print,""
    print,"Home Menu:"
    read,choice,prompt="|1 - Source Reference|  |2 - Timekeeping Calculations| "

    ; If option 1 is picked do this
    if choice eq 1 then begin
        print,"...Accessing Source Reference Procedure..."
        call_procedure,"Ref4"
        print,"Would You Like To Return To The Home Menu?"
        read,over,prompt="|1 - Yes| |0 - No| "
    endif

    ; If option 2 is picked do this
    if choice eq 2 then begin
        print,""
        print,"...Accessing Timekeeping Calculation Procedure..."                  ; User experience
        print,""

        ; Show options for what the user can calculate
        print,"What Would You Like To Calculate?"
        read,mode,prompt="|1 - Day of Year Calc.|  |2 - Declination of the Mean Sun|  |3 - Right Ascension of the Mean Sun| "
        print,""

        ; If mode 1 is picked do this
        if mode eq 1 then begin
            call_procedure,"DoY"
        endif

        ; If mode 2 is picked do this
        if mode eq 2 then begin
            call_procedure,"DecSun"
        endif

        ; If mode 3 is picked do this
        if mode eq 3 then begin
            call_procedure,"RASun"
        endif


        ; Ask the user is they want to start over
        print,"Would You Like To Return To The Home Menu?"
        read,over,prompt="|1 - Yes| |0 - No| "
    endif
endrep until over eq 0

; Confirming end
print,"End Call.pro"
print,""
end